关于GetUserName语句,为什么出错?

Question

function GetUserName:ANSIString;
  var
    lpName,
    lpUserName:PAnsiChar;
    lpnLength:DWord;
  begin
    Result:='';
    lpnLength:=0;
    lpName:='';
    WNetGetUser(nil,nil,lpnLength);
    if lpnLength>0 then
    begin
      GetMem(lpUserName,lpnLength);
      if WNetGetUser(lpName,lpUserName,lpnLength)=NO_ERROR then
        Result:=lpUserName;
      FreeMem(lpUserName,lpnLength);
    end;
  end;
你用这个方法试试

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
    nSize:cardinal;
    Buffer:array[0..255]of char;
begin
    nSize:=256;
    GetUserName(@Buffer,nSize);
    showmessage(Buffer);
end;

Answer 2

Jera(我只穷得剩下分了~~~~~~~~),OK!