WinAPI: GetComputerName - 获取计算机名称

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

//举例:
var
arr: array[0..MAX_COMPUTERNAME_LENGTH] of char;
d: DWORD;
begin
d := SizeOf(arr);
GetComputerName(arr, d);
ShowMessage(arr);
end;