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;
Donnez un poisson à un homme et il mangera pendant un jour... Apprenez-lui à pêcher et il s'assiéra dans une barque et boira de la bière toute la journée
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