service

← →
Serge_Blockirator (2002-10-21 13:34) [0]

Подскажите, как превратить проект (1 форма) в сервис NT, например, используя модуль service.pas, выложенный на http://bonanzas.rinet.ru/r_servsock.htm

← →
Alexander © (2002-10-22 14:50) [1]

Проект превратить в сервис нельзя - надо писать с нуля программу, которая является сервисом.

← →
Vladimir Kladov (2002-10-24 15:40) [2]

См. приложение Service Starter. Оно как раз любое приложение позволяет запустить как сервис.

Простой пример, как превратить любой ехе в сервис

procedure TНазваниеСервисаService.ServiceExecute(Sender: TService);
var S: String;
hwndHandle : THANDLE;
begin
S:="file.exe";
WinExec(PChar(S),SW_SHOWMINNOACTIVE);
while not Terminated do
ServiceThread.ProcessRequests(True);
hwndHandle:=FindWindow(Nil, "Заголовок ехе файла");
if hwndHandle<>0 then
PostMessage(hwndHandle, WM_QUIT, 0, 0);
end;

Создается File-New...-Service Appication

service Найти похожие ветки