我用delphi写了个服务程序，可是关机的时候就这个服务没反映，也关机不了。

Question

   我用delphi写了个服务程序，可是关机的时候就这个服务没反映，关机也关不了。
请各位大侠支招。

Answer 1

procedure exitwin(var msg:TWMQUERYENDSESSION);message WM_QUERYENDSESSION;
procedure TServer.exitwin(var msg: TWMQUERYENDSESSION);
begin
inherited;
server.Close;
end;
我试过，好像都没有close方法，不知道为什么

Answer 2

另一种途径
命令行用net stop yourServer。
程序中用shellExecute来调用，复杂点的就是调用后等待net命令执行完，再执行关机。