안녕하세요. 짱굽니다.
우선 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;
좋은 코딩하세요...
|