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.
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager