Delphi 如何获取本地计算机名和IP地址

最新推荐文章于 2024-11-10 15:49:32 发布

sanoul

最新推荐文章于 2024-11-10 15:49:32 发布

阅读量2.3k

点赞数

文章标签： delphi byte string function windows

本文链接：https://blog.youkuaiyun.com/sanoul/article/details/1660276

版权

获取计算机名函数：

uses Windows;

function 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;

获取计算机IP函数：

function HostNameToIP(HostName:string):String;
var
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
result:='';
WSAStartup(2, WSAData);
HostEnt := GetHostByName(PChar(HostName));
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;