Как открыть из программы Internet Explorer
ilysha © (2002-02-19 11:25:00)
Делаю таким образом:
ShellExecute(Handle, "open", PChar("
http://borland.com") ,nil, nil, SW_SHOW);
На самом деле, все отлично, но мне нужно открыть несколько
окон IE, а как это сделать - не знаю.
Подскажите.
Yozh (2002-02-20 03:46:00) [1]
var
StartUpInfo:TStartUpInfo;
ProcessInfo:TProcessInformation;
begin
....
FillChar(StartUpInfo,SizeOf(StartUpInfo),0);
StartUpInfo.cb:=SizeOf(StartUpInfo);
CreateProcess(nil,PChar(""C:\Program Files\Internet
Explorer\iexplore.exe" -nohome
"+URL),nil,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,StartupInfo,ProcessInfo);
Где находится на клиентской машине IExplorer, узнаешь из
реестра:
HKEY_CLASSES_ROOT\htmlfile\shell\open\command\@
см. также
http://delphi.vitpc.com/asp/answer.asp?IDAnswer=900
(надо будет подключить модуль ComObj)
Наверх 
ЧАТ |
Орешник |
|
