Problem beim Ermitteln von Verzeichnissen über CSIDL

[Mazel]

Hallo,

in MyPC ermittle mit folgender Funktion ein Verzeichnis:

Delphi-Quellcode:

function TMain.GetShellFolder(const CSIDL: Byte): String;
var
 PIDL           : PItemIdList;
 Malloc         : IMalloc;

begin
 if (SHGetMalloc(Malloc) = S_OK) and (SUCCEEDED(SHGetSpecialFolderLocation(Handle, CSIDL, PIDL))) then
  try
   SetLength(Result, MAX_PATH + 1);
   if (SHGetPathFromIDList(PIDL, PChar(Result))) and (PChar(Result) <> '') then Result := IncludeTrailingPathDelimiter(PChar(Result))
   else Result := '';
  finally
   Malloc.Free(pidl);
  end
 else Result := '';
end;

Zudem habe ich ein Array in dem verschiedene CSIDL's enthalten sind. Mein Programm listet diese auf und mit einem Doppelklick kann man diese schnell erreichen. Nun hat aber nicht jedes OS einen bestimmten Ordner, darum muss ich prüfen, ob das Verzeichnis existiert oder nicht. Nun wenn es vorhanden ist, soll es aufgelistet werden. Dies regle ich folgendermaßen:

Delphi-Quellcode:

If DirectoryExists(GetShellFolder(SHELL_CSIDL_DIRS[i])) then
    begin
     SysDirInfo[i].DirName := SHELL_STRING_DIRS[i];
     SysDirInfo[i].DirPath := GetShellFolder(SHELL_CSIDL_DIRS[i]);
     Inc(SysDirCounter);
    end;

Das Problem was hierbei entsteht ist, dass auf manchen Systemen "Geisterverzeichnisse" hinzukommen. Das heißt, eine Leerzeile wird im Programm angezeigt. Wenn man nun darauf einen Doppelklick macht, öffnet sich das Hauptverzeichnis (Root), von dem das Programm gestartet wird (C:\, D:\, etc). Danke an RWarnecke, dem das Phänomen aufgefallen ist. Wenn ein Leerstring zurückgegeben wird, muss doch DirectoryExists False zurückgeben und das Verzeichnis dürft nicht aufgenommen werden.

Was ist hier falsch?

Gruß
Mazel