So, jetzt hab ichs:
Wenn pidlRoot = nil ist, dann geht das ganze nicht.
Mit
Delphi-Quellcode:
if (not SUCCEEDED(SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DRIVES,
pidlPrograms))) then exit;
und
pidlRoot:=pidlPrograms;
Funktioniert es.
Gruß und schöne Ostern
Gargano