path: array[0..max_path] of char;
begin
shgetspecialfolderlocation(winhandle, csidl_network, idroot);
zeromemory(@browseinfo, sizeof(tbrowseinfo));
zeromemory(@path, max_path);
browseinfo.hwndowner := winhandle;
browseinfo.pidlroot := idroot;
browseinfo.lpsztitle := pchar(title);
browseinfo.pszdisplayname := @path;
browseinfo.ulflags:=bif_browseforcomputer;
shbrowseforfolder(browseinfo);
end;
