Открываем URL браузером, установленным по умолчанию в Delphi

Способ 1:

uses ShellAPI; 
procedure TForm1.Button1Click(Sender: TObject); 
begin
  ShellExecute(Form1.Handle, nil, 'http://www.borland.com', nil, nil, SW_SHOWNORMAL); 
end; 

Способ 2:

uses Registry,ShellApi; 
procedure RunBrowser(URL: String);
var
  Browser: string;
begin
  Browser := '';
  with TRegistry.Create do
  try
    RootKey := HKEY_CLASSES_ROOT;
    Access := KEY_QUERY_VALUE;
    if OpenKey('\HTTP\shell\open\command', False) then
      Browser := ReadString('');
    CloseKey;
  finally
    Free;
  end;
  if Browser <> '' then
  begin
    Browser := Copy(Browser, Pos(':\', Browser) - 1, Length(Browser)) ;
    if (Pos('.exe', Browser)>0) then
      Browser := Copy(Browser, 1, Pos('.exe', Browser) + 3) ;
    if (Pos('.EXE', Browser)>0) then
      Browser := Copy(Browser, 1, Pos('.EXE', Browser) + 3) ;
    ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOWNORMAL) ;
  end;
end;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (Пока оценок нет)
Загрузка...
Добавить комментарий