Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

ÖNEMLİ AÇIKLAMA: MUTLAKA OKUYUNUZ!

« önceki sonraki »
Sayfa: [1]   Aşağı git

Gönderen Konu: Bir Dosyayı Geri Dönüşüm Kutusuna Göndermek  (Okunma sayısı 1238 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı CMNSOFT

  • Kıdemli Üye
  • *****
  • İleti: 82
  • Rep: +2/-2
  • Cinsiyet: Bay
    • http://www.cmnsoft.com
Bir Dosyayı Geri Dönüşüm Kutusuna Göndermek
« : 13 Ekim 2005 14:44:42 »
Kod: Delphi
  1. Function SendToRecycleBin(FileToRecycle: TFilename): boolean;
  2.  
  3. var Struct: TSHFileOpStruct;
  4.  
  5.     pFromc: array[0..255] of char;
  6.  
  7.     Resultval: integer;
  8.  
  9. begin
  10.  
  11.    if not FileExists(FileToRecycle) then begin
  12.  
  13.       Result := False;
  14.  
  15.       exit;
  16.  
  17.    end
  18.  
  19.    else begin
  20.  
  21.       fillchar(pfromc,sizeof(pfromc),0);
  22.  
  23.       StrPcopy(pfromc,expandfilename(FileToRecycle)+#0#0);
  24.  
  25.       Struct.wnd := 0;
  26.  
  27.       Struct.wFunc := FO_DELETE;
  28.  
  29.       Struct.pFrom := pFromC;
  30.  
  31.       Struct.pTo   := nil;
  32.  
  33.       Struct.fFlags:= FOF_ALLOWUNDO;
  34.  
  35.       Struct.fAnyOperationsAborted := false;
  36.  
  37.       Struct.hNameMappings := nil;
  38.  
  39.       Resultval := ShFileOperation(Struct);
  40.  
  41.       Result := (Resultval = 0);
  42.  
  43.    end;
  44.  
  45. end;
Kayıtlı
:::::::::::::::::::: www.CMNSOFT.com ::::::::::::::::::::
Sayfa: [1]   Yukarı git
« önceki sonraki »