Сервисы в Delphi

← →
zdn © (2003-10-09 13:15) [0]

Подскажите, пожалуйста, можно ли програмно проинталлировать
созданный сервис, если да, то как отключить окно о том , что
сервис удачно проинстален.

← →
Polevi © (2003-10-09 13:21) [1]

окно это VCL выводит, посмотри как сделано у Borland и убери лишнее

← →
clickmaker © (2003-10-09 13:29) [2]

/INSTALL /SILENT

← →
zdn © (2003-10-09 13:29) [3]

Наверно, не правильно выразился!
Я создаю Service Application
Потом из командной строки запускаю srv.exe -install
и тогда выпадает окно. Я так понимаю это окно не VCL
а винды.
И в догонку еще вопросик, а можно ли как-то не только программно инстллировать сервис, но и сразу запускать (Состояние RUN)?
Заранее благодарен.

← →
clickmaker © (2003-10-09 13:30) [4]

Если через API, то CreateService, StartService

← →
zdn © (2003-10-09 13:32) [5]

> /INSTALL /SILENT

спасибо!!
А как насчет переводить в RUN/ Может и это когда-нибудь делали!!!

← →
zdn © (2003-10-09 13:34) [6]

> clickmaker © (09.10.03 13:30) [4]
> Если через API, то CreateService, StartService

Если не затруднит немного подробней!!
Заранее благодарен!!!!

← →
clickmaker © (2003-10-09 13:42) [7]

var hSCManager, hService: SC_HANDLE; ss: SERVICE_STATUS; dwDesiredState, dwOldCheckPoint: DWORD; Args: PChar; Res: LongBool; hSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS); hService := OpenService(hSCManager, PChar(ServiceName), SERVICE_ALL_ACCESS); Res := StartService(hService, 0, Args) if Res then begin QueryServiceStatus(hService, ss); while (ss.dwCurrentState <> dwDesiredState) do begin dwOldCheckPoint := ss.dwCheckPoint; Sleep(5000); if not QueryServiceStatus(hService, ss) then Break; if (dwOldCheckPoint >= ss.dwCheckPoint) then Break; end; CloseServiceHandle(hService); CloseServiceHandle(hSCManager);

← →
zdn © (2003-10-09 13:43) [8]

> clickmaker © (09.10.03 13:42) [7]
> var
> hSCManager, hService: SC_HANDLE;
> ss: SERVICE_STATUS;
> dwDesiredState, dwOldCheckPoint: DWORD;
> Args: PChar;
> Res: LongBool;
>
> hSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
> hService := OpenService(hSCManager, PChar(ServiceName),
> SERVICE_ALL_ACCESS);
> Res := StartService(hService, 0, Args)
> if Res then begin
> QueryServiceStatus(hService, ss);
>
> while (ss.dwCurrentState <> dwDesiredState)
> do begin
> dwOldCheckPoint := ss.dwCheckPoint;
> Sleep(5000);
> if not QueryServiceStatus(hService, ss) then
> Break;
> if (dwOldCheckPoint >= ss.dwCheckPoint) then
> Break;
> end;
> CloseServiceHandle(hService);
> CloseServiceHandle(hSCManager);

Извини за тупость, а куда его вставить!!!
Заранее благодарен!!!

Ну если из командной строки, то можно проще: написать батник

srv.exe /INSTALL /SILENT net start srv

и запускать этот батник

Огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Сервисы в Delphi Найти похожие ветки