首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

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

2013-01-05 
win7下用服务启动XE2生成的VCL窗体显示不出来用一个简单的Windows服务,操作系统启动后能自动启动一些自定

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开始就不允许服务程序显示界面了。

热点排行