OpenDialog: Ordner öffnen?

[mirage228]

Zitat von Pseudemys Nelsoni:

hallo,

kann ic mit dem Opendialog einen ordner wählen? ich möchte nämlich keine datei öffnen

Hoi,

das geht mit SelectDirectory oder mit der ShellFunktion SHBrosweForFolder

Edit:
SHBrowseForFolder:

Delphi-Quellcode:

uses
  ShlObj;

  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 := nil;
    bi.lParam := 0;
    pidlBrowse := SHBrowseForFolder(bi);
    if (pidlBrowse <> nil) then
      if SHGetPathFromIDList(pidlBrowse, lpBuffer) then
        Result := lpBuffer;
    StrDispose(lpBuffer);
  end;

mfG
mirage228