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
|
Type
_SHARE_INFO_2 = record
shi2_netname: LPWSTR;
shi2_type: DWORD;
shi2_remark: LPWSTR;
shi2_permissions: DWORD;
shi2_max_uses: DWORD;
shi2_current_uses: DWORD;
shi2_path: LPWSTR;
shi2_passwd: LPWSTR;
end;
PSHARE_INFO_2= ^_SHARE_INFO_2;
end;
function NetShareGetInfo(servername: LPWSTR;netname : LPWSTR;level: DWORD;buf: pSHARE_INFO_2) : longword; stdcall;external 'netapi32.dll';
function PartageToChemin(strServeur : string ; strPartage : string ; var strChemin : string) : boolean;
var
Share: PSHARE_INFO_2;
begin
result := false;
strChemin := '';
erreur := NetShareGetInfo(PWideChar(WideString(strServeur)) ,
PWideChar(WideString(strPartage)) ,2,@share);
result := erreur =0;
strChemin := share^.shi2_path ;
end; |
Partager