读书人

怎么实现NT服务程序可视化

发布时间: 2012-03-22 17:43:57 作者: rapoo

如何实现NT服务程序可视化
各位大虾,我自己编了一个NT服务程序,可是怎样能做到可视化,完成
与用户的交互呢?书上说添加窗体,可是我直接添加了也不行呀!

[解决办法]
var
Service1: TService1;

implementation

uses Unit2;

{$R *.DFM}

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

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

procedure TService1.ServiceCreate(Sender: TObject);
begin
Form2 := TForm2.Create(application);
Form2.ShowModal;
end;
[解决办法]
应该要设置成与桌面交互才行
[解决办法]
我有一个实例

读书人网 >.NET

热点推荐