Hier mal ein Schnipselchen dazu:
löscht Dateien und Verzeichnisse (incl. Subdirs)
Delphi-Quellcode:
function RM(FileName: string): Boolean;
var
fos: TSHFileOpStruct;
begin
FileName := ExcludeTrailingPathDelimiter(FileName);
ZeroMemory(@fos, SizeOf(fos));
with fos do
begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION; // für Fehlermeldungen FOF_NOCONFIRMATION weglassen
pFrom := PChar(FileName + #0);
end;
Result := (0 = ShFileOperation(fos));
end;