Управление окном IExplorer [D5]
vitnt2000 © (2002-02-15 06:58:00)
Подскажите пожалуйста, как послать команду активному окну
IExplorera из своей программы. Например заставить обновить окно или
вернуться назад? Спасибо!
[NIKEL] (2002-02-15 18:27:00) [1]
через OLE... вот это должно тебе помочь
uses Comobj;
{...}
var
Form1: TForm1;
IEApp: OLEVariant;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
IEApp := CreateOLEObject("InternetExplorer.Application");
IEApp.Visible := True;
IEApp.Top := 0;
IEApp.Left := 0;
IEApp.Width := Screen.Width;
IEApp.Height := Screen.Height;
IEApp.Navigate("
http://delphi.mastak.ru");
end;
//ну это для закрытия : )
IEApp.Quit;
//самое главное
IEApp.GoForward
IEApp.GoBack
IEApp.GoHome
IEApp.Refresh
IEApp.Stop
IEApp.GoHome
IEApp.FullScreen := true;
//статус бар наш :)
IEApp.StatusText := "My Status Text";
IEApp.Path - путь до IE
IEApp.FullName - полный путь до IE
IEApp.LocationURL - получаешь активный URL :)
попробуй должно помочь...
Наверх 
ЧАТ |
Орешник |
|
