Apr
05
Определить WebBrowser по умолчанию
15:01var
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;