SelectDirectory pour les fichiers.

Salut a tous, une question toute simple, existe t'il une fonction du style SelectDirectory qui permet de voir les fichiers contenus dans un répertoire sélectioné?

Merci a tous.

tu peux tester ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
uses
  ShlObj;
 
Function BrowseForFolder(Hwnd : THandle ; Title : String ; var Dir : String ;
                                          var ImageIndex : Integer) : Boolean;
var BI : TBrowseInfoA;
    PC : PChar;
begin
  GetMem(PC, 255);
  with BI do begin
    hwndOwner:=Hwnd;
    pidlRoot:=nil;
    pszDisplayName:=nil;
    lpszTitle:=PChar(Title);
    ulFlags:=BIF_RETURNONLYFSDIRS;
    lpfn:=nil;
    lParam:=0;
    iImage:=ImageIndex;
  end;
  Result:=SHGetPathFromIDList(SHBrowseForFolder(BI), PC);
  Dir:=StrPas(PC);
  ImageIndex:=BI.iImage;
end;

Merci, j'te tiend au courrant ;)