N'afficher que les répertoires du voisinage réseau

Version imprimable

Tout est dans le titre , j'aimerais , avec un dialogue "classique" n'afficher que le 'voisinage réseau' ou d'ailleurs son contraire 'tout sauf le voisinage réseau' .

c'est possible si j'en crois cette source en VB

je pense que je dois jouer avec SHBrowseForFolder et browseInfo et les flags , mais là , je sèche lamentablement

Code:

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
function BrowseDialog
 (const Title: string; const Flag: integer): string;
var
  lpItemID : PItemIDList;
  BrowseInfo : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath : array[0..MAX_PATH] of char;
begin
  Result:='';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle := PChar(Title);
    ulFlags := Flag;
    lpfn := BrowseDialogCallBack;
   pidlRoot:=  // <<<-------------------------------------ici est la vraie question  
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;

20/02/2010, 13h24
BuzzLeclaire

Salut Serge ;)

J'ai trouvé cela :

http://delphi.about.com/od/windowssh.../aa070400a.htm

Ou peut-être des composants tous fait

http://www.jam-software.com/shellbro...mponents.shtml

A+

Re

En utilisant cette FAQ et l'unité FileCtrl voilà ce que tu pourrais faire

FAQ

EXTRAIT FAQ DEVELOPPEZ.NET
Ajoute l'unité Shlobj

Code:

1
2
3
4
5
6
7
8
9
function SpecialFolder(Folder: Integer): String;
var
  SFolder : pItemIDList;
  SpecialPath : Array[0..MAX_PATH] Of Char;
begin
  SHGetSpecialFolderLocation(Form1.Handle, Folder, SFolder);
  SHGetPathFromIDList(SFolder, SpecialPath);
  Result := StrPas(SpecialPath);
end;

Ensuite Dans un Tbutton par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.Button3Click(Sender: TObject);
Var
   Dir: String;
begin
 
// On force l'ouverture sur le reseau
// Cela empeche a l'utilisateur dans choisir un autre
// dans la FAQ voir toutes les autres CSIDL_
 
  if SelectDirectory('Chemin ..............',
    SpecialFolder(CSIDL_NETHOOD),Dir,[],Self) then
    begin
      showmessage(Dir);
    end;
 
end;

Amuse toi bien l'ami.

20/02/2010, 16h50
SergioMaster

sur le premier post , on a la même source ;)
le second lien est très intéressant mais je ne veut pas mettre de shareware dans l'application (je songe à la passer Lazarus/Linux)

à ma grande honte :oops: je n'avais pas pensé à regarder dans la FAQ
:arf: je vais plutôt regarder ça de plus près elle me plait bien

Merci , je vais pouvoir continuer à jouer :)

pour l'instant les options proposées ne fonctionnant pas (peut être parce que je n'ai pas de réseau local ou je suis , pas de cable réseau branché non plus ) j'ai trouvé une autre astuce (windows vista , D2010)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 uses StdActns; ... // recherche répertoire procedure TForm3.Button1Click(Sender: TObject); var bforFolder : TBrowseForFolder; begin bForFolder:=TBrowseForFolder.Create(self); try bForFolder.RootDir:='::{F02C1A0D-BE21-4350-88B0-7367FC96EF3C}'; // réseau // bForFolder.RootDir:='::{20D04FE0-3AEA-1069-A2D8-08002B30309D}'; ordinateur if bforFolder.Execute then ShowMessage('Selected: ' + #13#10 + bForFolder.Folder); finally bForFolder.Free; end; end;
Maintenant :
-est-ce valable sur tout les postes ?
-est-ce valable pour XP ? WinMe (si si il en existe encore) ? etc...

cela semble être les valeurs contenu dans le registre mais où ? c'est ma prochaine recherche ....