Регистрация программы как сервиса
Регистрация программы как сервиса
Регистрация программы как сервиса Мой способ. ... public { Public declarations } end; function RegisterServiceProcess (ProcessID,RType:DWord):DWord; stdcall; external 'KERNEL32.DLL'; procedure TFMain.FormCreate(Sender: TObject); begin ... RegisterServiceProcess(GetCurrentProcessID,1); ... end; procedure TFMain.FormDestroy(Sender: TObject); begin RegisterServiceProcess(GetCurrentProcessID,0); end;