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;

posted on 2007-12-12 00:09  万一  阅读(3517)  评论(2)  编辑  收藏