unit ICMPUtils; interface {$IFDEF VER80} { This source file is *NOT* compatible with Delphi 1 because it uses Win 32 features. } {$ENDIF} uses Windows, SysUtils, Classes, WinSock; const IcmpVersion = ; IcmpDLL = 'icmp.dll'; {IP status codes returned…