Verzeichnis im Startmenü löschen

[moelski]

Moin !

In FileList[j] steht der ganze Pfad also z.B.
C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\LogView V2 Test\Binary\PortmonXP

Einen Wechsel mache ich nicht. Mein Verzeichnis löschen schaut so aus:

Delphi-Quellcode:

  for j := FileList.Count -1 downto 0 do begin
    if IsFolderEmpty(FileList[j]) then begin
      Log('Löschen leeres Verzeichnis : ' + FileList[j], ClMaroon, True);

      Log('Löschen : ' + IntToStr(ShellDelete(FileList[j])), clRed, True);
      //if NOT RemoveDir(FileList[j]) then
      //  Log('Problem beim Löschen : ' + SysErrorMessage(GetLastError), clRed, True);
    end;
  end;