[阅读: 622] 2008-07-29 07:20:44
在服务程序里执行外部程序,程序是正确执行了,可是界面却没显示。
用如下代码不行
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 + '失败!');
有什么好办法?
谢谢了!
