VCLzip控件中如何设置覆盖旧文件(80分)

  • 主题发起人 主题发起人 laohe
  • 开始时间 开始时间
L

laohe

Unregistered / Unconfirmed
GUEST, unregistred user!
请问,VCL zip控件中,想将文件解压到c:/dir中,但是文件相同时,不会覆盖旧的文件
,请问如何覆盖旧的文件
 
if FileExists(FileName) then

if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), []) = IDYes then
DeleteFile(FileName);
 
FVCLUnzip := TVCLUnzip.Create(Self);
with FVCLUnzip do
begin
OverwriteMode := Always; //用这个参数就搞定
DoAll := True;
RecreateDirs := True;
end;
 
接受答案了.
 
后退
顶部