Как вызвать Internet Explorer из Delphi
|
У компании Microsoft появилась новая услуга. Они предлагают рекламное место в сообщениях об ошибках программы.
|
program iexplor;
uses
Windows, OLEAuto;
procedure OpenInternetExplorer( sURL : string );
const
csOLEObjName = 'InternetExplorer.Application';
var
IE: Variant;
WinHanlde: HWnd;
begin
if VarIsEmpty(IE) then
begin
IE := CreateOleObject(csOLEObjName);
IE.Visible := true;
IE.Navigate(sURL);
end
else
begin
WinHanlde := FindWIndow('IEFrame', nil);
if 0 <> WinHanlde then
begin
IE.Navigate(sURL);
SetForegroundWindow(WinHanlde);
end
else
begin
// handle error ...
end;
end;
end;
begin
OpenInternetExplorer('microsoft.com');
end.
|
|
