컴퓨터 이름 알아내기

// 컴퓨터 이름 알아내기.
function GetComputerNetName: String;
var
   buffer: array[0..255] of char;
   size: dword;
begin
   size := 256;
   if GetComputerName(buffer, size) then
      Result := buffer
   else
      Result := ''
end;