Abdullah 37 Posted November 26, 2010 Share Posted November 26, 2010 Hocam şimdi ben dosyaları masaüstüne çıkartmak istiyorum zip şeklinde. 1) Ben ams de dosyaları şifrele seçeneğini kullanmak istiyorum ama dosyaları çıkart değince, zip şeklinde çıkarmasını ama şifresiz olmasını istiyorum. 2) Dosyaları çıkart değince nereye kaydetmek istersiniz penceresinin gelmesini istiyorum. Link to comment Share on other sites More sharing options...
egemynet Posted November 26, 2010 Share Posted November 26, 2010 dosyayı sıkıstırmak için butonun On Click evresine aşağıdaki kodu yazabilirsin yol = Dialog.FolderBrowse("Lütfen kaydedilecek kalsörü seçiniz:", "AutoPlay\\Docs"); -- dosyayı kaydedeceğin yolu göterir dosya = Dialog.FileBrowse(true, "Sıkıştırılacak dosyayı seçiniz", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false); -- sıkıstırılacak dosyayı seçiniz. Zip.Add(yol .. "\\egemynet.zip", {dosya[1]}, false, "", 5, nil, false); -- dosyayı sıkıstırır. "" aradaki boşluk şifre içindir. zipli dosyayı açmak için yine butonun On Click evresine bu kodu yazın dosya = Dialog.FileBrowse(true, "Çıkarmak istediğiniz dosyayı seçiniz", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false); -- zipli dosyayı seçer nereye = Dialog.FolderBrowse("Lütfen çıkarılacak kalsörü seçiniz:", _DesktopFolder); Zip.Extract(dosya[1], {"*.*"}, nereye, true, true, "", ZIP_OVERWRITE_NEVER, nil); -- masaüstüne açar (dosya şifreli ise "" buraya şifreyi yazmalısınız.) Dialog.FolderBrowse ile klasörü Dialog.FileBrowse ile dosyaları seçerek örnekleri çoğaltabilirsiniz. Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.