摘要：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）。......
我写的换肤的类.应用于播放器中.
上一页 ...st value: integer);
procedure texttimer(sender: tobject);
//------------------------
function createctrl: integer; //创建按钮并返回编号.
function createslider: integer; //创建 slider 并返回编号.
function createtext: integer; //创建 text 框并返回编号.
function inctrl(vindex, x, y: integer): boolean;
//鼠标是否在按钮上.
function readfile(var f: textfile; var keystr, valstr : string): boolean;
procedure setimageindex(index: integer; const value: integer);
//设定按钮应显示哪种状态图.
procedure slideronmousemove(sender: tobject; shift: tshiftstate; x,
y: integer);
procedure slideronmousedown(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);
procedure slideronmouseup(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);
//鼠标在 slider 上.
procedure ctrlonmousedown(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);
procedure ctrlonmouseup(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);
procedure ctrlonmousemove(sender : tobject; shift : tshiftstate; x, y : integer);
//鼠标在 button 上.
procedure backonmousedown(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);
//鼠标在背景上右击
procedure etextonmousedown(sender : tobject; button : tmousebutton;
shift : tshiftstate; x, y : integer);//鼠标在文字区域上右击
function createregion(wmask:tbitmap;wcolor:tcolor;hcontrol:thandle): hrgn;
public
constructor create(tfrm:tform);
destructor destroy; override;
procedure clearskin;
function loadskin(vfile : string): boolean; //载入皮肤.
function reloadskin(vfile : string):boolean; //转换:min\normal.
property imageindex[index : integer] : integer write setimageindex;
function sliderseek(index : integer; offset : real) : boolean;
//设置 slider 的位置,offset 为百分比:1.00-0.00
function sliderpositon(index : integer) : integer;
//得到 slider 的位置:0-100.
function settext(index : integer; str : string) : boolean;
//设置信息提示框文字.
property textscrolltimer:integer read ftextscrolltimer
write settextscrolltimer default...
下一页 摘要：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......
