Invoquant les fenêtres de dialogue rechercher un dossier

Invoquant les fenetres de dialogue rechercher un dossier

Invoquant les fenetres de dialogue rechercher un dossier : Plusieurs milliers de conseils pour vous faciliter la vie.

Borland SelectDirectory navigateur est assez moche, ici, est de savoir comment invoquer celui de Windows a la place.

& nbsp & nbsp ShlObj, ShellAPI
......
fonction de BrowseForFolder(poignee : HWND strTitle : string var strPath : string) : boolean
var info : TBROWSEINFO
& ! & ! & ! & nbsp chemin : array[0..MAX_PATH] de Char
& ! & ! & ! & nbsp elements : PITEMIDLIST
begin
& nbsp Result:=false
& nbsp chemin d'acces:='
& nbsp avec info ne
& nbsp & nbsp commencer
& ! & ! & ! & nbsp hwndOwner:=poignee
& ! & ! & ! & nbsp pidlRoot:=nil
& ! & ! & ! & nbsp pszDisplayName:=nil
& ! & ! & ! & nbsp lpszTitle:=PChar(strTitle)
& ! & ! & ! & nbsp ulFlags:=BIF_RETURNONLYFSDIRS
& ! & ! & ! & nbsp lpfn:=nil
& nbsp & nbsp fin
& nbsp elements:=SHBrowseForFolder(info)
& nbsp si affecte(articles)
& nbsp & nbsp commencer
& ! & ! & ! & nbsp SHGetPathFromIDList(articles,chemin d'acces)
& ! & ! & ! & nbsp Result:=true
& nbsp & nbsp fin
& nbsp strPath:=Chemin d'acces
fin