leeren Ordner mit RemoveDir löschen

[maximus Caesar]

Hallo!
Ich habe einen Ordner in meinem Startmenü (Start->Alle Programme) den ich mit RemoveDir löschen möchte.
Ich mache das so:
Ordner Leeren:

Delphi-Quellcode:

procedure TForm1.AlleDateienlöschen(Pfad:String);
var i:Integer;
begin
  FileListBox1.Directory:=Pfad;
  if FileListBox1.Items.Count>0 then begin
    for i:=0 to FileListBox1.Items.Count-1 do begin
      DeleteFile(Pfad+'\'+FileListBox1.Items[0]);
      FileListBox1.Update;
    end;
  end;
end;

Ordner finden:

Delphi-Quellcode:

function TForm1.GetStartmenuePath: String;
var LPidl: PItemIDList;
    LPath: Array[0..MAX_PATH] of Char;
begin
  if SUCCEEDED(SHGetSpecialFolderLocation(0, CSIDL_STARTMENU, LPidl)) then
  begin
    SHGetPathFromIDList(LPidl, @LPath);
    result := String(LPath);
  end else
    result := '';
end;

Pfad stimmt, Ordner ist leer.

So wird er gelöscht:

Delphi-Quellcode:

procedure TForm1.frdenaktuellenBenutzerentfernen1Click(Sender: TObject);
var Ordner:String;
    a:Integer;
begin
  Ordner:=GetStartMenuePath;
  DirectoryListBox1.Directory:=Ordner;
  a:=DirectoryListBox1.Items.Count-1;
  Ordner:=DirectoryListBox1.GetItemPath(a);
  Ordner:=Ordner+'\Geburtstagskalender';
  AlleDateienLöschen(Ordner);
  Showmessage(Ordner+'\');
  if (RemoveDir(Ordner+'\')) then MessageDLG('Ordner erfolgreich gelöscht',mtInformation,[mbOK],0)
  else MessageDLG('Ordner konnte nicht gelöscht werden!',mtWarning,[mbOK],0);
end;

Obwohl der Ordner leer ist, wird er nicht gelöscht.
Woran kann das liegen?

[jim_raynor]

Vielleicht solltest du den Backslash bei RemoveDir wegmachen.

[maximus Caesar]

HAb ich als erstes gehabt, da hats auch net funktioniert.
Dann hab ich den Backslash hinzugefügt, dannach hats genau ein mal funktioniert....

Edit: habs grad nochmal ohne probiert, bring aber nichts.
Wie gesagt, der Ordner wird geleert, aber nicht gelöscht

[maximus Caesar]

Hat jemand ne Idee?

[smart]

Zitat:

Zitat von maximus Caesar

Hat jemand ne Idee?

Kann es sein, dass Du eine Datei in Deinem Programm noch nicht geschlossen hast? Wenn das mit dem löschen nicht geht, ist meist noch wo ein Zugriff auf Datei oder Verzeichniss. Schau mal nach.

[maximus Caesar]

habs grad gefunden.
Es liegt an der Prozedur zum Datei Löschen.
ICh hab jetzt einfach hinzugefügt, das wenn alle dateien gelöscht sind, das Verzeichnis auf das des Programmes selber gestellt wird.
Jetzt funzt alles!