NetUserGetInfo

[sakura]

Was wären wir ohne ICQ

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;

  // ... speicher funktion freigeben.
end;