Discussion :

[gige47]

Bonjour à tous,

J'utilise la fonction 'selectdirectory' pour permettre à l'utilisateur de choisir un dossier où seront enregistrés des fichiers de résultats. Voici l'instruction que je mets:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
SelectDirectory('Choose the directory in which you want to save the results', '', selectedDirectory);

Avec cela, l'utilisateur peut choisir n'importe quel dossier (existant) puisque l'arborescence s'ouvre dans le bureau.
Il serait intéressant de garder en mémoire le dossier choisi par l'utilisateur. C'est ce que j'ai fait en utilisant un fichier d'initialisation.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
homedirectory:=FileIni.ReadString('Record','Directory','');
SelectDirectory('Choose the directory in which you want to save the results', homedirectory, selectedDirectory);

Mais alors, le problème c'est que l'utilisateur n'a plus accès à l'arborescence entière mais seulement aux dossiers filles. Il est donc, par exemple, impossible de changer de disque.

Je sais qu'il existe deux version de la fonction selectdirectory. Peut-être que l'autre serait plus indiquée?

Si quelqu'un peut me débloquer, merci d'avance.

[rbh]

Salut
moi j'utilise un code trouvé je ne sais plus où sur le net :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
var
  lg_StartFolder: String;
 
implementation
 
uses
  ShlObj;
 
 
function BrowseForFolderCallBack(Wnd: HWND; uMsg: UINT;
        lParam, lpData: LPARAM): Integer stdcall;
begin
  if uMsg = BFFM_INITIALIZED then
    SendMessage(Wnd,BFFM_SETSELECTION,1,Integer(@lg_StartFolder[1]));
  result := 0;
end;
 
function BrowseForFolder(const browseTitle: String; const initialFolder: String =''): String;
var
  browse_info: TBrowseInfo;
  folder: array[0..MAX_PATH] of char;
  find_context: PItemIDList;
begin
  FillChar(browse_info,SizeOf(browse_info),#0);
  lg_StartFolder := initialFolder;
  browse_info.pszDisplayName := @folder[0];
  browse_info.lpszTitle := PChar(browseTitle);
  browse_info.ulFlags := BIF_RETURNONLYFSDIRS;
  browse_info.hwndOwner := Application.Handle;
  if initialFolder <> '' then
    browse_info.lpfn := BrowseForFolderCallBack;
  find_context := SHBrowseForFolder(browse_info);
  if Assigned(find_context) then
  begin
    if SHGetPathFromIDList(find_context,folder) then
      result := folder
    else
      result := '';
    GlobalFreePtr(find_context);
  end
  else
    result := '';
end;

pour l'utiliser, il faut appeler :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

BrowseForFolder('Titre', LeDossierASelectionnerALOuverture);

[Pedro]

Salut
Normalement, le SelectDirectory suffit
Voici un exemple de code que j'ai utilisé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
if SelectDirectory(c_BrowseTitle, c_Root, Dir,
    [sdNewFolder, sdShowEdit, sdShowShares, sdNewUI,sdValidateDir]) then

c_BrowseTitle et c_Root sont des constantes de type string.

[gige47]

Merci à vous deux.
En effet, les deux solutions fonctionnent. Je pense choisir la version plus 'compliquée' (de rbh) qui a l'avantage de vmontrer l'arborescence en entier et d'être plus 'users friendly' alors que celle de Pedro impose de taper l'emplacement par soi-même si c'est dans un dossier parent ou parallèle.

[Pedro]

Merci à vous deux.
...impose de taper l'emplacement par soi-même si c'est dans un dossier parent ou parallèle.

Comment ça?

[gige47]

Et bien, si je veux garder en mémoire dans un fichier d'initialisation le chemin du dossier choisi et toujours rouvrir la fenêtre avec ce dossier comme "c_root", ça m'embête.
Imaginons que l'utilisateur enregistre sur le d:\ et que la fois d'après il veut enregistrer sur c:\Travail\Resultats\Direct il doit taper tel quel le chemin d'accès car il ne sait pas remonter dans l'arborescence. Ce que permet de faire l'autre méthode. A moins qu'il y ait une option supplémentaire à mettre dans SelectDirectory?

[Pedro]

Salut
Je pense que tu as mal compris: Voici le contenu de ces constantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
  c_BrowseTitle = 'Sélectionnez le répertoire de sortie';
  c_Root = '';

En fait, si tu mets c_Root à '', tu as toute l'arborescence depuis le bureau de Win. Comme il ne change jamais, je le mets en constante
C'est dans la variable que tu passes ("Dir" dans mon code) qu'il faut mettre le chemin dans lequel tu veux qu'elle s'affiche. En sortie, elle aura le répertoire que tu as choisi

[gige47]

Merveilleux! Ca fonctionne... Comme quoi, quand on se comprend ça va beaucoup mieux.
Merci