WinAPI: GetUserName - 获取当前用户名

//声明:
GetUserName(
  lpBuffer: PChar;  {缓冲区}
  var nSize: DWORD  {缓冲区大小}
): BOOL;


//举例:
var
  arr: array[0..254] of Char;
  d: DWORD;
begin
  d := SizeOf(arr);
  GetUserName(arr, d);
  ShowMessage(arr);   {wy}
end;


//另一例:
var
  p: PChar;
  num: DWORD;
begin
  num := 0;
  GetUserName(nil, num);
  ShowMessage(IntToStr(num));

  GetMem(p, num);

  GetUserName(p, num);
  ShowMessage(p);     {wy}

  FreeMem(p);
end;


//再一例:
var
  p: PChar;
  num: DWORD;
begin
  num := 0;
  GetUserName(nil, num);

  p := StrAlloc(num);

  if GetUserName(p,num) then
    ShowMessage(p)          {wy}
  else ShowMessage('无');

  StrDispose(p);
end;

转载于:https://www.cnblogs.com/del/archive/2008/02/07/1065821.html