Verzeichnis und Dateien löschen

[Cuchulainn]

Ich lege in meinem Programm ein Verzeichnis "Temp" an, in dem ich temporär Dateien speichern will. Wenn das Programm beendet wird, sollen die Dateien und das Verzeichnis gelöscht werden.
Ich habe mir dafür folgende Funktion gebaut:

Delphi-Quellcode:

procedure PDelTemp;
var SearchRec: TSearchRec;
    StrDir: String;
begin
  StrDir := ExtractFilePath(ParamStr(0)) + 'Temp';
  try
    if FindFirst(StrDir + '\*.*', faAnyFile, SearchRec) = 0 then
    begin
      while FindFirst(SearchRec) = 0 do
      begin
        if (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
           DeleteFile(StrDir, + '\' + SearchRec.Name);
      end;
    end;
    // Das Verzeichnis ist leer und soll jetzt gelöscht werden
    RemoveDirectory(StrDir);
  finally
    SearchRec.Free  
  end;
end;

Das Verzeichnis wird ohne Probleme geleert, aber es wird nicht gelöscht. Weiß jemand, wo der Fehler liegt?

[MathiasSimmack]

Die einfachste Möglichkeit: SHFileOperation

[markon]

evtl. hilft dir das...