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?