有15种颜色可以选择，黑色是背景色阿法安防网
There are 15 colors to choose from, and the black is the background colorAlfa security network (2018-03-22, Pascal, 103KB, 下载1次)
Ping功能实现.txt
很多时候不检查局域网内的IP是否连通，直接通过IP访问，程序会卡住很久，有1分钟左右，这给用户的体验非常不好，现在通过检查是否连通，设置为1.5S后不连通则不进行后面的操作，程序效率大大提升，如下是检查局域网内的IP或者外网的IP是否连通的实现。
? ? ? 后面的代码直接保存为Ping.Pas，即可直接使用，下面是使用方法 ：
Ping
Ping.Pas
destructor Tping.destroy;
begin
FreeLibrary(hIcmpDll);
inherited destroy;
end; (2018-03-03, Pascal, 1KB, 下载1次)
delphi7写的微信支付源码，包括第三方控件
Delphi7 written WeChat payment source (2017-08-31, Pascal, 583KB, 下载25次)