И снова Service!

[Shurik Hacker]

Как мне установить Service с функцией:
Восстановление-Действие компьютера, выполняемое при сбое службы-Первый сбой-Перезагрузка компьютера-Параметры перезагрузки компьютера-5 мин.

[Баламут]

CreateService, ChangeServiceConfig, ChangeServiceConfig2... Если уж занялся такими вещами, то не ленись читать MSDN. Применительно к Делфи эта тема мало освещена.

[Квэнди]

класс Tservice обертка к вышеизложенным api функциям

[Shurik Hacker]

Такие эксперты, а такие обобщённые ответы, не хорошо!

[Shurik Hacker]

Ну это я уж знаю меня интересовала именно установка времени на перезагрузку компа во время сбоев. Пришлось экспериментировать!
Я замутил так:

procedure TMySrv.ServiceAfterInstall(Sender: TService);
var
  Reg: TRegistry;
  buf : array [1..44] of byte;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_LOCAL_MACHINE;
    if Reg.OpenKey('\SYSTEM\CurrentControlSet\Services\MySrv', True) then begin
      buf[1]:=0; buf[2]:=0; buf[3]:=0; buf[4]:=0; buf[5]:=0;
      buf[6]:=0; buf[7]:=0; buf[8]:=0; buf[9]:=0; buf[10]:=0;
      buf[11]:=0;buf[12]:=0;buf[13]:=3;buf[14]:=0;buf[15]:=0;
      buf[16]:=0;buf[17]:=$53;buf[18]:=0;buf[19]:=$65;
      buf[20]:=0;buf[21]:=2;buf[22]:=0;buf[23]:=0;buf[24]:=0;
      buf[25]:=$60;buf[26]:=$EA;buf[27]:=0;buf[28]:=0;
      buf[29]:=0;buf[30]:=0;buf[31]:=0;buf[32]:=0;buf[33]:=0;
      buf[34]:=0;buf[35]:=0;buf[36]:=0;buf[37]:=0;buf[38]:=0;
      buf[39]:=0;buf[40]:=0;buf[41]:=0;buf[42]:=0;buf[43]:=0;
      buf[44]:=0;
      Reg.WriteBinaryData('FailureActions', buf, sizeof(buf));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
    inherited;
  end;

end;

[forever]

Здравствуйте.Хочу написать несложную windows службу,которая решала бы проблему со смыслом.Помогите,пожалуйста,с выбором конкретной задачи(касающаяся процессам,межпроцессным взаиодействиям..).Заранее благодарю.