Wenn ich das Flag so ändere :
Delphi-Quellcode:
with BrowseInfo do
begin
hwndOwner := hOwn;
pidlRoot := RootItemIDList;
pszDisplayName := Buffer;
lpszTitle := PChar(Caption);
ulFlags := $00000004 + uFlag;
lpfn := @BrowseCallbackProc;
lParam := Integer(PChar(Path));
end;
Das funktioniert aber trotzdem nicht oder habe ich das verkehrte Flags geändert.