如何编制一个系统服务 ( 积分: 100 )

H

hecz76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-11

• #1

我用Delphi６新建了一个service application,然后直接编译，然后安装，但在服务中启动时，在最后完成时，提示“在本地计算机 无法启动 XXXXXX
错误1053，服务没有及时响应启动或控制请求。”
不知道是什么原因，请大侠帮助哦！

 

H

hecz76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #2

真的就没有高手吗？

 

T

tihu1111

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #3

可能是高手太忙了吧,
你再等等吧.

 

京

京酱肉丝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #4

处理OnStart, OnStop这两个事件
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
Started:= True;
end;

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

就可以了。
可能还要处理OnShutdown事件，不然有可能关闭不了计算机。

 

H

hecz76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #5

问题解决了。原因不很明白
感谢－京酱肉丝的帮助。

 

H

hecz76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #6

散分了。

 

H

hecz76

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-10-12

• #7

多人接受答案了。