SHBrowseForFolder und Pfadangabe

[Baeuerle]

Hallo zusammen,

habe das Problem, dass ich bei einem Auswahldialog die Selektion auf einen bestimmten Ordner stellen möchte.

Delphi-Quellcode:

function OpenFolder(Root: Integer; const Caption: string): string;
var
  bi: TBrowseInfo;
  lpBuffer: PChar;
  pidlPrograms, pidlBrowse: PItemIDList;
begin
  if (not SUCCEEDED(SHGetSpecialFolderLocation(GetActiveWindow, Root,
    pidlPrograms))) then
    exit;
  lpBuffer := StrAlloc(MAX_PATH);
  bi.hwndOwner := GetActiveWindow;
  bi.pidlRoot := pidlPrograms;
  bi.pszDisplayName := lpBuffer;
  bi.lpszTitle := PChar(Caption);
  bi.ulFlags := BIF_RETURNONLYFSDIRS;
  bi.lpfn := @BrowseCallbackProc;
  bi.lParam := 0;
  pidlBrowse := SHBrowseForFolder(bi);
  if (pidlBrowse <> nil) then
    if SHGetPathFromIDList(pidlBrowse, lpBuffer) then
      Result := lpBuffer;
  StrDispose(lpBuffer);
end;

Hat jemand eine idee???

Danke

[Baeuerle]

Hab es selbst herausgefunden!

Wen´s interessiert:

SendMessage(BrowseHandle,BFFM_SETSELECTION, Ord(True), Integer(PChar(sPath)));

[runger]

Hallo,

bitte poste doch nocheinmal den ganzen Code (alles was man zum Verständnis des Problems braucht). Mich interessiert vor allem die Uses Zeile.
Wie hast du die Lösung hinbekommen?

Wenn man schon fragt, dann gebietet es der Anstand, dass man den ganzen Code ins Forum stellt.
Nicht jeder ist so helle, dass er deine Codeschnipsel versteht.

Rainer

[Daniel G]

Zitat:

Zitat von runger

Mich interessiert vor allem die Uses Zeile.

Welche Funktion findet er denn nicht? :stupid:

[_frank_]

wenn ich shlobj einbinde funktioniert es.
jedoch bin ich noch nicht dahintergekommen, wie die BrowseCallbackProc aussehen muss..
Denn wenn ich die verwenden will, kommt immer eine Zugriffsverletzung.
Wie sieht die bei dir aus?

//edit: habs gefunden, du beziehst dich auf diesen Artikel (nur das man noch "or BIF_STATUSTEXT" zu den ulFlags hinzufügen muss)...
http://www.delphipraxis.net/internal...t.php?p=165971

Gruß Frank

[Christian S.]

Hallo!

Hier gibt es eine FolderBrowser-Klasse, die von mehreren Leuten (u.a. Luckie, MathiasSimmack und mir) erstellt wurde:
http://www.delphi-forum.de/viewtopic.php?t=27628

Neben einem vorausgewählten Ordner unterstützt die Klasse auch das festlegen der Dialog-Position, das Filtern der angezeigten Dateien (falls Dateien angezeigt werden) und das Übersetzen von Advertised ShortCuts.

Grüße
Christian