Bulunduğu Klasörü Arşivleme

Acoupotan

Forum Üyesi

12 Eki 2022

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;

Türkçe Forum Siteleri

İnternette bilgi paylaşımı ve tartışma ortamı arayanlar için forum siteleri uzun yıllardır popüler bir tercih olmuştur. Her yaştan ve ilgi alanından kullanıcıya hitap eden genel forum siteleri, teknoloji, oyun, kültür ve daha pek çok konuda geniş içerik sunmaktadır. Bu platformlar, katılımcıların hem öğrenme hem de eğlenceli vakit geçirme ihtiyaçlarını karşılamaktadır.

Genel Forum Sitesi

İnternette Türkçe forumlar üzerinden içerik paylaşmak, dil bariyerini ortadan kaldırarak yerel kültüre uygun bir deneyim sunar. Türkçe forum siteleri, kullanıcıların bilgiye kolayca ulaşabileceği, aynı zamanda sosyal ve eğlenceli paylaşımlar yapabileceği platformlar oluşturur. Türkiye'deki internet kullanıcıları için bu forumlar, ilgi çekici konularda derinlemesine sohbetler sunar.

Genel Forum Siteleri

Günlük hayatın stresinden uzaklaşmak isteyenler için eğlenceli forumlar, keyifli bir alternatif sunar. Farklı hobilere ve ilgi alanlarına yönelik içeriklerle dolu olan bu forum paylaşım siteleri, kullanıcılarına samimi bir ortamda vakit geçirme fırsatı sunarken, aynı zamanda yeni insanlarla tanışma imkanı da sağlar. Eğlenceli paylaşımlar ve interaktif etkinliklerle dolu olan bu platformlar, hem öğrenmeyi hem de keyifli vakit geçirmeyi bir arada sunar.

İnternette yeni bir topluluk arayan ya da bilgi alışverişi yapmak isteyenler için genel forum siteleri harika bir başlangıç noktasıdır. Geniş bir kullanıcı kitlesine hitap eden Türkçe forumlar, herkesin ilgisini çekecek konularla doludur. Siz de bu platformlara katılarak, kendi ilgi alanlarınıza uygun başlıklarda sohbetlere katılabilir ve katkıda bulunabilirsiniz.

Not : Lütfen Çekim Paylaşım Forumları için sitemizi kullanmayın.