SÉLECTIONNER UN RÉPERTOIRE (BOITE DE DIALOGUE PARCOURIR... DE WINDOWS)
cs_Yoann
Messages postés
25
Date d'inscription
lundi 1 octobre 2001
Statut
Membre
Dernière intervention
28 juillet 2004
-
19 oct. 2002 à 11:12
climb69 Messages postés 1 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 20 mai 2010 - 20 mai 2010 à 11:19
climb69 Messages postés 1 Date d'inscription mardi 12 mai 2009 Statut Membre Dernière intervention 20 mai 2010 - 20 mai 2010 à 11:19
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12182-selectionner-un-repertoire-boite-de-dialogue-parcourir-de-windows
https://codes-sources.commentcamarche.net/source/12182-selectionner-un-repertoire-boite-de-dialogue-parcourir-de-windows
20 mai 2010 à 11:19
A titre d'information, le type BROWSEINFO est dans le uses shlObj..
1 déc. 2009 à 19:03
je voudrais crer un bouton parcourir comme celui de windows afin d'ajouter une photo à la fiche du genre chaque saisie de fiche sa photo correspondant; le hic est que je n'arrive pas à le realiser en delphi 7. Merci de m'aider
ISGIO
7 févr. 2006 à 12:11
Cependant il y a un petit bug dans ce code ligne 34:
il ne faut pas ecrire
txtRepertoire.Text := Copy(Chemin,1,p); //txtRepertoire est un TEdit
mais
txtRepertoire.Text := Copy(Chemin,1,p-1); //txtRepertoire est un TEdit
car sinon il reste un caractère #0 dans la chaine
25 août 2004 à 21:58
Merci pour ces infos, mais je vois que ce code est adressé aux débutant...
Mais étant un 'Vrai' débutant, je n'ai pas réussi à utiliser ce code :(
Y aurait-il possibilité d'avoir un projet pour concrétiser ce code ??
Merci
26 sept. 2003 à 14:01
Merci beaucoup, voila ce qui nous manquer
pour info sous delphi cela donne ca :
Type
BROWSEINFO = record
hOwner : integer ;
pidlRoot : integer ;
pszDisplayName : String ;
lpszTitle : String ;
ulFlags : integer ;
lpfn : integer ;
lParam : integer ;
iImage : integer ;
end ;
Volia et merci encore
26 sept. 2003 à 10:48
En visual Basic 6 ,ça donne :
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
(désolé, mais ça fait plus de 6 mois que j'ai pas fait de Delphi et je ne me rappelle plus trop des syntaxes de déclaration de structure de données).
26 sept. 2003 à 10:32
Delphi beug sur BROWSINFO et ne compile pas
As- tu une solution qui marche ?
Merci
21 avril 2003 à 10:48
19 oct. 2002 à 11:12
Uses Filectrl;
Var
Dossier: String; //Recupere le chemin du dossier
begin
SelectDirectory('Choisir un dossier :', '',Dossier);
end;