获取本地计算机的名称和IP地址

1. uses  WinSock;
3. function Pub_GetComputerName: string; {计算机名}
4. var
5.   CNameBuffer: PChar;
6.   fl_loaded: Boolean;
7.   CLen: ^DWord;
8. begin
9.   result := '';
10.   GetMem(CNameBuffer, 255);
11.   New(CLen);
12.   CLen^ := 255;
13.   fl_loaded := GetComputerName(CNameBuffer, CLen^);
14.   if fl_loaded then
15.     result := StrPas(CNameBuffer)
16.   else
17.     result := 'Unkown';
18.   FreeMem(CNameBuffer, 255);
19.   Dispose(CLen);
20. end;
22. function Pub_LocalIP: string; {获取IP}
23. type
24.   TaPInAddr = array[0..10] of PInAddr;
25.   PaPInAddr = ^TaPInAddr;
26. var
27.   phe: PHostEnt;
28.   pptr: PaPInAddr;
29.   Buffer: array[0..63] of char;
30.   I: Integer;
31.   GInitData: TWSADATA;
32. begin
33.   WSAStartup($101, GInitData);
34.   Result := '';
35.   GetHostName(Buffer, SizeOf(Buffer));
36.   phe := GetHostByName(buffer);
37.   if phe = nil then Exit;
38.   pptr := PaPInAddr(Phe^.h_addr_list);
39.   I := 0;
40.   while pptr^[I] <> nil do begin
41.     result := StrPas(inet_ntoa(pptr^[I]^));
42.     Inc(I);
43.   end;
44.   WSACleanup;
45. end;