Обновлено: 01 декабря, 2018

Открываем 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 &lt;&gt; '' then
  begin
    Browser := Copy(Browser, Pos(':\', Browser) - 1, Length(Browser)) ;
    if (Pos('.exe', Browser)&gt;0) then
      Browser := Copy(Browser, 1, Pos('.exe', Browser) + 3) ;
    if (Pos('.EXE', Browser)&gt;0) then
      Browser := Copy(Browser, 1, Pos('.EXE', Browser) + 3) ;
    ShellExecute(0, 'open', PChar(Browser), PChar(URL), nil, SW_SHOWNORMAL) ;
  end;
end;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439