Служба в win2k

← →
HAMEL1ON © (2003-04-07 11:59) [0]

Я сделал программу как сделать так чтоб она запускалась как служба???

← →
DVM © (2003-04-07 12:05) [1]

Для Win2K изначально надо было делать как сервис. Это в Win98 RegisterServiceProcess.

← →
Алексадр Спелицин (2003-04-10 01:36) [2]

1. MSDN.
2. Рихтер. Программирование серверных приложений для Windows 2000.

← →
Cyborg! (2003-04-10 09:19) [3]

Неужели это так сложно? Примерчик нельзя приложить?

← →
Alexandr B. (2003-04-10 09:28) [4]

2Алексадр Спелицин
Ваши ссылки безусловно полезны но в данном случае не совсем уместны. Думаю, что есть отправлять человека то, в help - раздел "service applications", а не топить в материалах, ориентированных в первую очередь на с++. Тем не менее прочитать их следует каждому зовущему себя програмистом.

Есть програмка RuAsService, позволяющая запускать любую программу как сервис. Лежит где-то в инете, адрес не помню.

Ну и вот простенький пример как запустить программу (естественно она должна что-то делать, если простой ЕХЕ, будет висеть и жрать память)

Делаешь
New Application->Service

и перекрываешь метод Execute

procedure THaspRunnerService.ServiceExecute(Sender: TService); var W: array [0..MAX_PATH] of Char; S: String; hwndHandle : THANDLE; begin if GetSystemDirectory(W,MAX_PATH)=0 then ServiceThread.Terminate; S:=W+"\Nhsrvw32.exe"; WinExec(PChar(S),SW_SHOWMINNOACTIVE); while not Terminated do ServiceThread.ProcessRequests(True); hwndHandle:=FindWindow(Nil, "NetHASP License Manager for Win32 "); if hwndHandle<>0 then PostMessage(hwndHandle, WM_QUIT, 0, 0); end;

как видно, этот сервис запускает менеджер лицензий HASP, (что бы в панели не болтался :)

← →
Kesha (2003-04-10 16:51) [6]

\Delphi\Source\Vcl\Scktsrvr.dpr
Это типа пример.

Служба в win2k Найти похожие ветки