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;