tu peux tester ça



uses
ShlObj;

Function BrowseForFolder(Hwnd : THandle ; Title : String ; var Dir : String ;
var ImageIndex : Integer) :...