调用实现为本机设置一个新名称, 利用 API 调用实现为本机设置一个新名称,获取本机的 OS 版本
摘要: 关键词:
本实例主要介绍,利用 API 函数获得本地计算机名称,并能为本机设置一个新 名称以及获得本机的操作系统的版本号 API 函数,计算机名称,操作系统的版本号
Setting a new name for the local host and obtaining the version of the OS version by API
Abstract: This instance mainly tells us that how to obtain the name of the local host and setup a new name for it as well as getting the version of operating system by API. Application Programming Interface function , the name of computer ,the version of operating system
Key
words:
设计步骤:
1. 界面设计如下图所示 . 界面设计
设计如下图所示
1
2.界面设计说明 界面设计说明 该窗体上的 4 个 speedbutton 按纽,caption 属性分别为获得操作系统本号,获得本地计 算机名称, 更改本地计算机名称;name 属性分别为 OsVersion,CmpName,ChaCmpName,SpExit; 3 个 Label 控件,caption 属性分别为 Version,Cname,NewName; name 属性分别为 Version,Cname,NewName 3 个 Edit 控件,name 属性分别为 EdtVer,EdtName,EdtCNewName;text 属性都为空
3. 程序主要代码及说明如下 程序主要代码及说明如下 及说明 ⑴ 在 uses 部分增加 StdCtrls; 单击获得操作
系统版本号按纽, ⑵ 单击获得操作系统版本号按纽,添加如下代码 procedure TFrmOS.OsVersionClick(Sender: TObject); var verinfo : TOSVERSIONINFO; begin verinfo.dwOSVersionInfoSize :=sizeof(TOSVersionInfo); if GetVersionex(verinfo) then begin edtver.Text := inttostr(verinfo.dwMajorVersion)+'.'+inttostr(verinfo.dwMinorVersion ); //获得本地操作系统的主版本号与次版本号,两者之间用点号连接 end; end; 单击获得本地计算机名称按纽, ⑶ 单击获得本地计算机名称按纽,添加如下代码 procedure TFrmOS.CmpNameClick(Sender: TObject); var s:array[1..127] of char; i:DWord; begin GetComputerName(@s,i); //获得本地计算机名称 edtname.Text :=s; end; 单击更改本地
计算机名称按纽,添加如下代码 ⑷ 单击更改本地计算机名称按纽 添加如下代码 procedure TFrmOS.ChaCmpNameClick(Sender: TObject); begin if SetComputerName(PChar(edtcnewname.text)) then
2
//把 edtcnewname 中的字符作为新的计算机名称 ShowMessage('您的计算机已改名为'+edtcnewname.Text) else ShowMessage('改名失败'); end; 单击退出按纽,添加代码如下 添加代码如下: ⑸ 单击退出按纽 添加代码如下: procedure TFrmOS.SpExitClick(Sender: TObject); begin close; //关闭运行窗口 end;
4.程序的运行结果如下所示
程序的运行结果如下所示
5.程序运行说明 .程序运行说明
3
① 单击“获得操作系统版本号”和“获得本地计算机名称”按纽时,则在对应行中的编 辑框内显出示结果 ② 当最后一
个编辑框中的内容为空时,则显示
③ 如要更改计算机的名称,则在对应的 NewName 后的编辑框中输入新的计算机名称, 则显示结果如 4 所示 所示.
参考文献 [1]. [2]. Delphi7 编程技巧与实例精解,张海卿,国防工业出版社
Delphi7 应用编程 150 例 尹立民,电子工业出版社
4