//声明: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; 本文共 276 字，大约阅读时间需要 1 分钟。
//声明: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