Dialog zur auswahl von Dateien UND Ordner

[schlagzu]

Hallo,

ich suche einen Dialog wie TOpenDialog oder TFileOpenDialog nur das man Daten und Ordner auswählen kann.
Ich brauche das für einen eigenen Packer bei dem sowohl Dateien als auch Ordner (inc. beinhaltete Dateien, wobei ich die ja selbst auslesen kann) gepackt werden.

Gibt es so etwas (am besten kostenlos) wie ich es mir vorstelle?

Natürlich kann ich mir ne Komponente/Form basteln mit nem Treeview und die Daten-Ordner-Struktur selbst auslesen, aber bestimmt hatte jemand das gleiche Problem mal gehabt (bzw. ich weiß es).

MfG

schlagzu

EDIT: also zum Verständnis: ich will das zum Schluss alle Daten UND Ordner aufgelistet sind in TOpenDialog.Files.

[Furtbichler]

Und du bist nicht in der Lage, diesen 7-Zeiler selbst zu bauen? Das geht ja schneller als hier auf eine Antwort zu warten.

[hoika]

Hallo,

http://delphi.about.com/od/windowssh.../aa070400a.htm

ShBrowseForFolders

kann auch Dateien anzeigen

Heiko

[schlagzu]

@Furtbichler: Natürlich bin ich in der Lage, sonst hätte ich den Weg ja nicht selbst aufgezeigt. Aber ich möchte den Standarddialog doch nur angepasst haben auf multiselect und das man Dateien und Ordner auswählen kann.

@hoika das geht schon in die richtige Richtung, nur ich bräuchte multiselect. Dazu hab ich das: http://www.entwickler-ecke.de/topic_...t_87417,0.html und http://cboard.cprogramming.com/windo...r-chooser.html . Also nicht wirklich was brauchbares, außer den Tipp es selbst zu machen.

[Hobby-Programmierer]

Zitat:

Zitat von Furtbichler (Beitrag 1185328)

Und du bist nicht in der Lage, diesen 7-Zeiler selbst zu bauen? Das geht ja schneller als hier auf eine Antwort zu warten.

Also ich würde diesen 7-Zeiler gerne sehen. :wink:

[himitsu]

2-Zeiler :roll:

Eine(n) fertige(n) Code/Funktion mit ShBrowseForFolders kopieren
und den einen Parameter ergänzen, welcher auch die Dateien anzeigen läßt.

[schlagzu]

Ich glaub ich versteht mich nicht: ich möchte mit einem Aufruf des Dialogs, 5 Dateien und 3 Ordner auswählen und diese werden zum Schluss in einer StrinList (oder so) ausgegeben.

Was sehr nah an meine Vorstellung kommt wäre das. (und das hat mehr als 7 Zeilen ;) )

Ich denke das ich das anpassen werde. Falls jemand noch was besseres hat was in diese Richtung geht wäre ich dankbar drum.

MfG
schlagzu

[p80286]

@ die Idee als solche ist ja nicht schlecht, aber Dateien lassen sich da nicht auswählen:

Delphi-Quellcode:

uses shlObj;

function BrowseCallbackProc(hwnd: HWND; MessageID: UINT; lParam: LPARAM; lpData: LPARAM): Integer; stdcall;
var
    DirName: array[0..MAX_PATH] of Char;
    pIDL : pItemIDList;
    p:tagWINDOWPOS;
begin

  case MessageID of
    BFFM_INITIALIZED:begin
                     SendMessage(hwnd, BFFM_SETSELECTION, 1, lpData);
                     SetWindowPos(hwnd,hwnd,10,10,800,400,sw_show);
                     end;
    BFFM_SELCHANGED :begin
                        pIDL := Pointer(lParam);
                        if Assigned(PIDL) then
                        begin
                          SHGetPathFromIDList(pIDL, DirName);
                          if DirectoryExists(DirName) then
                           if 1=1 then //(ExtractFileName(DirName)='Windows') then
                            SendMessage(hwnd, BFFM_ENABLEOK, 0, 1)
                           else
                            SendMessage(hwnd, BFFM_ENABLEOK, 0, 0)
                          else
                          SendMessage(hwnd, BFFM_ENABLEOK, 0, 0);
                        end
                        else
                          SendMessage(hwnd, BFFM_ENABLEOK, 0, 0);
                     end;
  end;

  Result := 0;
end;

function SelectFolderDialogExt(Handle: Integer; var SelectedFolder: string): Boolean;
var
  ItemIDList: PItemIDList;
  JtemIDList: PItemIDList;
  DialogInfo: TBrowseInfo;
  Path: PChar;
begin
  Result := False;
  Path := StrAlloc(MAX_PATH);
  SHGetSpecialFolderLocation(Handle, CSIDL_DRIVES, JtemIDList);
  with DialogInfo do
  begin
    pidlRoot := JtemIDList;
    //ulFlags := BIF_RETURNONLYFSDIRS; //only select directories
    ulFlags :=  BIF_BROWSEINCLUDEFILES; {----- hiermit werden Dateien angezeigt}
    hwndOwner := GetActiveWindow;
    SHGetSpecialFolderLocation(hwndOwner, CSIDL_DRIVES, JtemIDList);
    pszDisplayName := StrAlloc(MAX_PATH);
    lpszTitle := PChar('Select a folder');
    lpfn := @BrowseCallbackProc;
    lParam := LongInt(PChar(SelectedFolder));
  end;

  ItemIDList := SHBrowseForFolder(DialogInfo);

  if (ItemIDList <> nil) then
    if SHGetPathFromIDList(ItemIDList, Path) then
    begin
      SelectedFolder := Path;
      Result := True;
    end;
end;

Ich hab mir da irgendeinen shbrowse aus der Rumpelkammer gegriffen, kann also sein das da was nicht passt.

Gruß
K-H

[schlagzu]

Sry Zeile 386 hab ich so abgeändert, dann werden auch Dateien angezeigt. (und noch n paar unwichtige Sachen):

Delphi-Quellcode:

ObjectTypes      := [otFolders, otNonFolders, otHidden];

@p80286 man sieht zwar Dateien, kann diese aber nicht auswählen und man kann auch nicht mehrere Ordner wählen.

[p80286]

wie ich ja schon erwähnte...

Gruß
K-H