Главная » 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;