//声明:
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;
转载于:https://my.oschina.net/hermer/blog/319028