delphi 如何得到本机器的计算机名和IP？？？？

Posted 2023-05-05

参考技术A 解析IP地址为主机名。使用
WinSock
单元；过程如下：
function
IPAddrToName(IPAddr
:
String):
String;
var
SockAddrIn:
TSockAddrIn;
HostEnt:
PHostEnt;
WSAData:
TWSAData;
begin
WSAStartup($101,
WSAData);
SockAddrIn.sin_addr.s_addr
inet_addr(PChar(IPAddr));
HostEnt
gethostbyaddr(@SockAddrIn.sin_addr.S_addr,
4,
AF_INET);
if
HostEnt<>nil
then
begin
result:=StrPas(Hostent^.h_name)
end
else
begin
result:='';
end;
end;测试时请在在线状态。测试代码：var
Name:
string;begin
Name
InputBox('输入对方主机IP',
'主机IP地址：',
'');
showmessage(IpAddrToName(Name));end;

windows修改计算机名和ip

@echo off echo. echo. echo 自动修改计算机名和ip echo. set /p f=请输计算机的IP后缀（值小于255）： set name= test%f% set net=本地连接 3 set ip=192.168.10. set mask=255.255.255.0 set gateway=192.168.10.1 set dns1=114.114.114.114 set dns2=8.8.8.8 reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam" /v @ /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Services\Eventlog" /v "ComputerName" /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName" /v "ComputerName" /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t REG_SZ /d "%name%" /f >nul reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /v "Hostname" /t REG_SZ /d "%name%" /f >nul netsh interface ip set address "%net%" static %ip%%f% %mask% %gateway% netsh interface ip set dns "%net%" static %dns1% primary netsh interface ip add dns "%net%" %dns2% echo 已修改的配置信息如下： echo. echo 计算机名 %name% echo ip %ip%%f% echo 掩码 %mask% echo 网关 %gateway% echo dns1 %dns1% echo dns2 %dns2% echo. echo "计算机名和ip修改成功" pause