L laohe Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #1 请问,VCL zip控件中,想将文件解压到c:/dir中,但是文件相同时,不会覆盖旧的文件 ,请问如何覆盖旧的文件
小 小黄鱼 Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #2 if FileExists(FileName) then if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), []) = IDYes then DeleteFile(FileName);
if FileExists(FileName) then if MessageDlg('Do you really want to delete ' + ExtractFileName(FileName) + '?'), []) = IDYes then DeleteFile(FileName);
X xianjun Unregistered / Unconfirmed GUEST, unregistred user! 2002-06-03 #3 FVCLUnzip := TVCLUnzip.Create(Self); with FVCLUnzip do begin OverwriteMode := Always; //用这个参数就搞定 DoAll := True; RecreateDirs := True; end;
FVCLUnzip := TVCLUnzip.Create(Self); with FVCLUnzip do begin OverwriteMode := Always; //用这个参数就搞定 DoAll := True; RecreateDirs := True; end;