Klasör silme

[Husv]

Merhaba,

Yaklaşık 3 önce aşağıdaki kodları kullanarak klasörü siliyordum fakat artık silmiyor ne neden olabilir?

function DeleteFile(const FileName: string): Boolean;
{$IFDEF MSWINDOWS}
begin
  Result := Winapi.Windows.DeleteFile(pChar(FileName));
end;
{$ENDIF MSWINDOWS}

procedure TMainForm.ButtonResetClick(Sender: TObject);
begin
    FDConnection.Connected := False;
    Winapi.Windows.DeleteFile(pChar('C:\Users\Hulya\Documents\PList'));
    MainForm := Nil;
    Application.Terminate; // Close
end;

[mrmarman]

Dönen hata kodunu değerlendirmeli ve ona göre çözüm aramalısınız.

ref : MSDN 

Silebilmeniz için gereken şartlar ;

Alıntı:The following list identifies some tips for deleting, removing, or closing files:

• To delete a read-only file, first you must remove the read-only attribute.
  
• To delete or rename a file, you must have either delete permission on the file, or delete child permission in the parent directory.
  
• To recursively delete the files in a directory, use the SHFileOperation function.
  
• To remove an empty directory, use the RemoveDirectory function.
  
• To close an open file, use the CloseHandle function.
  

Alıntı:Return value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero (0). To get extended error information, call GetLastError.

procedure TMainForm.ButtonResetClick(Sender: TObject);
var
 LSonuc : Cardinal;
begin
   FDConnection.Connected := False;
   LSonuc := Winapi.Windows.DeleteFile(pChar('C:\Users\Hulya\Documents\PList'));
   if LSonuc = 0 then ShowMessage('Error Message: '+ SysErrorMessage(GetLastError));
   MainForm := Nil;
   Application.Terminate; // Close
end;

[COMMANDX]

USES
SHELLAPI;

function DelDir(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
DelDir('C:\DENEME')
end;

[Husv]

(08-02-2023, Saat: 15:10)COMMANDX Adlı Kullanıcıdan Alıntı:

USES
SHELLAPI;

function DelDir(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
DelDir('C:\DENEME')
end;

Teşekkür ederim klasör silindi.

---

(08-02-2023, Saat: 13:50)mrmarman Adlı Kullanıcıdan Alıntı: Dönen hata kodunu değerlendirmeli ve ona göre çözüm aramalısınız.

ref : MSDN 

Silebilmeniz için gereken şartlar ;

Alıntı:The following list identifies some tips for deleting, removing, or closing files:

• To delete a read-only file, first you must remove the read-only attribute.
  
• To delete or rename a file, you must have either delete permission on the file, or delete child permission in the parent directory.
  
• To recursively delete the files in a directory, use the SHFileOperation function.
  
• To remove an empty directory, use the RemoveDirectory function.
  
• To close an open file, use the CloseHandle function.
  

Alıntı:Return value
If the function succeeds, the return value is nonzero.

If the function fails, the return value is zero (0). To get extended error information, call GetLastError.

procedure TMainForm.ButtonResetClick(Sender: TObject);
var
 LSonuc : Cardinal;
begin
   FDConnection.Connected := False;
   LSonuc := Winapi.Windows.DeleteFile(pChar('C:\Users\Hulya\Documents\PList'));
   if LSonuc = 0 then ShowMessage('Error Message: '+ SysErrorMessage(GetLastError));
   MainForm := Nil;
   Application.Terminate; // Close
end;

Hocam hata almıyordum, sizin paylaştığınız kodlarla yapmak istediğimde ise

[dcc64 Error] Main.pas(1379): E2010 Incompatible types: 'Cardinal' and 'LongBool'
[dcc64 Error] Main.pas(1379): E2010 Incompatible types: 'Cardinal' and 'LongBool'
[dcc64 Fatal Error] F2063 Could not compile used unit 'Main.pas'

Hatası aldım.

[mrmarman]

Cardinal yerine longbool yazın isterseniz.

Ayrıca hata almıyorum diyorsunuz ama referans verdiğim MSDN linki açıklamasını okursanız göreceksiniz ki işlem yapılamadıysa sebebi vardır. Sebep ise anladığınız manada hata değildir. Zamanla karşılaştıklarınızla kavrarsınız.

[Husv]

@mrmarman teşekkür ederim bilgilendirme için.

[sabanakman]

Güncel kütüphane fonksiyonlarını da kullanabilirsiniz.

uses System.IOUtils;
..
..
..
TDirectory.Delete('C:\Users\Hulya\Documents\PList');

gibi...