2013年12月23日
Delphi中调用API函数Winexec执行WinRar命令行压缩工具执行压缩
摘要： function tform1.RarFile:Boolean;var FileName,RarName,mystr:string;begin Result:=False; mystr:=ExtractFilePath(Application.ExeName)+'WinRar\WinRar.exe -INUL'; FileName:=ExtractFilePath(Application.ExeName)+'Excel\*.*'; RarName:=ExtractFilePath(Application.ExeName)+'RarFile\WeeklyR 阅读全文
posted @ 2013-12-23 09:49 vage_fang 阅读(695) 评论(0) 推荐(0)