-
-
[旧帖]
[求助]请教delphi的ShellExecute问题
0.00雪花
-
发表于:
2009-7-15 19:01
2898
-
[旧帖] [求助]请教delphi的ShellExecute问题
0.00雪花
用delphi编写了一个用ShellExecute调用winrar的程序，如下面的代码：
请问如何判断winrar压缩成功呢？
ShellExecute(Handle,nil,'winrar',PChar(' A -r -agYYYY-MM-DD-HH-MM-SS-N ' + BackUp_Dir),nil,SW_SHOWNA );
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | procedure TForm1.N3Click(Sender: TObject);
var
currentpath :string;
BackUp_Dir:string;
begin
BackUp_Dir := currentpath + 'Backup';
currentpath := ExtractFilePath(Application.ExeName); //获取当前路径名
ShellExecute(Handle,nil,'winrar',PChar(' A -r -agYYYY-MM-DD-HH-MM-SS-N ' + BackUp_Dir),nil,SW_SHOWNA );
end;
|
[注意]看雪招聘，专注安全领域的专业人才平台！
