不能执行外部命令？以前有不少分的，怎么突然变没有了。

Question

ShellExecute(handle, nil, Pchar('command /k arj a arjfile *.db'), nil, nil, Sw_ShowNormal);

Answer 1

ShellExecute(handle, nil, Pchar('command /k arj a arjfile *.db'), nil, nil, Sw_ShowNormal); 
我试过了，还不行，不知道是什么原因？再请教！！

Answer 2

用 WinExec 试试 WinExec('盘符:\Arj所在路径\arj a arjfile *.db', 1)

Answer 3

ShellExecute(handle, nil, Pchar('盘符:\Arj所在路径\arj.exe  Aarjfile *.db'), nil, nil, Sw_ShowNormal);

Answer 4

ShellExecute(handle, nil, Pchar('command /p arj a arjfile *.db'), nil, nil, Sw_ShowNormal); 

Answer 5

WinExec('盘符:\Arj所在路径\arj a arjfile *.db', 1)
上面这句是能用的，但怎么才能在调用arj后，能够自动关闭dos窗口（即arj压缩提示）呢？
另外有没有办法不产生arj在压缩时的过程呢，因为那种黑色的dos窗口太难看。

Answer 6

WinExec('盘符:\Arj所在路径\arj a arjfile *.db', 0)这样写就不会显示出dos窗口了
另有一个问题就是，怎么才能知道arj压缩结束了呢，必须先判断压缩结束后，再继续执行下面的语句。