Browseforfolder und Delphi 2007

[gargano]

Hi,

ich kämpfe gerade mit SHBrowseForFolder und Delphi 20007 herum.
Wenn ich BIF_NEWDIALOGSTYLE setze und das Programm aufrufe, danach SHBrowseForFolder aufrufe
ist bis hierhin alles wunderbar : Dialog wird angezeigt. Dann schließe ich den Dialog und schließe
das Programm. Doch jetzt kommt das Problem : Im Task Manager bleibt noch der Process der Applikation vorhanden.

In der IDE wird das Pogram nicht beendet.

Betriebssystem ist XP SP3.

Hat jemand schon mal das Problem gehabt ?

Viele Grüße und schöne Ostern

Gargano

[Luckie]

Ist das auch der Fall, wenn du den Dialog nicht öffnest? Oder leigt es an dem Code, der ausgeführt wird, nach dem der Dialog mit OK geschlossen wurde? Passiert das auch, wenn der Dialog abgebrochen wurde? Weil, dass es am Dialog liegt, kann ich mir nicht vorstellen.

[gargano]

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

[Luckie]

Häng mal ein Demoprogramm mit Quellcode an. Ich will mal testen, ob das auch auf meinem System passiert.

[gargano]

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

[gargano]

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

Delphi-Quellcode:

pidlRoot:=pidlPrograms;

Funktioniert es.

Gruß und schöne Ostern

Gargano

[Luckie]

Da hat MS geschlampt. Wenn pidlRoot nil ist, müsste die Funktion einen default Wt nehmen. Zumindest hätte ich es so gemacht.

[gargano]

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

Delphi-Quellcode:

CoInitializeEx(nil,COINIT_MULTITHREADED);

dann gehts es.

Gruß
Gargano

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]