про сервисы и формы

[darkcoder]

привет
написал сервис
работает.
понадобилось сделать форму на нем c webbrowserom
переписал сервис из program в unit

но вот проблема, как мне вызвать процедуру запуска webbrowsera?

кусок кода запуска сервиса
procedure ServiceProc(Argc: DWORD; var Argv: array of PChar); stdcall;
var
t:integer;
begin
ServiceStatus.dwServiceType := SERVICE_WIN32;
....
SetServiceStatus(ServiceStatusHandle, ServiceStatus);
TEST(); - тут нужно запустить webbrowser который лежит на форме
end;

что я не пытался сделать, и sender tobject, и без, и так и сяк, вобщем неполучается
запустить TEST


примерно как выглядит функция TEST:

procedure test(Sender: TObject);
begin
EmbeddedWB1.Navigate('http://localhost/test.php');
end;

получается что из "консольного" кода нельзя обратиться к компоненту на форме?
если можно то как правильно написать??

[MOTOCoder]

А если написать

Код: Выделить всё

 Form1.EmbeddedWB1.Navigate('http://localhost/test.php');

естественно добавив юнит формы в uses?
(я сам сервисы "с нуля" не писал, только через TService).

[MOTOCoder]

А если не получится, можно запихнуть форму с браузером в отдельную DLL и запускать оттуда.