没有错误提示的难题? 其他EXE文件只任何一个吗?你自己编一个上去改名成它看看有没有此功能如果是调用自己的Exe就比较好解决 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不论调用哪一个都是一样,也不单单是我机器上,换成别人的机器也一样。其中FileName值是从注册表中读出的EXE文件绝对路径名。 if RegInfo_AnyiProduct.FileName <> '' then szPath := RegInfo_AnyiProduct.FileName + ' -I ' + UserLoginInfo.AccountID + ' -U ' + UserLoginInfo.UserName + ' -P ' + UserLoginInfo.UserPassword + ' -N ' + UserLoginInfo.AccountName + ' -D ' + UserLoginInfo.CurrentDate + ' -S ' + UserLoginInfo.BeginDate + ' -E ' + UserLoginInfo.EndDate ; if szPath <> '' then begin StrPCopy(aryCommand, szPath); case WinExec(aryCommand,SW_SHOWNORMAL) of 0: begin SysMessage('系统资源不足,请关闭一些程序!',mtWarning, [mbOK],0); Exit; end; ERROR_BAD_FORMAT: begin SysMessage('非法可执行文件!',mtError, [mbOK],0); Exit; end; ERROR_FILE_NOT_FOUND: begin SysMessage('找不到可执行文件!',mtError, [mbOK],0); Exit; end; ERROR_PATH_NOT_FOUND: begin SysMessage('找不到可执行文件路径!',mtError, [mbOK],0); Exit; end; end; end; 不可能的!使用winexec? or shellexecute?系统的问题的多 关闭 DELPHI, 再重新启动 DELPHI 重新编译看看...... ~{Ub:COq~}delphi~{5DM(2!0I~}~{>M:COqTZ~}IDE~{OB5wJTJ1?IRT?45=1dA?V5#,~}~{R;5)4r?*3LPr9}6`#(Hg~}winamp~{#)~},~{>M?42;5=AK5wJT~}hint~{AK~}~{=b>v5D7=7(#,?ID\V;SPVX;-~}hint~{AK~}~{NROkUf5DJGO5M3NJLb0I~} 这样吧加上一句application.showhint:='safasf';application.showhint:=true; 你是怎么调用的呢?试试这个:shellexecute(getdesktopwindow,"open","c:\command.com",nil,nil,SW_SHOWNORMAL); 有没有delphi2009的基础教程的哦,我摸了半天觉得有点累呀。 delphi 高手帮忙!帮我看看这个是什么控件 一个送分的小问题,测验的,很简单 ,再发一次 我昨天第一次用ADO,我感觉他和ODBC差不多,你觉得呢? 求救~用什么api才可以取到cpu的频率,型号~ 9999999999999999 消隱問題,請高手解決 delphi下用speech sdk保存wav文件出错 数据库相关的问题(连接后缀名的参数相关问题)急急!!! 如何让EDIT控件有Alignment属性,不要别的控件 显示? tab健的键值是什么 谁能给我个在DBGrid添加ComboBox的例子代码? 50分
其中FileName值是从注册表中读出的EXE文件绝对路径名。 if RegInfo_AnyiProduct.FileName <> '' then
szPath := RegInfo_AnyiProduct.FileName +
' -I ' + UserLoginInfo.AccountID +
' -U ' + UserLoginInfo.UserName +
' -P ' + UserLoginInfo.UserPassword +
' -N ' + UserLoginInfo.AccountName +
' -D ' + UserLoginInfo.CurrentDate +
' -S ' + UserLoginInfo.BeginDate +
' -E ' + UserLoginInfo.EndDate ;
if szPath <> '' then
begin
StrPCopy(aryCommand, szPath);
case WinExec(aryCommand,SW_SHOWNORMAL) of
0:
begin
SysMessage('系统资源不足,请关闭一些程序!',mtWarning, [mbOK],0);
Exit;
end;
ERROR_BAD_FORMAT:
begin
SysMessage('非法可执行文件!',mtError, [mbOK],0);
Exit;
end;
ERROR_FILE_NOT_FOUND:
begin
SysMessage('找不到可执行文件!',mtError, [mbOK],0);
Exit;
end;
ERROR_PATH_NOT_FOUND:
begin
SysMessage('找不到可执行文件路径!',mtError, [mbOK],0);
Exit;
end;
end;
end;
~{>M:COqTZ~}IDE~{OB5wJTJ1?IRT?45=1dA?V5#,~}
~{R;5)4r?*3LPr9}6`#(Hg~}winamp~{#)~},~{>M?42;5=AK5wJT~}hint~{AK~}
~{=b>v5D7=7(#,?ID\V;SPVX;-~}hint~{AK~}~{NROkUf5DJGO5M3NJLb0I~}
加上一句
application.showhint:='safasf';
application.showhint:=true;
试试这个:
shellexecute(getdesktopwindow,"open","c:\command.com",nil,nil,SW_SHOWNORMAL);