Windows支持Internet控制消息协议（ICMP）来确定特定主机是否可用。ICMP是一种网络层协议，用于在Internet主机之间传递流量控制、错误消息、路由和其他数据。ICMP主要由应用程序开发人员用于网络ping。

什么是阿平(a ping)？

ping是向IP地址发送回显消息并读取回复以验证TCP/IP主机之间连接的过程。如果您正在编写一个新的应用程序，那么最好使用Winsock 2原始套接字支持，例如在Indy中实现。

但是，请注意，对于Windows NT和Windows 2000实施，原始套接字将接受安全检查，并且只能由管理员组的成员访问。Icmp.dll提供的功能允许开发人员在不支持Winsock 2的情况下在Windows系统上编写Internet ping应用程序。

请注意，在使用ICMP.DLL公开的函数之前，必须先调用Winsock 1.1 WSAStartup函数。如果不执行此操作，对IcmpSendEcho的第一次调用将失败，并出现错误10091（WSAsysonTready）。

您可以在下面找到Ping单元的源代码。下面是两个用法示例。

示例1：代码片段

uses Ping;...​const ADP_IP = '208.185.127.40'; (* http://delphi.about.com *)beginIf Ping.Ping(ADP_IP) then ShowMessage('About Delphi Programming reachable!');end;

示例2：控制台模式delphi程序

我们的下一个示例是一个控制台模式的Delphi程序，它使用Ping单元：。以下是Ping单元的来源：

unit Ping;​interfaceusesWindows, SysUtils, Classes;typeTSunB = packed records_b1, s_b2, s_b3, s_b4: byte;end;TSunW = packed records_w1, s_w2: word;end;PIPAddr = ^TIPAddr;TIPAddr = recordcase integer of0: (S_un_b: TSunB);1: (S_un_w: TSunW);2: (S_addr: longword);end;IPAddr = TIPAddr;function IcmpCreateFile : THandle; stdcall; external 'icmp.dll';function IcmpCloseHandle (icmpHandle : THandle) : boolean;stdcall; external 'icmp.dll'function IcmpSendEcho(IcmpHandle : THandle; DestinationAddress : IPAddr;RequestData : Pointer; RequestSize : Smallint;RequestOptions : pointer;ReplyBuffer : Pointer;ReplySize : DWORD;Timeout : DWORD) : DWORD; stdcall; external 'icmp.dll';function Ping(InetAddress : string) : boolean;implementationusesWinSock;function Fetch(var AInput: string;const ADelim: string = ' ';const ADelete: Boolean = true): string;variPos: Integer;beginif ADelim = #0 then begin// AnsiPos does not work with #0iPos := Pos(ADelim, AInput);end else beginiPos := Pos(ADelim, AInput);end;if iPos = 0 then beginResult := AInput;if ADelete then beginAInput := '';end;end else beginresult := Copy(AInput, 1, iPos - 1);if ADelete then beginDelete(AInput, 1, iPos + Length(ADelim) - 1);end;end;end;procedure TranslateStringToTInAddr(AIP: string; var AInAddr);varphe: PHostEnt;pac: PChar;GInitData: TWSAData;beginWSAStartup($101, GInitData);tryphe := GetHostByName(PChar(AIP));if Assigned(phe) thenbeginpac := phe^.h_addr_list^;if Assigned(pac) thenbeginwith TIPAddr(AInAddr).S_un_b do begins_b1 := Byte(pac[0]);s_b2 := Byte(pac[1]);s_b3 := Byte(pac[2]);s_b4 := Byte(pac[3]);end;endelsebeginraise Exception.Create('Error getting IP from HostName');end;endelsebeginraise Exception.Create('Error getting HostName');end;exceptFillChar(AInAddr, SizeOf(AInAddr), #0);end;WSACleanup;end;function Ping(InetAddress : string) : boolean;varHandle : THandle;InAddr : IPAddr;DW : DWORD;rep : array[1..128] of byte;beginresult := false;Handle := IcmpCreateFile;if Handle = INVALID_HANDLE_VALUE thenExit;TranslateStringToTInAddr(InetAddress, InAddr);DW := IcmpSendEcho(Handle, InAddr, nil, 0, nil, @rep, 128, 0);Result := (DW 0);IcmpCloseHandle(Handle);end;​end.