shellexecute(handle,'open','winrar','A C:\test1.rar C:\test1.txt',nil,SW_SHOWNOACTIVATE);
while not fileexists('c:\test1.rar') do begin
application.ProcessMessages;
end;
UploadFileToFTP('c:\test1.rar');
...全文
22010打赏收藏
急!怎样判断shellexecute函数调用的程序执行完毕?
shellexecute(handle,'open','winrar','A C:\test1.rar C:\test1.txt',nil,SW_SHOWNOACTIVATE); while not fileexists('c:\test1.rar') do begin application.ProcessMessages; end; UploadFileToFTP('c:\test1.rar');
while not fileexists('c:\test1.rar') do begin
application.ProcessMessages;
end;
这段代码是没用的,你留意过winrar就应该知道,一开始压缩,它就会生成.rar文件,并不是压缩完了再生成,所以只能用另外的方法了,我也不知道,学习一下