Problem mit NetUserGetInfo

[Luckie]

Laß hier: NetUserGetInfo(nil, {->}@{<-}GetCurSel, 1, @aBuffer) mal das @ weg.

Bei mir sieht das übrigens so aus:

Delphi-Quellcode:

procedure GetUserInfo(sUser: String);
var
  s    : String;
  ui11 : Pointer;
begin
  if sUser <> ''then
  begin
    NetUserGetInfo(nil, PWideChar(WideString(sUser)), 11, ui11);
    s := String(PUserInfo11(ui11)^.usri11_name);
    SetDlgItemText(hApp, 103, @s[1]);
    s := String(PUserInfo11(ui11)^.usri11_full_name);
    SetDlgItemText(hApp, 104, @s[1]);
    s := String(PUserInfo11(ui11)^.usri11_comment);
    SetDlgItemText(hApp, 105, @s[1]);
    s := String(PUserInfo11(ui11)^.usri11_home_dir);
    SetDlgItemText(hApp, 111, @s[1]);
    s := '';
    s := FormatTime(PUserInfo11(ui11)^.usri11_password_age*1000);
    SetDlgItemText(hApp, 112, @s[1]);
    s := SecsToDateTime(PUserInfo11(ui11)^.usri11_last_logon);
    SetDlgItemText(hApp, 113, @s[1]);
    s := IntToStr(PUserInfo11(ui11)^.usri11_num_logons);
    SetDlgItemText(hApp, 114, @s[1]);
    //s := SecsToDateTime(PUserInfo11(ui11)^.usri11_last_logoff);
    s := '';
    SetDlgItemText(hApp, 115, @s[1]);
    s := IntToStr(PUserInfo11(ui11)^.usri11_bad_pw_count);
    SetDlgItemText(hApp, 116, @s[1]);
  end;
end;