Netzwerk Infos

[theomega]

Wo ist das NERR_Success definiert?
Ich habe mal vereinfacht folgendes geschrieben:

Code:

type  PSHARE_INFO_2 = ^SHARE_INFO_2;
SHARE_INFO_2 = 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;

...

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

procedure TForm1.Button1Click(Sender: TObject);
var buf:PSHARE_INFO_2;
begin;
NetShareGetInfo('\\Computernamen','Freigabenamen',2,@buf);
ShowMessage(buf.shi2_path);
NetApiBufferFree(buf);
end;

Jetzt bekomme ich einen Runtimerror. Was mache ich falsch? Und warum haßt du für den Computernamen ein NIL eingesetzt?