Сервис - программное управление.

[Air]

Здравствуйте.
Пишу сервис мониторинга против клавиат. шпионов

Волнует одна деталь, как из сервиса запустить свою копию.
т.е. если юзер завершает работу нужно программно стартовать.

Сразу говорю

procedure TNVSwc.ServiceDestroy(Sender: TObject);
begin
NVSwc.DoStart;
end;

такое пробовал, сервис переходит в режим приложения и закрывается через 10-15 сек.
Что делать?

[Air]

Не уже ли никак?

[NikLik]

единственное, что приходит в голову--программка следующего содержания

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Winsvc;
procedure StartService(ServiceName: string);
var

  schService,
    schSCManager: Dword;
  p: PChar;
begin

  p := nil;
  schSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
  if schSCManager = 0 then
    RaiseLastWin32Error;
  try
    schService := OpenService(schSCManager, PChar(ServiceName),
      SERVICE_ALL_ACCESS);
    if schService = 0 then
      RaiseLastWin32Error;
    try
      if not Winsvc.startService(schService, 0, p) then
        RaiseLastWin32Error;
    finally
      CloseServiceHandle(schService);
    end;
  finally
    CloseServiceHandle(schSCManager);
  end;
end;
Begin
sleep(2000);//возможно понадобится больший интервал
startservice(название_твоего_сервиса);
end;

Сам не проверял, но должно работать.
Лучше создавать консольное приложение

[Air]

Работает, Спасибо Огромное!