Delphi获取本机操作系统版本与计算机名称示例

概述

将详细介绍如何通过Delphi编程语言中的API函数来获取本地计算机的操作系统版本以及计算机名称，并实现为计算机更改名称的功能。这些实例对于进行系统信息读取或系统管理任务的应用程序开发非常有用。

设计目标与功能

• 获取操作系统版本：使用API函数GetVersionEx来读取本地计算机当前安装的操作系统的主版本号和次版本号。
• 获取计算机名称：通过GetComputerName函数获取当前计算机的网络名称。
• 更改计算机名称：使用SetComputerName函数为计算机设置一个新的名称。

界面设计

在Delphi环境中创建一个简单的图形用户界面（GUI），包括：

- SpeedButton：用于触发获取操作系统版本、获取计算机名称、更改计算机名称及退出程序的操作。

- Label：用于显示提示信息，如“操作系统版本”、“计算机名称”等。

- Edit：用于显示获取到的信息或输入新计算机名称。

主要代码实现

获取操作系统版本号

procedure TFrmOS.OsVersionClick(Sender: TObject);
begin
  verinfo.dwOSVersionInfoSize := SizeOf(TOSVersionInfo);
  if GetVersionEx(verinfo) then
  begin
    EdtVer.Text := IntToStr(verinfo.dwMajorVersion) + '.' + IntToStr(verinfo.dwMinorVersion);
  end;
end;

说明：通过调用GetVersionEx函数并将结果存储在TOSVERSIONINFO类型的结构体中，可以获取到系统的版本信息。

获取本地计算机名称

procedure TFrmOS.CmpNameClick(Sender: TObject);
begin
  GetComputerName(@s, i);
  EdtName.Text := s;
end;

说明：调用GetComputerName函数获取当前计算机的网络名称并显示。

更改本地计算机名称

procedure TFrmOS.ChaCmpNameClick(Sender: TObject);
begin
  if SetComputerName(PChar(EdtCNewName.Text)) then
  begin
    ShowMessage('您的计算机已改名为' + EdtCNewName.Text);
  end
  else
  begin
    ShowMessage('改名失败');
  end;
end;

说明：使用SetComputerName函数设置新的计算机名称，并根据结果给出提示。

退出程序

procedure TFrmOS.SpExitClick(Sender: TObject);
begin
  Close;
end;

说明：点击退出按钮后，程序将关闭当前窗口。

运行结果说明

• 点击“获取操作系统版本号”按钮时，将显示操作系统版本号。
• 点击“获取本地计算机名称”按钮时，将显示当前计算机的网络名称。
• 输入新名称并点击更改按钮后，将根据更改结果给出提示。

参考文献

• [1] 张海卿. Delphi7编程技巧与实例精解[M].国防工业出版社, 2003.
• [2] 尹立民. Delphi7应用编程150例[M].电子工业出版社, 2004.

通过以上步骤，开发者可以在Delphi环境下轻松实现获取本机操作系统版本及计算机名称的功能，同时也可以为计算机设置新的名称。这些基本功能对于系统管理工具的开发具有重要意义。