| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
service [Delphi, Windows]
Serge_Blockirator © (2002-10-21 13:34:00)Подскажите, как превратить проект (1 форма) в сервис NT, например, используя модуль service.pas, выложенный на http://bonanzas.rinet.ru/r_servsock.htm
Lord Warlock (2002-10-24 15:48:00) [1]Простой пример, как превратить любой ехе в сервис
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
Vladimir Kladov (2002-10-24 15:40:00) [2]См. приложение Service Starter. Оно как раз любое приложение позволяет запустить как сервис.
Alexander (2002-10-22 14:50:00) [3]Проект превратить в сервис нельзя - надо писать с нуля программу, которая является сервисом.
| |
