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