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

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