2008-06-27 20:15
begin
ShortCut1.ExeFile:='C:\Windows\notepad.exe'; //目标文件
ShortCut1.DestDir:='C:\'; //快捷方式保存路径 留空创建到桌面
ShortCut1.LnkFile:='记事本'; //快捷方式名称
ShortCut1.WriteOut
end;
附件：
 |
2008-06-26 21:26
2008-06-22 20:03
2008-06-18 16:14
标 题: 【原创】SSDT Hook For Delphi
作 者: Anskya
时 间: 2 | |
2008-06-18 16:11
关于SSDT Hook的理论知识就不多说了。
简单的说一下Delphi开发KMD的一些需要注意的地方...
这里使用DDDK---有点自己修改过的痕迹不过区别不大...自己可以看代码
1.KeServiceDescriptorTable是一个很特殊的函数...如果直接使用implib来进行创建库的话
你会发现这个函数是被忽略的...因为偏移为0所以这个函数基本上只能起到标志作用没有任何实用价值....一些代码中出现了
代码:
function SystemService(AFunc:Pointer):PLONG;
begin
Result:=PLONG(Cardinal(KeServiceDescriptorTable^.Service |
2008-05-28 19:53
这个是一个练手的远控 主要还是给另一款远控做准备
基本上已经完成了 就是启动这块还有些问题
看来正式发布还要有些时间
|
2008-05-28 18:38
获取cpu速度
第一种
function GetCPUSpeed: Double;
const
DelayTime = 500;
var
TimerHi, TimerLo: DWORD;
PriorityClass, Priority: Integer;
begin
PriorityClass := GetPriorityClass(GetCurrentProcess);
Priority := GetThreadPriority(GetCurrentThread);
SetPriorityClass(GetCurrentProcess, REALTIME_PRIORITY_CLASS);
SetThreadPriority(GetCurrentThread, THREAD_PRIORITY_TIME_CRITICAL);
Sleep(10);
asm
|
2008-05-19 13:46
今天看到很多网站都变成黑白 我把网页的css打开发现实现起来其实很简单
html { filter:progid:DXImageTransform.Microsoft.BasicImage(grayscale=1); }
大家只要把上面代码嵌入css文件就可以了
|
2008-05-15 10:02
*******************************************************
*标题:【原创】SSDT Hook的妙用－对抗ring0 inline hook *
*作者:堕落天才 |
2008-05-14 21:27
看了受灾地区的同胞们的照片 突然觉得很想哭 如果我们可以帮他们一把 就奉献自己的一份爱心吧！
因为这次地震 让很多人失去了至爱的亲人 这世间最大的痛苦莫过于此了 房屋 金钱 我们可以不要 但是
亲人 朋友是无法再回来的 一旦失去了 就永远失去了 如果我们现在献出一份微薄的力 这对于正在死亡
边缘上的人们是一份莫大的帮助 用我们的爱心关爱每一个受灾的同胞们吧！
http://w |
|
| 
