>>74　こんな事がしたいの？

uses WinSock; //他にWindowsも必要

function getMyHostName:string;
var wVersionRequested:WORD;
varwsaData:TWSADATA;
var hostname:string;
var host:PHostEnt;
var p:^PChar;
var PInAddr : ^TInAddr;
begin
if WSAStartup($1001, wsaData) <> 0 then begin Result:='**Err WSAStartup'; exit; end;
SetLength(hostname,512);
if gethostname(PChar(hostname), length(hostname)) <> 0 then begin Result:='**Err gethostname'; exit; end;
host:=gethostbyname(PChar(hostname));
if host=nil then begin Result:='**Err gethostbyname'; exit; end;
p:=@(host^.h_addr_list);
while assigned(p^) do begin
　 PInAddr:= @(p^);
　 Result:=Result+','+inet_ntoa(PInAddr^);
　 inc(p);
end;
WSACleanup;
end;