delphi 注册系统服务启动时出错！

[jzzm]

怎么解决把一个正常的EXE程序注册成系统服务后能正常启动，我现在注册成功后启动出现1053错误。有没有什么好办法，我需要程序中出现窗体，对话框等。

[cnzdgs]

服务程序初始化时要调用StartServiceCtrlDispatcher，告诉系统该程序的每个服务名称及ServiceMain入口地址，在ServiceMain中调用ResisterServiceCtrlHandlerEx注册回调函数，回调函数中响应各种事件。

[tjg5202]

学习。。。

[无条件为你]

前提是你的EXE要是一个服务工程。而不是普通的exe软件。

[gyk120]

你不能创建Application，而是用Service

[jzzm]

我创建了一个标准的SERVICE程序，但是我如何让它交互，因为我需要程序里含有窗体信息，但是在服务启动后，窗体显示不出来！interactive已设置成TRUE

[lengfengxiaodao]

你要明白 EXE相对的桌面和 SYETEM 服务相对的桌面不是同一个
另外服务跟操作系统也有很大关系的

[jzzm]

那有没有好的办法解决一下？

[lengfengxiaodao]

[Quote=引用 7 楼 jzzm 的回复:]
那有没有好的办法解决一下？

[/Quote]
你该用日志输出，看是调用到哪行代码出错了

[jzzm]

日志空的，里面并没有记录！
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs, Unit2;

type
TSysLock = class(TService)
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServicePause(Sender: TService; var Paused: Boolean);
procedure ServiceShutdown(Sender: TService);
procedure ServiceExecute(Sender: TService);
procedure ServiceContinue(Sender: TService; var Continued: Boolean);
procedure ServiceCreate(Sender: TObject);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

var
SysLock: TSysLock;
Frmlock: TFrmLock;
implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
SysLock.Controller(CtrlCode);
end;

function TSysLock.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TSysLock.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started := True;
SvcMgr.Application.CreateForm(TFrmLock,FrmLock);
//Frmlock.Hide;
end;

procedure TSysLock.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
Stopped := True;
FrmLock.Free;
end;

procedure TSysLock.ServicePause(Sender: TService; var Paused: Boolean);
begin
Paused := True;
end;

procedure TSysLock.ServiceShutdown(Sender: TService);
begin
FrmLock.Free;
Status := csStopped;
ReportStatus();
end;

procedure TSysLock.ServiceExecute(Sender: TService);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;

end;

procedure TSysLock.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin
while not Terminated do
begin
Sleep(10);
ServiceThread.ProcessRequests(False);
end;
end;

procedure TSysLock.ServiceCreate(Sender: TObject);
begin

end;

end.