Delete Files & Folders

uses ShellApi

//

function DeleteFile(const AFile: string): boolean;
var
 sh: SHFileOpStruct;
begin
 ZeroMemory(@sh, sizeof(sh));
 with sh do
   begin
   Wnd := Application.Handle;
   wFunc := fo_Delete;
   pFrom := PChar(AFile +#0);
   fFlags := fof_Silent or fof_NoConfirmation;
   end;
 result := SHFileOperation(sh) = 0;
end;

Beispiele :

procedure TForm1.Button1Click(Sender: TObject);
begin
  // UM DATEIEN ZU LÖSCHEN
 DeleteFile('c:\temp.tmp');  
  // UM ORDNER ZU LÖSCHEN
 DeleteFile('c:\temp');
  // UM ALLE DATEIEN IN EINEM ORDNER ZU LÖSCHEN
 DeleteFile('c:\temp\*.*');
end;