关于等待压缩软件执行完成的问题
shellexecute(handle,nil, 'winrar', PChar('a '+ExtractFilePath(Application.ExeName)+ParamsList[0]+'.rar '+ExtractFilePath(Application.ExeName)+ParamsList[0]),nil,SW_SHOW);

我用这个来压缩文件，压缩完成后客户端通过FTP从服务器下载，请问应该如何等待执行完成，如果用CreateProcess+WaitForSingleObject的话，CreateProcess里面如何给winrar传参数，麻烦大家了

[解决办法]
//把文件夹 Bitmaps 中全部的文件添加到 RAR 压缩文件 Pictures 中:
WinExecAndWait32('WinRAR a Pictures.rar Bitmaps', SW_NORMAL);