Delphi 中取本机的计算机名、IP地址、Windows登录的用户名

//作者：陆岛工作室 XOtec Studio
//组件库：XOtecExpress。  

几个在Delphi 中取本机的计算机名、IP地址、Windows登录的用户名的函数.

uses Windows, WinSock;

{  ComputerLocalIP  }

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

转载于:https://www.cnblogs.com/iinsnian/archive/2008/06/06/1214992.html