Forum: Win32/Win64 API (native code)
Delphi
by gargano,
10. Apr 2009
War noch nicht der Weisheit letzter Schluß, weil damit die Folder eingeschränkt werden.
Nach einigen Suchen, meine ich daß ich die Lösung hätte :
Schuld ist der CoInitialize(nil) der als internen Parameter COINIT_APARTMENTTHREADED hat.
verwendet man den
CoInitializeEx(nil,COINIT_MULTITHREADED);
dann gehts es.
Forum: Win32/Win64 API (native code)
Delphi
by gargano,
10. Apr 2009
So, jetzt hab ichs:
Wenn pidlRoot = nil ist, dann geht das ganze nicht.
Mit
if (not SUCCEEDED(SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DRIVES,
pidlPrograms))) then exit;
Forum: Win32/Win64 API (native code)
Delphi
by gargano,
10. Apr 2009
OK, Zip hängt dran.
Jetzt habe ich das ganze nochmal in der VMWare getestet, dort ist XP mit SP2 und dort wird der alte DialogStyle angezeigt, mit dem Ergebnis, das es geht.
Also nur bei dem neuen Style tritt der Effekt auf.
Gruß
Gargano
Forum: Win32/Win64 API (native code)
Delphi
by gargano,
10. Apr 2009
Hallo Luckie,
Das passiert immer dann wenn SHBrowseForFolder mit BIF_NEWDIALOGSTYLE aufgerufen wird, egal ob ich abbreche oder OK drücke.
Passiert auch bei Delphi 6.
Das Lustige ist, unter Vista wird er alte Style angezeigt, aber das nur am Rande.
Gruß
Werner