안녕하세요. 짱굽니다.

우선 GetUserName함수가 델파이의 windows.pas에 보시면 정의 되어있죠...


function GetUserName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall;


요렇게...

그러면 대충은 아시겠죠...

var
  pcName : Array[0..64] of Char;
  pName : Array[0..32] of Char;
  csize, size : DWORD;
  Name : String;
begin
  csize := 64;
  size := 32;
  GetComputerName(pCName, csize);
  GetUserName(pName, size);
  Caption := StrPas(pcName) + ' ' + StrPas(pName) + ' ' + IntToStr(Size);
end;

좋은 코딩하세요...