DELPHI怎样调用WINRAR压缩文件？？？

[lhzongji]

DELPHI怎样调用WINRAR压缩文件？？？

[lhzongji]

WINRAR命令行格式如下，我怎样在DELPHI中SHELL这个命令？
压缩：WINRAR A [-switches] [Files] [@File lists]

解压缩：如果带目录解压缩
　　　　WINRAR X [-switches] [Files] [@File lists] [destionation folder]

[things]

在uses中加入ShellAPI

ShellExecute(handle,'open','命令',null,null,SW_SHOW );

命令= winrar a c:\abc.txt

[lhzongji]

多谢这位兄台，我去调试，成功了我就马上给分

[lhzongji]

好想不行啊

shellexecute(handle,'open','winrar a c:\test.rar c:\test.txt',nil,nil,SW_SHOW)

[lhzongji]

没人帮忙了吗？

[things]

什么错？
shellexecute(handle,nil,'winrar a c:\test.rar c:\test.txt',nil,nil,SW_SHOW)

[lhzongji]

shellexecute(handle,nil,'winrar a c:\test.rar c:\test.txt',nil,nil,SW_SHOW)返回错误代码ERROR_PATH_NOT_FOUND值为2

不过已经解决了。

应该shellexecute(handle,nil,'winrar','a c:\test.rar c:\test.txt',nil,SW_SHOW)

a c:\test.rar c:\test.txt应该作为PARA传递。

多谢这位兄台，我怎么给你分？

[zhksoft]

if shellexecute(handle,nil,'winrar a c:\test.rar c:\test.txt',nil,nil,SW_SHOW)>31
then
....
else
.....