delphi解壓zip
1. Delphi中如何執行ZIP文件謝謝!
前提條件:你必須裝有
WinZip
or
WinRAR
等解壓縮軟體,
並且文件已經關聯)即可使用:
樓上兄弟說的
ShellExecute
(記得
use
ShellApi
先)~
2. delphi如何解壓文件
procere TForm1.Button5Click(Sender: TObject);
begin
With myZip do
begin
ZipName := inzip.Text;//ZIP文件名
Destdir:=outdir.Text;//解壓到的目錄
FilesList.Add('*.*');
DoAll := true;
if incpw.Checked then
password:=pwe.Text;//密碼
Recurse := True; //* Recurse directories */
StorePaths := true; //* Keep path information */
DoAll := False;
unzip;
end;
end;
3. delphi XE 10 解壓壓縮文件
沒有的,可以在前端要求加個判斷格式,只有ZIP的才行。或都把.rar的自己轉換成zip
4. 如何使用delphi調用7zip壓縮解壓縮
e 解壓壓縮文件到當前目錄
忽略路徑解壓壓縮的文件到當前或指定的文件夾。此命令行對應的是 壓縮文件管理 命令 解壓到指定文件夾 並在 解壓路徑和選項對話框 「不解壓路徑」的選項是啟用時。
例子:
在當前文件夾,從全部的 RAR 壓縮文件解壓所有的 *.doc 文件到當前文件夾
WinRAR e *.rar *.doc
5. Delphi 解壓文件
很簡單吧,先不帶密碼嘗試解壓一次或者獲取信息一次,如果失敗了就說明有密碼咯。
代碼:
procere TForm1.btn1Click(Sender: TObject);
begin
UnZip1.OnBadPassword:=UnZip1BadPassword;
UnZip1.ArchiveStream:=TFileStream.Create('F:\古書.zip',fmOpenRead);
if UnZip1.CheckArchive then
begin
showmessage('No Pass');
UnZip1.ArchiveStream.Free;
exit;
//無密碼,不解壓
end;
//解壓過程,略。
UnZip1.ArchiveStream.Free;
end;
procere TForm1.UnZip1BadPassword(Sender: TObject; FileIndex: Integer;
var NewPassword: String);
begin
NewPassword:='123456'; //123456是真實的密碼,這一步可以省
end;
6. 求delphi 解壓文件方法【請注意,不是調用winrar來解壓】
不用調用rar用rar裡面提供的控制項就可以了,或者用7z控制項,不用控制項應該不可能實現
7. delphi解壓文件問題
呵呵,,我給你一個解決的辦法吧,看你的代碼就知道你是下載VCLZIP組件。。
建議你用VCLunzip組件:解壓代碼如下:
UnZip1.ZipName:='c:\Upx.zip';//zip所在目錄
UnZip1.ReadZip;
UnZip1.FilesList.Add('*.*');
UnZip1.FilesList.Add(UnZip1.Filename[UnZip1.Count-1] );
UnZip1.DoAll:=false;
UnZip1.DestDir:='c:\';//指定目錄
UnZip1.RecreateDirs := True;
UnZip1.RetainAttributes := True;
UnZip1.UnZip;
要設置解壓時替換原有的文件不彈出提示框,其實很簡單在OverwriteMode屬性設成Always就可以了!!
8. 誰會用delphi寫解壓程序(zip文件)
呵呵,如不雅安裝了winzip這個軟體,可以用它的dll來實現:wzcab3.dllwz32._initunzipunzip_._initCAB_.dllZAMEntryPoint1呵呵,這個由kingron供給的。
9. delphi的VCLZip控制項的解壓問題
ziper.DoAll := True;
ziper.OverwriteMode := Always;
ziper.RelativePaths:=true;//是否保持目錄結構
ziper.AddDirEntriesOnRecurse:=true;
ziper.RecreateDirs:=true;//創建目錄
加上這幾句應該就行了。
vclzip在delphi2010中是無法使用的,在d7中可以正常使用。如果想在d2010中使用,建議在d7下把這些函數封裝成dll,在2010中調用即可。
10. delphi zip 調用的是電腦本機的解壓軟體嗎
這個要看你編寫的具體代碼。
zip 作為一種常用的壓縮文件格式,大多數軟體都實現了對 zip 文件的解壓函數,可以直接調用。比如,在Delphi XE2 中,就新增有 System.Zip 單元, 可以直接用一句代碼就可以壓縮整個文件夾:
TZipFile.ExtractZipFile()//解壓Zip文件到指定文件夾
TZipFile.IsValid()//判斷指定文件是否是有效的Zip文件
TZipFile.ZipDirectoryContents()//壓縮指定路徑下的所有文件
同時,也可以調用系統的解壓縮程序來對 zip 文件進行處理。