用Winzip32在Delphi執行壓縮範例// 壓縮參數說法 //-min 顯示Winzip畫面最小化 //-a 加上檔案-u 更新檔案 //-p 包括資料夾 //-ex,-en,-ef壓縮比 // FileName.zip(eFileNamezip ) 壓縮檔名(不包括附檔名) // Files (c:\coacc2000) 被壓縮之目錄 eFileNamezip := cDir1 '\STO' cDate; if FileExists(eFileNamezip '.ZIP') then EraseFile(eFileNamezip '.ZIP',doAllowUndo); cDir1:='D:\BackDATA1'; eparameters3:= '-min -a -p -ef ' eFileNamezip3 ' C:\Uninsp1'; eDirectory:='C:\Program Files\WinZip\'; showstyle := SW_SHOWNORMAL; Animatetmp := TAnimate.Create(self); Animatetmp.Parent:=Self; With Animatetmp Do begin Left := 100; Top := 15; //Color := clNone; AutoSize := true; CommonAVI := aviCopyFiles; StartFrame := 1; StopFrame := 23; Active := True; end; Application.ProcessMessages; ShellExec( PChar('open'), PChar(eFilename), PChar(eParameters), PChar(eDirectory), showstyle,false); 感謝本站會友前輩RaynorPao解答我的問題,以上提供我做的範例,請會友 前輩多多指導!最後我有二個問題: 1.二個目錄資料可否同時壓縮? 2.使用-u 參數會出錯,所以我壓縮前先刪除檔案,不知道何故? 如有會友前輩高手知道,請 指點!先謝謝了。 何明昌

------
何明昌

引言: 1.二個目錄資料可否同時壓縮? 2.使用-u 參數會出錯,所以我壓縮前先刪除檔案,不知道何故?

mcho你好: 請參考以下這篇文章