读书人

win7上用服务启动XE2生成的VCL窗体显示

发布时间: 2013-01-05 15:20:39 作者: rapoo

win7下用服务启动XE2生成的VCL窗体显示不出来
用一个简单的Windows服务,操作系统启动后能自动启动一些自定义的程序(ini文件配置的)

现在发现一个问题,在Win7下,不能显示XE2的VCL窗体,但是任务管理器有进程存在。

同样的在XP系统,服务能正常启动窗体,并显示出来。


procedure TVCOM.ServiceStart(Sender: TService; var Started: Boolean);
var i:integer;
str: string;
begin
for i:=1 to 5 do
begin
str:= GetDataByINIFile(i);
if Trim(str) <> EmptyStr then
ShellExecute(0,'open',PChar(str), nil, nil,SW_SHOWNORMAL);
end;
end;

[解决办法]
从vista开始就不允许服务程序显示界面了。

读书人网 >.NET

热点推荐