[code delphi]
procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin
datathread := th.Create(false);
codesite.sendmsg('on start ...');
timer1.Enabled := true;
started := true;
codesite.sendmsg('on start ok');
end;
procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin
codesite.sendmsg(' ServiceStop ');
timer1.Enabled := false;
datathread.Terminate;
stopped := true;
end;

[/code]
将此exe注册成功后，在windows服务里面点击启动、停止等按钮，都没有响应，是什么原因呢？

程序里面start里有codesite.sendmsg命令以，就是不执行，是什么原因呢？

谢谢.

附加檔案：4e81e4e8d0272_service.rar

怎么没人回复呢？