Delphi获取计算机名
工具/原料
1
Delphi7
2
Windows电脑
方法/步骤
1
打开Delphi7集成开发环境，并在默认工程的Form1窗体，放一个Button1按钮。
2
双击Button1按钮，进入OnClick事件方法，编写代码如下：procedure TForm1.Button1Click(Sender: TObject);var arr: array[0..MAX_COMPUTERNAME_LENGTH] of char; ds: DWORD;begin ds := SizeOf(arr); GetComputerName(arr, ds); ShowMessage(arr);end;
3
GetComputerName函数原型如下:GetComputerName( lpBuffer: PChar; //存储计算机名字符指针var nSize: DWORD): BOOL; //存在空间大小
4
F9运行程序，点击Button1按钮，弹出对话框，内容为计算机名。
5
右键我的电脑，点击属性，获取计算机信息。
6
在计算机名区对比程序弹出对话框内容，计算机名一致，程序获取计算机名成功。