中国开发网: 论坛: 程序员情感CBD: 贴子 660791
UnKnow365: [技术贴]在服务里执行外部程序(有界面)
在服务程序里执行外部程序,程序是正确执行了,可是界面却没显示。
用如下代码不行
iRet := winexec(PChar(sAppName), SW_SHOWMAXIMIZED);
if iRet > 31 then Result := True else Result := False;
if not Result then LogAlarmToText('启动' + sAppName + '失败!');
用如下代码一样
hDesktop := GetDesktopWindow;
LogAlarmToText('桌面句柄:' + IntToStr(hDesktop));
iRet := ShellExecute(hDesktop,'open',PChar(sAppName),'',PChar(ExtractFilePath(Paramstr(0))), SW_SHOW);
if iRet > 31 then Result := True else Result := False;
if not Result then LogAlarmToText('启动' + sAppName + '失败!');
有什么好办法?
谢谢了!
日出东海落西山,愁也一天,喜也一天;遇事不钻牛角尖,人也舒坦,心也舒坦。

相关信息:


欢迎光临本社区,您还没有登录,不能发贴子。请在 这里登录