|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Служба Service Application не запускается
Delphi 7, XP-SP2+
Делаю File \ New \ Other \ Service Application В DisplayName пишем например 1111 В Allow Pause - False Компилируем В Службах ничего нет с именем 1111 Что может быть? Служба не запускается Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs; type TService1 = class(TService) private { Private declarations } public function GetServiceController: TServiceController; override; { Public declarations } end; var Service1: TService1; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin Service1.Controller(CtrlCode); end; function TService1.GetServiceController: TServiceController; begin Result := ServiceController; end; end. Есть желание, но нет учителя, есть мотивация, но нет концентрации, есть голова, но нет девушки программистки Последний раз редактировалось Admin, 04.10.2008 в 12:15. |
#2
|
|||
|
|||
Вообще-то, после компиляции службу надо зарегистрировать - запустить с ключем /install. Вот тогда она появится.
|