Dosya ve Klasör işlemleri Kes ,Kopyala, Yapıştır

Yazan:
6 Ekim 2010
Reklam Alanı

uses shellapi

function movefolder(xvon,zielfolder: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_MOVE;
fFlags := FOF_FILESONLY;
pFrom := PChar(xvon+#0);
pTo := PChar(zielfolder)
end;
Result:=(0=ShFileOperation(fos));
end;
function copyfolder(xvon,zielfolder: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_COPY;
fFlags := FOF_FILESONLY;
pFrom := PChar(xvon+#0);
pTo := PChar(zielfolder)
end;
Result:=(0=ShFileOperation(fos));
end;

function delfolder(dir: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir+#0);
end;
Result:=(0=ShFileOperation(fos));
end;

// Kullanımı
procedure TForm1.Button1Click(Sender: TObject);
begin
{‘D:\download’ -> ‘E:\’}
if copydir(‘c:\deneme,’e:\’) then
begin
ShowMessage(‘Kopyalama basarili’);
end;

Etiketler : Delphide kes kopyala yapıştır , delphide klasör işlemleri , delphide dosya işlemleri, delphide dosya kesme, delphide dosya kopyalama, delphide dosya yapıştırma

administrator2009-08-24 00:40:53

Benzer Yazılar:

  1. ListView içeriğini Dosyaya Kaydetmek ve Açmak
  2. CxGrid de Arama Yapmak
  3. İnternet Adresi Aktifmi Kontrol Etmek
  4. Metnin İçerisindeki Kelime Sayısını Bulan Kod
  5. Metin İçerisinden Bir Karakter Silmek
  6. Sayılara Binde Ayracı Eklemek
  7. Tüm Dosya ve Klasörlerin Listesini Almak
  8. Yazılan Fiyatı Metine Çevirmek
  9. Dosya Uzantısından Programın Tespiti
  10. Çalışma anında .db veya .mdb uzantılı veri tabanı oluşturmak
 Etiketler:
Borland Delphi

Eğer yazıyı beğendiyseniz ya da ekleyecekleriniz varsa, lütfen yorumunuz yazın veya RSS aboneliği ile yeni yazılardan anında haberdar olun.

“Dosya ve Klasör işlemleri Kes ,Kopyala, Yapıştır”
Konusu için 1 Yorum



---------------------------------------------------------------------------------------------------------------------------------
  1. cihat özdemir diyor ki:
    13 Ocak 2011, 13:50

    “düzeltme” : copydir değil copyfolder olacak tıkladığımızda çalışacak kodun hali.

    windows7 de ve xp de denenmiştir kod çalışmakta….


---------------------------------------------------------------------------------------------------------------------------------

Yorum yapın

Güvenlik Kodunun Resmi
*

Gizlilik Politikası