Deklarier den Buffer mal als array[0..255] of Char. Und dann sehen wir weiter. Wie ich die Benutzer-Infos bekomme habe ich ja gepostet. Aber hier noch mal:
Delphi-Quellcode:
SendDlgItemMessage(hDlg, IDC_CB, CB_GETLBTEXT, 0, Integer(@szBuffer));
GetUserInfo(String(szBuffer));
0, weil wir gleich den ersten anzeigen wollen. Und dann geht es so weiter:
Delphi-Quellcode:
procedure GetUserInfo(sUser: String);
var
s : String;
ui3 : Pointer;
begin
if sUser <> ''then
begin
if NetUserGetInfo(nil, PWideChar(WideString(sUser)), 3, ui3) = NERR_SUCCESS then
begin
s := String(PUserInfo3(ui3)^.usri3_name);
SetDlgItemText(hApp, 103, @s[1]);