projemde winrar ile sıkıştırma işlemi ile bu dataları şifreleyip sıkıştırmak istiyorum bu örnekte
Edit1.Text ile dosyanın yolunu gösterdigimde sıkıştırma olmuyor
mümkünse bu konudada yardıma ihtiyacım var
mesela
Edit1.Text sıkıştırılacak olan dosyanın yolu ve
Edit2.Text yedeklenecek olan dosyanın yeri
ve şifreleme işlemini nasıl yapabiliriz
şimdiden teşekkürler..
Kod: Tümünü seç
procedure TForm1.Button1Click(Sender: TObject);
var
Zip : TZipFile; // uses zip
begin
Zip:=TZipFile.Create;
try
zip.Open(pansichar('C:\Users\User\Desktop\Yeni klasör\Project1.zip'), zmWrite); // Edit1.Text ile dosyanın yolunu göstermek istiyorum
zip.Add('C:\Users\User\Desktop\Yeni klasör\Project1.exe'); // Edit2.Text yedeklenecek olan dosyanın Yeri göstermek istiyorum
zip.Close;
except
ShowMessage('Dosya Sıkıştırılamadı.!!.');
exit;
end;
FreeAndNil(zip);
end;