流年~~

用Delphi实现智能化Ping命令功能众所周知，Ping命令是Windows系统自带的一个针对TCP/IP协议的可执行命令，其主要作用是通过发送数据包并接收应答信息来检测两台计算机之间的网络是否连通。当网络出现故障时，可以用这个命令来检测故障和确定故障地点。但在MS-DOS方式下执行此命令，而且每秒钟执行一次Ping操作，显得似乎有些另类，今天，我们将实现智能化Ping命令的功能

delphi 获取本机IP地址和MAC地址unit NetFunc;interfaceuses SysUtils, Windows, dialogs, winsock, Classes, ComObj, WinInet, Variants; //错误信息常量 const C_Err_GetLocalIp = '获取本地ip失败'; C

1. DELPHI获得系统信息1. 获得系统本地信息Windows API中有一个函数GetLocaleInfo可以用来获得系统信息比如系统语言, 货币符号等代码如下：function TForm1.GetLocaleInformation(Flag: Integer): String;var pcLCA: Array[0..20] of Char;begin

1.GetComputerName - 获取计算机名称var  arr:array[0..MAX_COMPUTERNAME_LENGTH]of char;  d: DWORD;begin   d := SizeOf(arr);   GetComputerName(arr, d);   ShowMessage(arr);end; 2.GetCursorPos