Создание Службы

[alex0097]

Ребят привет. такой вопрос как создать службу на Delphi для Windows 7-10. Гугл не помог. Нужна служба которая в определенное время будет запускать 1C(это я сам разберусь)

[Slym]

такая служба уже есть - Schedule он же "Планировщик заданий"

[kropotkina-alice]

Сообщение от alex0097

как создать службу на Delphi для Windows. Нужна служба которая в определенное время будет запускать 1C

1. Написать программу в 1 строку

//На выбор:
ShellExecute()
ShellExecuteEx()
WinExec()
CreateProcess()
LoadModule()
//Например - 
procedure TMain.Timer1OnTimer(Sender: TObject) ->
ShellExecute(Handle,nil,'1С.exe',nil,nil,SW_SHOWNORMAL);

2. Зарегистрировать программу как сервис:

...
  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;