Nur Pfad - Opendialog

[Jonson]

Hi,

wie kann ich mit Hilfe OpenDialogs eine Pfadangabe in ein Editfeld bekommen?

Mit freundlichen Grüßen

Jonson

[thomasdrewermann]

Hiermit:

Code:

if opendialog1.execute then
label1.caption:=ExtractFileDir(opendialog1.filename);

In diesem Code-Beispiel ist auf einem Formular label1 und opendialog1 vorhanden.
Wird der obige Code ausgeführt, öffnet sich ein Opendialog, und der Pfad der Ermittelten Datei wird herausgefiltert....

MFG
Thomas

[Jonson]

@thomasdrewermann: Danke

Jonson

[Luckie]

Wie geht das, wenn das Verzeichnis leer ist?

Hier etwas Coder für einen Dialog zum Auswählen eines Verzeichnises:

Code:

uses shlobj;


function TfrmMain.OpenFolder(root: Integer; Caption: string): string; //Verzeichnis-Öffnen-Dialog-Funktion
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;

procedure TfrmMain.cmdOpenClick(Sender: TObject);
begin
  txtPath.Caption := OpenFolder(CSIDL_DRIVES, 'Verzeichnis wählen'); //Übergabe des gewählten Verzeichnisses
end;

[Jonson]

@Luckie: cool, Danke!!!

Jonson

[Christian Seehase]

Moin Luckie,

Zitat von Luckie:

Wie geht das, wenn das Verzeichnis leer ist?

Einfach FileName im OI mit einem Dummywert vorbelegen.

SHBrowseForFolder, oder SelectDirectory erscheinen mir allerdings prinzipiell sinnvoller.

[Jonson]

@Christian: Danke

Jonson