Merhabalar,*
Köşede bulunsun lazım olur
Exe'nin çalıştığı klasördeki dosya ve klasörü*zip'ler.
uses
**System.IOUtils, System.Zip;
*
var
*Zip: TZipFile;
*Path * *: String;
*SR * * *: TSearchRec;
*LFile: string;
*LZFile: string;
*LPath: string;
begin
* Zip := TZipFile.Create;
* *try
* * *Zip.OnProgress := ZipOnProgress;
* * *Zip.Open(ZipName, zmWrite);
* * *LPath := System.SysUtils.IncludeTrailingPathDelimiter(ExtractFileDir (Application.ExeName));
* * * *for LFile in TDirectory.GetFiles(ExtractFileDir (Application.ExeName), '*', TSearchOption.soAllDirectories) do
* * * * *begin
* * * * * * {$IFDEF MSWINDOWS}
* * * * * * * LZFile := StringReplace(Copy(LFile, Length(LPath) + 1, Length(LFile)), '\', '/', [rfReplaceAll]);
* * * * * * {$ELSE}
* * * * * * * LZFile := Copy(LFile, Length(LPath) + 1, Length(LFile));
* * * * * * {$ENDIF MSWINDOWS}
* * * * * * *if (LZFile ZipName) and (LZFile ExtractFileName(Application.ExeName)) then
* * * * * * *begin
* * * * * * * * *Zip.Add(LFile, LZFile);
* * * * * * * * *Memo1.Lines.Add('Arşivleniyor.. '+ LFile);
Application.ProcessMessages;
* * * * * * *end;
* * * * *end;
* *finally
* * *Zip.Free;
* *end;
end;
procedure ZipOnProgress(Sender: TObject; FileName:String; Heder: TzipHeader;Position: Int64);
begin
* * Label1.Caption := inttostr(Position);
end;
Köşede bulunsun lazım olur
Exe'nin çalıştığı klasördeki dosya ve klasörü*zip'ler.
uses
**System.IOUtils, System.Zip;
*
var
*Zip: TZipFile;
*Path * *: String;
*SR * * *: TSearchRec;
*LFile: string;
*LZFile: string;
*LPath: string;
begin
* Zip := TZipFile.Create;
* *try
* * *Zip.OnProgress := ZipOnProgress;
* * *Zip.Open(ZipName, zmWrite);
* * *LPath := System.SysUtils.IncludeTrailingPathDelimiter(ExtractFileDir (Application.ExeName));
* * * *for LFile in TDirectory.GetFiles(ExtractFileDir (Application.ExeName), '*', TSearchOption.soAllDirectories) do
* * * * *begin
* * * * * * {$IFDEF MSWINDOWS}
* * * * * * * LZFile := StringReplace(Copy(LFile, Length(LPath) + 1, Length(LFile)), '\', '/', [rfReplaceAll]);
* * * * * * {$ELSE}
* * * * * * * LZFile := Copy(LFile, Length(LPath) + 1, Length(LFile));
* * * * * * {$ENDIF MSWINDOWS}
* * * * * * *if (LZFile ZipName) and (LZFile ExtractFileName(Application.ExeName)) then
* * * * * * *begin
* * * * * * * * *Zip.Add(LFile, LZFile);
* * * * * * * * *Memo1.Lines.Add('Arşivleniyor.. '+ LFile);
Application.ProcessMessages;
* * * * * * *end;
* * * * *end;
* *finally
* * *Zip.Free;
* *end;
end;
procedure ZipOnProgress(Sender: TObject; FileName:String; Heder: TzipHeader;Position: Int64);
begin
* * Label1.Caption := inttostr(Position);
end;