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

最新推荐文章于 2023-03-22 09:20:18 发布

原创最新推荐文章于 2023-03-22 09:20:18 发布 · 2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #function #windows

本文提供了使用Delphi获取本机IP地址、计算机名及Windows登录用户名的方法。通过调用WinSock API和Windows API函数实现，适用于需要进行本地网络配置检查或获取当前用户会话信息的应用场景。

//取本机的 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;