Delphi自定义过程获取本机ip,名字,用户名
来源:互联网 发布:win10没有网络图标 编辑:程序博客网 时间:2024/04/29 08:35
//取本机的 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;
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地址
- pageContext、获取用户名、本机IP、获取请求URL
- VC 获取本机名字和IP地址
- Delphi 中快速获取本机IP地址
- Delphi 7中快速获取本机IP地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- delphi 获取本机IP地址和MAC地址
- Delphi 中取本机的计算机名、IP地址、Windows登录的用户名
- 获取本机IP
- 获取本机IP
- 获取本机IP
- 获取本机IP
- 获取本机ip
- 获取本机IP
- 获取本机ip
- oracle 裸设备
- ==和equals的区别
- Query.list()和Query.iterator()的区别
- Delphi自定义获取网卡MAC地址过程
- JavaBean
- Delphi自定义过程获取本机ip,名字,用户名
- WebBrowser控件禁用超链接转向、脚本错误提示、默认右键菜单和快捷键
- TCP 连接关闭的 TIME_WAIT (2MSL) 状态,及 TCP 连接状态图
- 对鼠标的理解!
- C#设计
- GCC-3.4.6源代码学习笔记(168)
- Delphi替换PE图标资源
- HTML中的setCapture和releaseCapture
- C#类型转换