Netzwerk Infos

[theomega]

also: erstes Problem:

habe eine Struktur definiert:

Code:

type  PUSER_INFO_1 = ^USER_INFO_1;
USER_INFO_1 = record
shi2_netname: PWideChar;
shi2_type: DWORD;
shi2_remark: PWideChar;
shi2_permissions: DWORD;
shi2_max_uses: DWORD;
shi2_current_uses: DWORD;
shi2_path: PWideChar;
shi2_passwd: PWideChar;
end;

dann habe ich die funktion engebunden:

Code:

function NetShareGetInfo(SeverName, NetName: PWideChar; Level: DWORD;  Buf: Pointer): LongInt; stdcall; external 'netapi32.dll';

und habe jetzt folgende procedure bentutz:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var buf:PUSER_INFO_1;
begin;
GetMem(Buf, Sizeof(Buf));
NetShareGetInfo('Computernamen','weisnichtwashierhersoll',2,pointer(buf));
showmessage(buf.shi2_path);
end;

Wenn ich jetzt auf den Button drücke bekomm ich eine leere Messagebox. Mir ist nicht ganz klar, was hier rauskommen sollte, aber irgwndwas sollte ja schon. Und was muß der zweite Parameter von NetShareGetInfo sein? die Arbeitsgruppe?