Текущий архив: 2003.06.30;
Скачать: CL | DM;
Вниз
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. Оно как раз любое приложение позволяет запустить как сервис.
← →
Lord Warlock © (2002-10-24 15:48) [3]Простой пример, как превратить любой ехе в сервис
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
Страницы: 1 вся ветка
Текущий архив: 2003.06.30;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.019 c
