Главная » Delphi » Интернет и сети » Определить WebBrowser по умолчанию

Определить WebBrowser по умолчанию

15:01
var
  defExplorer,tmpPath:array[0..MAX_PATH] of char;
  FileHandle: Integer;
  filestr:string;
begin
  GetTempPath(sizeof(tmpPath),@tmpPath);
  filestr:= tmpPath+'tmpfile.htm';
  FileHandle:=filecreate(filestr);
  fileclose(FileHandle);
  FindExecutable(pchar(filestr),@tmpPath,@defExplorer);
  shellexecute(0,'open',@defExplorer,'http://ya.ru','',SW_SHOWNORMAL);
  deletefile(filestr);
end;