| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Служба в win2k [D6, D7, Win2k]
HAMEL1ON © (2003-04-07 11:59:00)Я сделал программу как сделать так чтоб она запускалась как служба???
Kesha (2003-04-10 16:51:00) [1]\Delphi\Source\Vcl\Scktsrvr.dpr
Это типа пример.
Lord Warlock (2003-04-10 09:46:00) [2]Есть програмка 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, (что бы в панели не болтался :)
Alexandr B. (2003-04-10 09:28:00) [3]2Алексадр Спелицин
Ваши ссылки безусловно полезны но в данном случае не совсем уместны. Думаю, что есть отправлять человека то, в help - раздел "service applications", а не топить в материалах, ориентированных в первую очередь на с++. Тем не менее прочитать их следует каждому зовущему себя програмистом.
Cyborg! (2003-04-10 09:19:00) [4]Неужели это так сложно? Примерчик нельзя приложить?
Алексадр Спелицин (2003-04-10 01:36:00) [5]1. MSDN.
2. Рихтер. Программирование серверных приложений для Windows 2000.
DVM (2003-04-07 12:05:00) [6]Для Win2K изначально надо было делать как сервис. Это в Win98 RegisterServiceProcess.
| |
