Dateien und Ordner löschen

[KLS]

Delphi-Quellcode:

function loeschePfad(pfad : string) : Boolean;
var
  fos : TSHFileOpStruct;
begin 
  ZeroMemory(@fos,SizeOf(fos));
  fos.wFunc := FO_DELETE;
  fos.fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
  fos.pFrom := PChar(pfad + #0);
  Result := ShFileOperation(fos) = 0;
end;