Delphi 解壓文件

很簡單吧，先不帶密碼嘗試解壓壹次或者獲取信息壹次，如果失敗了就說明有密碼咯。

代碼：

procedure 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;

procedure TForm1.UnZip1BadPassword(Sender: TObject; FileIndex: Integer;

var NewPassword: String);

begin

NewPassword:='123456'; //123456是真實的密碼，這壹步可以省

end;

上一篇:Ubuntu Linux 安裝軟件時總顯示“未發現軟件包”，請問如何解決？

下一篇:蘇寧易付寶支付密碼被鎖定。