OpenDialog: Ordner öffnen?

[Pseudemys Nelsoni]

hallo,

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

[mirage228]

Zitat:

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

[Matze]

So einfach geht's!

[Pseudemys Nelsoni]

mirage: der code is mir (leider) zu schwer :(

matze: ich habe da nichts gutes gefunden. jedis möchte ich nicht benutzen

[Matze]

Zitat:

Zitat von Pseudemys Nelsoni

matze: ich habe da nichts gutes gefunden. jedis möchte ich nicht benutzen

Äh, wie? Hast du meinen Post gelesen, auf den der Link veist? Nix Jedi, nur eine Delphi-Unit einbinden. ;)

[Matze]

Okay, extra für dich, damit du nicht auf den Link klicken musst. :mrgreen:

Wenn du auf den Link klickt, ist nie die Rede von den Jedis, es erscheint ein Beitrag von mir und dort steht Folgendes:

Delphi-Quellcode:

uses FileCtrl; 
... 
procedure TForm1.Button1Click(Sender: TObject); 
var Pfad: string; 
begin 
  SelectDirectory('Ordner auswählen','',Pfad); 
end;

Der Variable Pfad wird dann der Ordner-Pfad zugewiesen. Es öffnet sich ein Dialog, bei dem man nur Ordner auswählen kann.

Ich verstehe echt nicht, wie du auf die Jedis kommst. :gruebel:

[Pseudemys Nelsoni]

a, jetzt sehe ichs, danke, das ist genau das was ich gesucht habe! :D
Kann man die position noch bestimmen in der das fenster erscheint?

[Matze]

Ich glaube, das geht nicht so einfach, die Box kommt immer unten rechts, ich hätte sie auch gerne etwas weiter in der Mitte. :gruebel: