Verzeichnisnamen ermitteln mit OpenDialog

[Coder]

Wie kann ich den Verzeichnisnamen ermitteln, ohne daß ich in Opendialog eine Datei anklicken muß?

Manchmal möchte ich den Dateinamen eines leeren Verzeichnisses ermitteln.
Damit die User darin speichern können.
Beenden kann ich open dialog allerdings nur erfolgreich, wenn ich ein File anklicke.

Was kann ich machen?

[Luckie]

In dem du den entsprechenden Dialog dafür benutzt: BrowseForFolder.

[marabu]

Hallo.

Manchmal hilft schon SelectDirectory() aus der Unit FileCtrl.

Freundliche Grüße vom marabu

[Matze]

In der Code-Library steht darüber auch etwas.

[Coder]

ab welcher Version gibt es den
Browseforfolder?

die 3 er hat ihn wohl noch nicht

[Hador]

Probiers mal mit folgender Funktion:

Delphi-Quellcode:

function GetFolder: string;
var
  bi: TBROWSEINFO;
  lpBuffer: PChar;
  pidlPrograms,
  pidlBrowse: PItemIDList;
  ShellH: IMalloc;
begin
  if (not SUCCEEDED(SHGetSpecialFolderLocation(0, 0,
                                               pidlPrograms))) then
    Exit;
  try
    GetMem(lpBuffer, MAX_PATH);
    try
      bi.hwndOwner:=GetActiveWindow;
      bi.pidlRoot:=pidlPrograms;
      bi.pszDisplayName:=lpBuffer;
      bi.lpszTitle:='Zielverzeichnis wählen';
      bi.ulFlags:=BIF_RETURNONLYFSDIRS;
      bi.lpfn:=NIL;
      bi.lParam:=0;
      pidlBrowse:=SHBrowseForFolder(bi);

      if (pidlBrowse <> nil) and (SHGetPathFromIDList(pidlBrowse,
                                                      lpBuffer)) then
        Result:=lpBuffer;
    finally
      FreeMem(lpBuffer);
    end;
  finally
    if SHGetMalloc(ShellH) = NOERROR then
       ShellH.Free(pidlBrowse);
  end;
end;

[Coder]

mhh, danke
es ging viel leichter mit : SelectDirectory

Delphi-Quellcode:

var Dir:String
begin
Dir := ExtractFileDir(Application.ExeName);
if SelectDirectory (Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    form3.Edit1.Text := Dir;
end;

^^ ist ja richtig komfortabel der Dialog...
Spitze!


aber: ab welcher Version gibt es den Browseforfolder?

die 3 er hat ihn wohl noch nicht

[Luckie]

Zitat:

Zitat von Coder

aber: ab welcher Version gibt es den Browseforfolder?

Das hat nichts mit der Delphi Version zu tun, das ist eine Windows API Funktion.

Warum steht das eigentlich unter "Programmieren allgemein"? :roll:

[SirThornberry]

dann wird er wissen wollen in welcher unit die funktion declariert ist damit er sie verwenden kann bzw. ab welcher delphiversion die declaration in irgend einer unit vorhanden ist. Natürlich kann er die funktion auch manuell importieren aber es ist doch bedeutend einfach einfach eine unit einzubinden.

[faux]

Zitat:

Zitat von Coder

ab welcher Version gibt es den Browseforfolder?

Das müsste eine API-Funktion sein. BrowseForFolder Hast du ShellAPI in die Uses-Klausel übernommen?

EDIT: Sorry, hab Luckies Post nicht gesehen.

Grüße
Faux