在delphi6中怎么调用如下外部dos命令:'d:/arj.exe a -jm 1.arj d:/comdebug.exe' ?(100分)

  • 主题发起人 主题发起人 denny97104
  • 开始时间 开始时间
D

denny97104

Unregistered / Unconfirmed
GUEST, unregistred user!
需要用arj.exe压缩一个文件(不要问我为什么不用压缩控件,有原因,我就不说了),程序中需要用到这个压缩后的文件。<br>我用如下得命令,都失败(arj.exe的路径没有问题):<br>winexec(PChar('d:/arj.exe a -jm 1.arj d:/comdebug.exe').sw_show);<br>ShellExecute(Handle,'open',PChar('d:/arj.exe'),PChar('a -jm 1.arj d:/comdebug.exe'),nil,sw_show);<br>在Xp的cmd里面敲命令,显然是对的:'d:/arj.exe a -jm 1.arj d:/comdebug.exe'<br>是不是中间的空格问题,请教大家了!!!!
 
ShellExecute(Handle, 'open', 'cmd', '/c d:/arj.exe a -jm 1.arj d:/comdebug.exe', nil, SW_SHOW);<br> &nbsp;winexec('cmd /c &quot;d:/arj.exe a -jm 1.arj d:/comdebug.exe&quot;', SW_SHOW);
 
用winexec就可以,
 
经过稍微修改,ok如下:<br>压缩:<br> &nbsp;winexec('cmd /c d:/arj.exe a -jm c:/1.arj d:/comdebug.exe', SW_SHOW); &nbsp;<br>解压缩:<br>//设置当前路径<br>SetCurrentDirectorys('c:/');//*.arj的路径<br>winexec('cmd /c d:/arj.exe e c:/1.arj -y', SW_SHOW);
 
接受答案了.
 
后退
顶部