27.12.2011 Невидимый запуск TWebBrowser на Delphi

Может потребоваться запускать TWebBrowser так, чтобы он нормально работал, но оставался при этом невидимым. Такой запуск может потребоваться при выполнении различных автоматических задач, делающих что-то с сайтами. Эта задача может быть решена путем создания формы, на которую помещается TWebBrowser, в невидимом режиме. Как это сделать правильно, чтобы TWebBrowser правильно был инициирован, показано ниже:

var Form: TForm;
Browser: TWebBrowser;
...
Form:=TForm.Create(nil);
Browser:=TWebBrowser.Create(nil);
try
TWinControl(Browser).Parent := Form;
Browser.Silent:=true;
Browser.Align:=alClient;
Form.Width:=1;
Form.Height:=1;
Form.Show;
Form.Hide;
...
finally
Browser.Free;
Form.Free;
Script.Free;
end;

Как видно из кода, мы создаем форму размером в 1 пиксел, затем показывае ее и тут же скрываем. Этот процесс визуально не заметен, однако после этого TWebBrowser нормально работает, будучи способен выполнять различные автоматические операции.

foxbase.ru