Главная » Delphi » Интернет и сети » Как открыть ссылку в новом окне браузера по умолчанию

Как открыть ссылку в новом окне браузера по умолчанию

17:19
function DefaultBrowser: string;
var
Reg: TRegistry;
regvalue: string;
i: integer;
begin
Result := 'iexplore.exe';
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey('\http\shell\open\command', FALSE) then begin
if Reg.ValueExists('') then begin
regvalue := Reg.ReadString('');
i := pos('.exe', AnsiLowerCase(regvalue));
if i > 0 then begin
regvalue := copy(regvalue, 1, i - 1) + '.exe';
if regvalue[1] = '"' then
regvalue := copy(regvalue, 2, length(regvalue) - 1);
Result := regvalue;
end;
end;
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
 
function OpenUrl(url: string): Cardinal;
begin
result := ShellExecute(0, 'open', PChar(DefaultBrowser), pchar(url), '', SW_SHOWNORMAL);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
OpenUrl('yandex.ru');
end;