您的位置：程序门 -> delphi -> 网络通信/分布式开发

windows服务程序无法显示界面．在线等．

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

windows服务程序无法显示界面．在线等．

发表于：2007-07-04 14:22:01 楼主

rt，这个是服务程序是在远程服务器上运行的，用远程桌面进去的话，无法显示服务程序的界面，本地电脑里测试是没有问题，求解
代码如下：
procedure servicecontroller（ctrlcode: dword); stdcall;
begin
sspp.controller（ctrlcode);
end;

function tsspp.getservicecontroller: tservicecontroller;
begin
result := servicecontroller;
end;

procedure tsspp.servicestart（sender: tservice; var started: boolean);
begin
started:=true;
svcmgr.application.createform（tmainform1,mainform1);
mainform1.hide;
end;

procedure tsspp.servicestop（sender: tservice; var stopped: boolean);
begin
stopped:=true;
mainform1.free;
end;

procedure tsspp.servicecontinue（sender: tservice; var continued: boolean);
begin
while not terminated do
begin
sleep（10);
servicethread.processrequests（false);
end;
end;

procedure tsspp.serviceＥＸＥＣute（sender: tservice);
begin
while not terminated do
begin
sleep（10);
servicethread.processrequests（false);
end;
end;

procedure tsspp.servicepause（sender: tservice; var paused: boolean);
begin
paused := true;
end;

procedure tsspp.serviceshutdown（sender: tservice);
begin
mainform1.free;
status := csstopped;
reportstatus（);
end;

发表于：2007-07-13 16:11:251楼得分:0

所在的桌面不一樣, 解決方法我也沒想到，把與桌面交互這個功能打開呢？

发表于：2007-07-23 17:57:092楼得分:0

在服务属性里面把　允许服务与桌面交互　　打勾

下一篇：一个关于远程访问access数据库的问题,在线等,很急.!!!!!!!!!
上一篇：关于使用indy10 的tidtcpclient传送结构的问题。

其他资讯