Форум: "Система";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
ВнизСлужба в 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", а не топить в материалах, ориентированных в первую очередь на с++. Тем не менее прочитать их следует каждому зовущему себя програмистом.
← →
Lord Warlock (2003-04-10 09:46) [5]Есть програмка 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
Это типа пример.
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c