Discussion :

[BuzzLeclaire]

Bonjour,

J'utilise cette fonction à la place de SelectDirectory.
Mettre ShlObj, ActiveX; dans les uses

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
Function Browse : String;
var
  BrowseInfo  : TBrowseInfo;
  PIDL        : PItemIDList;
  Folder      : array[0..MAX_PATH] of Char;
begin
  result := '';
  FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);
  BrowseInfo.hwndOwner      := Application.Handle;
  BrowseInfo.pszDisplayName := @Folder[0];
  BrowseInfo.lpszTitle      := 'Selectionné ou créer un dossier';
 
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or $40;
  CoInitialize(NIL);
 
  PIDL := SHBrowseForFolder(BrowseInfo);
  if Assigned(PIDL) then
    if SHGetPathFromIDList(PIDL, folder) then
      result := folder
    else
      result := '';
end;

Je l'utilise comme ceci :

Code :

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

1
2
3
4
procedure TForm1.Button2Click(Sender: TObject);
begin
  if Browse = '' then Showmessage('dossier non valid');
end;

Comment je peux savoir si l'utilisateur a cliqué sur annuler ou OK ?

Merci.

[Jeankiki]

Salut,
Tu dois mettre le ModalResult = mrOK sur ton bouton OK et ModalResult = mrCancel sur ton bouton Annuler dans les propriétés de chaques boutons.
Ensuite quand tu fermes la fenêtre, tu tests la valeur de ModalResult.

Jeankiki

[BuzzLeclaire]

Salut,
Tu dois mettre le ModalResult = mrOK sur ton bouton OK et ModalResult = mrCancel sur ton bouton Annuler dans les propriétés de chaques boutons.
Ensuite quand tu fermes la fenêtre, tu tests la valeur de ModalResult.

Jeankiki

Salut...

C'est une fenetre de dialogue genre Opendialog !!!!

impossible ta proposition.

[popo]

Sur le boite de dialogue genre OpenDiaog, il suffit de testé le résultat de la méthode "Execute". Si ton objet est fait sur le même moule, cela devrait fonctionner non ?

Sinon, y'a peux être un message à intercepter.

[Andnotor]

Il n'y a que le PIDL à nil pour le savoir. Je modifierais ta fonction comme suit:

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
Function Browse(out aPath :String) :Boolean;
var
  BrowseInfo  : TBrowseInfo;
  PIDL        : PItemIDList;
  Folder      : array[0..MAX_PATH] of Char;
begin
  FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);
  BrowseInfo.hwndOwner      := Application.Handle;
  BrowseInfo.pszDisplayName := @Folder[0];
  BrowseInfo.lpszTitle      := 'Selectionné ou créer un dossier';
 
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or $40;
  CoInitialize(NIL);
 
  PIDL := SHBrowseForFolder(BrowseInfo);
 
  if Assigned(PIDL) and SHGetPathFromIDList(PIDL, folder) then
  begin
    aPath  := folder;
    Result := TRUE;
  end
  else Result := FALSE;
end;

[ShaiLeTroll]

Tout le monde n'aime pas, mais je trouve cette syntaxe plus consise !

Code :

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

1
2
3
  Result := Assigned(PIDL) and SHGetPathFromIDList(PIDL, folder) 
  if Result then
    aPath  := folder;

[BuzzLeclaire]

Salut messieurs,

Vos deux propositions à moins que je me trompe simplifie la procédure que j'ai mise au dessus, mais je voit pas comment récupere le fait que l'utilisateur à cliquer sur ANNULER ? ou OK ? ou à simplement fermer la fenêtre de dialogue ?

Je me trompe ?

[Andnotor]

Tout le monde n'aime pas, mais je trouve cette syntaxe plus consise !

J'ai hésité un instant avec cette syntaxe .

Buzz,
L'annulation ou la fermeture de la fenêtre renvoi FALSE !

[BuzzLeclaire]

J'ai hésité un instant avec cette syntaxe .

Buzz,
L'annulation ou la fermeture de la fenêtre renvoi FALSE !

Salut AndNotor... c'est plus suptile que cela... sinon j'aurais pas posé la question lol...

En fait imagine que l'utilisateur chosi "Poste de travail" et clique OK cela retourn une chaine vide donc false et si il fait annuler aussi !! mais je peux pas différencier ces 2 là !!!

En fait si il clique sur ok en choisissant "poste de travail" je lui envoi un message "Hé mec... tu t'es trompé c'est pas un répertoire valid", si il fais annuler ou femer je lui dit rien...

Le truc se serait d'avoir en grisé le boutton OK tous ce qui n'ai pas un répertoire valid.

bye

[Andnotor]

Alors comme ça:

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
Function Browse(out aPath :String) :TModalResult;
var
  BrowseInfo  : TBrowseInfo;
  PIDL        : PItemIDList;
  Folder      : array[0..MAX_PATH] of Char;
begin
  FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);
  BrowseInfo.hwndOwner      := Application.Handle;
  BrowseInfo.pszDisplayName := @Folder[0];
  BrowseInfo.lpszTitle      := 'Selectionné ou créer un dossier';
 
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or $40;
  CoInitialize(NIL);
 
  PIDL := SHBrowseForFolder(BrowseInfo);
 
  if Assigned(PIDL) then
  begin
    if SHGetPathFromIDList(PIDL, folder) then
    begin
      aPath  := folder;
      Result := mrOk;
    end
    else Result := mrIgnore;
  end
  else Result := mrCancel;
end;

mrOk : Répertoire valide.
mrCancel : Annulation. (Fermeture)
mrIgnore : Répertoire invalide.

[BuzzLeclaire]

Salut,

Tout simplement exacte AndNotOr.. comme d'hab.

Voilà la function definitive (déclarer dans une unité libre "sans dfm")

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
function Browse(xHandle:HWND; out aPath : String): TModalResult;
var
  BrowseInfo  : TBrowseInfo;
  PIDL        : PItemIDList;
  Folder      : array[0..MAX_PATH] of Char;
begin
  FillChar(BrowseInfo,SizeOf(BrowseInfo),#0);
  BrowseInfo.hwndOwner      := xHandle;
  BrowseInfo.pszDisplayName := @Folder[0];
  BrowseInfo.lpszTitle      := 'Selectionné ou créer un dossier';
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS or $40;
 
  CoInitialize(NIL);
 
  PIDL := SHBrowseForFolder(BrowseInfo);
  if Assigned(PIDL) then
  begin
    if SHGetPathFromIDList(PIDL, folder) then
    begin
      aPath  := folder;
      Result := mrOk;
    end
    else Result := mrIgnore;
  end
  else Result := mrCancel;
 
end;

Je ne connaissais pas du tout le terme Out : d'un fonction !!!

Voilà comment je l'utilise

Code :

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

1
2
3
4
5
6
7
8
Var
  Chemin: String;
begin
  Case Browse(Application.Handle,Chemin) of
    mrIgnore :showmessage('Chemin invalide');
    mrOk :EditCheminSortie.Text := IncludeTrailingPathDelimiter(Chemin);
    mrCancel:;
  End;

Merci à toi.


Je l'aurais un jour.... je l'aurais...