摘要：
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 阅读全文
