如何取得NT或者2000下的用户名？

Question

function TFrm_main.localip: String;type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA; 
begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));//得到计算机名称
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result := StrPas(inet_ntoa(pptr^[I]^));//得到ip
      Inc(I);
    end;
    WSACleanup;
end;

Answer 1

大哥我是要得到用户名名
比如是Administrator登录
我要得到Administrator这个名字

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: array[0..255] of char;
  size: Cardinal;
begin
  GetUserName(buf, size); // buf相当于PChar, size是传引用
  Edit1.Text := StrPas(buf); // 要转换成String型
end;