摘要：windows自带的tracert是向远程主机发送icmp包进行追踪，但是目前很多主机关闭了icmp答复，这个工具不太好使了~~~~~原理咱知道，正规的trace不就是发送ttl依次递增的udp包吗？什么网关和路由敢随意丢弃我们的udp包而不通知我们？俺的icmp包你可以不理，但是udp包~~~~~不怕俺黑你？？？unit yrecords;interfaceuses windows;const ......
摘要： 今日看到一个帖子问：如何在托盘图标实现象window开始菜单中菜单左侧的图片效果。于是自己动手做了一个。 我的思路是不用菜单，用窗体来实现（我想不仅是delphi其他编程语言应该一样可以）。 例子中我用到了一个第三方控件：trayicon用来显示动态托盘图标（下载地址：asp?articleid=1985">http://2ccc.com/article.asp?articleid=1985）。......
我写的换肤的类.应用于播放器中.
//我写的换肤的类,还很不完善.用于我作的d-flasher 中的皮肤更换中.
//单元名称:实现皮肤更换的类:skinunit.
//可以实现窗体按钮,滚动条的点击,移动,以及读取滚动条的百分比.
//类还实现了皮肤自定义的设置.
//只要准备了3幅图片,并编写 ini 文件.就可以做到换肤!
//完成日期:2004/12/03 ending722.
unit skinunit;
interface
uses controls, types, extctrls, sysutils, strutils,
windows, messages, graphics, forms, classes, comctrls;
//trayicon_event=wm_user+100; //托盘图标消息. in:mainfrm.
const myskin_buttonup = wm_user+101; //按钮抬起.
const myskin_sliderpos = wm_user+102; //滚动条移动.
const myskin_rdowntext = wm_user+103; //右击文本框
const myskin_ldowntext = wm_user+104; //左击文本框
const myskin_downbackrect = wm_user+105; //点击背景区域
//const myskin_clickflist = wm_user+106; //双击列表项.
const myskin_slidermouseup = wm_user+107; //鼠标从滚动条抬起.
const myskin_moveform = wm_user+111; //移动窗体.
//myskin_change = wm_user+108; //换肤消息. in:option.dll.
//myskin_timerenabled = wm_user+109; //激活,禁止文本滚动. in:option.dll.
//myskin_scrolltextrate = wm_user+110;//文本滚动速度. in:option.dll.
type
tctrlrec = record //定义按钮.
ctrl : timage;
require : string; //要执行的命令.
end;
tsliderrec = record //定义滚动条
slider : timage;
min : integer; //最小值(防止越界)
max : integer;
style : string; //水平 , 竖立.
require : string; //要执行的命令.
end;
ttextrec = record //定义显示框
etext : timage; //显示区域
require : string; //要执行的命令.
end;
tskin = class (tcomponent)
private
frm : tform; //调用窗体.
minstate : boolean; //是否最小化.
scrolltimer : ttimer;
frmanysapecolor:tcolor; //异型窗体时使用.
//滚动条------------------------------
slidercount : integer; //总数.
sliders : array of tsliderrec; //用动态数组记录每个 slider.
isdown : boolean; //是否按下一个 slider.
slidermousepos : integer; //鼠标按在 slider 上的位置(偏移).
fsliderposition : integer; //slider 位置(百分比).
//按钮---------------------------------
ctrlcount : integer;
ctrls : array of tctrlrec;
backimage : timage; //窗口的背景图片.
bkgimage : array [0..2] of tpicture; //存放3张替换图片.
current : integer; //记录哪个按钮要还原到 a 图.
//文字---------------------------------
textcount : integer;
texts : array of ttextrec;
//时钟 -------------------------------
ftext1text : string; //得到 text1.text .
ftimerenabled : boolean; //用于滚动显示 text1 的内容.
ftextscrolltimer : integer;
procedure settimerenabled(const value: boolean);
procedure settextscrolltimer(con...
下一页 摘要：there are at least 3 ways to create an http link on your form, ill describe 2 of them here. terms of agreement: by using this article, you agree to the following terms... 1) you may use this article i......
