Delphi获得计算机系统配置,用Delphi获取本地计算机名称和IP地址

本程序介绍如何获取本地计算机的名称和IP地址。

向窗体上添加两个TLabel组件、两个TEdit组件和一个TButton组件，设计完成的主界面如图1所示。

图1 主界面

首先在程序的uses段中添加对WinSock的引用，然后添加一个GetHostName自定义函数，在其中调用GetComputerName函数获取计算机名称，响应代码如下：

function TfrmMain.GetHostName:String;

var

ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;

Size: Cardinal;

begin

result:='';

Size := MAX_COMPUTERNAME_LENGTH+1;

GetComputerName(ComputerName, Size);

Result:=StrPas(ComputerName);

end;

添加一个NameToIP自定义函数，在其中调用GetHostByName函数根据计算机名称获取计算机的IP地址，响应代码如下：

function TfrmMain.NameToIP(Name:string):String;

var

WSAData: TWSAData;

HostEnt: PHostEnt;

begin

result:='';

WSAStartup(2, WSAData);

HostEnt := GetHostByName(PChar(Name));

if HostEnt <> nil then

begin

with HostEnt^ do

result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),Byte(h_addr^[2]), Byte(h_addr^[3])]);

end;

WSACleanup;

end;

程序代码如下：

unit Unit1;

interface

uses

Windows, Messages, Sys Utils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, WinSock;

type

TfrmMain = class(TForm)

btnStart: TButton;

edtIP: TEdit;

edtName: TEdit;

Label1: TLabel;

Label2: TLabel;

function GetHostName:String;

procedure btnStartClick(Sender: TObject);

function NameToIP(Name:string):String;

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmMain: TfrmMain;

implementation

{$R *.dfm}

function TfrmMain.GetHostName:String;

var

ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;

Size: Cardinal;

begin

result:='';

Size := MAX_COMPUTERNAME_LENGTH+1;

GetComputerName(ComputerName, Size);

Result:=StrPas(ComputerName);

end;

procedure TfrmMain.btnStartClick(Sender: TObject);

begin

edtName.Text:=GetHostName;

edtIP.Text:=NameToIP(edtName.Text);

end;

function TfrmMain.NameToIP(Name:string):String;

var

WSAData: TWSAData;

HostEnt: PHostEnt;

begin

result:='';

WSAStartup(2, WSAData);

HostEnt := GetHostByName(PChar(Name));

if HostEnt <> nil then

begin

with HostEnt^ do

result:= Format('%d.%d.%d.%d',[Byte(h_addr^[0]), Byte(h_addr^[1]),

Byte(h_addr^[2]), Byte(h_addr^[3])]);

end;

WSACleanup;

end;

end.

用Delphi获取本地计算机名称和IP地址.doc

下载Word文档到电脑，方便收藏和打印[全文共1380字]

编辑推荐：

下载Word文档