NetUserGetInfo

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var
  sUser: String;
  ui11: Pointer;
begin
  sUser := GetUser();
  NetUserGetInfo(nil, PWideChar(WideString(sUser)), 11, ui11);
  Label1.Caption := PUserInfo11(ui11)^.usri11_name;
  NetApiBufferFree(ui11);
end;