GetComputerName()의 예를 올려봤습니다.
windows.pas 에 선언이 되어있습니다.
function TForm1.GetComputerNetName: string;
{ 컴퓨터이름 }
var buffer: array[0..255] of char;
size: dword;
begin
size := 256;
if GetComputerName(buffer, size) then // windows.pas
Result := buffer
else
Result := ''
end;
function TForm1.GetUserFromWindows: string;
{ 사용자명 }
var UserName : string;
UserNameLen : Dword;
begin
UserNameLen := 255;
SetLength(userName, UserNameLen) ;
if GetUserName(PChar(UserName), UserNameLen) Then // windows.pas
Result := Copy(UserName,1,UserNameLen - 1)
else
Result := 'Unknown';
end;