Delphi自定义过程获取本机ip，名字，用户名

//取本机的 IP 地址

function ComputerLocalIP: string;
var
ch: array[1..32] of char;
wsData: TWSAData;
myHost: PHostEnt;
i: integer;
begin
Result := '';
if WSAstartup(2,wsData)<>0 then Exit; // can’t start winsock
try
    if GetHostName(@ch[1],32)<>0 then Exit; // getHostName failed
except
    Exit;
end;
myHost := GetHostByName(@ch[1]); // GetHostName error
if myHost=nil then exit;
for i:=1 to 4 do
begin
    Result := Result + IntToStr(Ord(myHost.h_addr^[i-1]));
    if i<4 then
      Result := Result + '.';
end;
end;

//取本机的计算机名

{ ComputerName }

function ComputerName: string;
var
FStr: PChar;
FSize: Cardinal;
begin
FSize := 255;
GetMem(FStr, FSize);
Windows.GetComputerName(FStr, FSize);
Result := FStr;
FreeMem(FStr);
end;

//取Windows登录用户名

{ WinUserName }

function WinUserName: string;
var
FStr: PChar;
FSize: Cardinal;
begin
FSize := 255;
GetMem(FStr, FSize);
GetUserName(FStr, FSize);
Result := FStr;
FreeMem(FStr);
end;

Delphi自定义过程获取本机ip，名字，用户名相关推荐

Delphi如何获取本机IP地址
Delphi获取本机IP地址 //获取本机IP function TKSMsgLog.GetLocalAddress:String; typeTaPInAddr = array [0..10] of ...
java获取本机ip地址_代码片段：获取系统所有IP
问题在Windows系统中,可以支持多个网卡,比如有线的以太网卡,无线网卡,虚拟网卡等.如下图所示: 每一张网卡由不同的类型,也可以分别被用户启用或禁用. 对于单独一张给定的网卡,其IP地址可以是D ...
java获取本机IP
如果是在windows环境: 使用InetAddress.getLocalHost()方法即可. import java.net.InetAddress;public class Main {publ ...
Qt网路与通信(获取本机IP、MAC、IPV6子网掩码等网络信息）
Qt网路与通信(获取本机网络信息) 在网络应用中,经常需要获取本机的主机名/IP地址和硬件地址信息等网络信息.运用QHostInfo.QNetworkInterface.QNetworkAddress ...
Linux C获取本机IP
方法1 #include <arpa/inet.h> #include <sys/socket.h> #include <netdb.h> #include < ...
Go 学习笔记（79）— Go 标准库 net（获取本机IP地址）
1. 获取本机 IP 地址 package mainimport ("fmt""net" )// 获取本机网卡IP func getLocalIP() (ipv ...
python获取mac、计算机id_python 获取本机IP、mac地址、计算机名的简单示例
这篇文章主要为大家详细介绍了python 获取本机IP.mac地址.计算机名的简单示例,具有一定的参考价值,可以用来参考一下. 对python获取本机IP.mac地址.计算机名感兴趣的小伙伴,下面一起 ...
在Linux上利用python获取本机ip
下面介绍在Linux上利用python获取本机ip的方法. 经过网上调查, 发现大致有两种方法, 一种是调用shell脚本,另一种是利用python中的socket等模块来得到,下面是这两种方法的源码 ...
python获取本机 ip地址、mac地址（物理地址）、计算机名、硬盘序列号、CPU序列号、主板序列号、bios序列号、bios uuid号
文章目录 python获取本机IP地址.mac地址(物理地址).计算机名物理地址计算机名.ip地址硬盘序列号 CPU序列号主板序列号 bios序列号 bios uuid号 python获取本机 ...

Delphi自定义过程获取本机ip，名字，用户名

Delphi自定义过程获取本机ip，名字，用户名相关推荐

最新文章

热门文章