Composant genre opendialog pour ouvrir un dossier
Résolu
Sat83
Messages postés
166
Date d'inscription
mardi 11 novembre 2003
Statut
Membre
Dernière intervention
13 octobre 2008
-
14 oct. 2004 à 13:21
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 14 oct. 2004 à 15:19
japee Messages postés 1727 Date d'inscription vendredi 27 décembre 2002 Statut Modérateur Dernière intervention 6 novembre 2021 - 14 oct. 2004 à 15:19
2 réponses
jmp77
Messages postés
1119
Date d'inscription
lundi 4 février 2002
Statut
Membre
Dernière intervention
4 octobre 2006
7
14 oct. 2004 à 13:55
14 oct. 2004 à 13:55
Essaye ca je pense que ca devrait fonctionner meme avec la version gratuite de delphi :
var
Dir : String;
begin
If SelectDirectory('Répertoire de recherche ?','',Dir) then
begin
ShowMessage('Le répertoire séléctionné est : ' + Dir);
end;
end;
var
Dir : String;
begin
If SelectDirectory('Répertoire de recherche ?','',Dir) then
begin
ShowMessage('Le répertoire séléctionné est : ' + Dir);
end;
end;
japee
Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
14 oct. 2004 à 15:19
14 oct. 2004 à 15:19
Sinon, toujours avec SelectDirectory, mais ça ressemble plus à une boîte de dialogues "du genre OpenDialog", et tu peux en prime créer le répertoire saisi :
Dans tous les cas, ne pas oublier FileCtrl dans les uses ;)
Voir "SelectDirectory, fonction" dans l'aide en ligne de Delphi.
Bonne prog' :-p
uses FileCtrl;
var
Dir: String;
begin
Dir := 'C:\Mes documents'; // par exemple...
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt], 0) then
Label1.Caption := Dir;
end;
Dans tous les cas, ne pas oublier FileCtrl dans les uses ;)
Voir "SelectDirectory, fonction" dans l'aide en ligne de Delphi.
Bonne prog' :-p
