首页
社区
课程
招聘
[原创]用DELPHI编写DLL插件为Windows记事本增加各种功能
发表于: 2009-3-28 11:41 16516

[原创]用DELPHI编写DLL插件为Windows记事本增加各种功能

2009-3-28 11:41
16516
用DELPHI编写DLL插件为Windows记事本增加各种功能

作者:风铃夜思雨
主页:Http://Www.SkyGz.Com
日期:2009-03-27
环境:Windows XP SP3, Delphi 7

简介:
    使用PEDIY方式为记事本增加功能的方法也有不少了,但必须对PE结构以及汇编了解才可行;其过程很费时。

本代码将以DLL HOOK插件形式为记事本增加几种功能,这里给出两个方法的代码

方法一:用劫持系统DLL方式调用
方法二:用LoadPE为记事本增加一个初始化空白函数即可调用

详细可查看本目录下的代码及程序,目前已增加托盘栏、自动保存、窗口置顶、窗口透明功能;文件加密、工具栏功能未完成。
本人不习惯写代码注释,所以代码各位就将就下看看吧。

注意:千万不要把LPK.DLL覆盖到系统目录

我要申精,呵呵。。。


[培训]内核驱动高级班,冲击BAT一流互联网大厂工作,每周日13:00-18:00直播授课

上传的附件:
收藏
免费 7
支持
分享
最新回复 (30)
雪    币: 22
活跃值: (423)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
2
好东西 顶起..
2009-3-28 12:06
0
雪    币: 22
活跃值: (423)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
3
[Fatal Error] Hook.pas(13): File not found: 'CodeHook.dcu'

好象少个单元。。
2009-3-28 12:09
0
雪    币: 260
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
4
希望能出个教程,说说如何做。
2009-3-28 13:44
0
雪    币: 260
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
5
运行提示,应用程序初始化失败。、、、
2009-3-28 14:00
0
雪    币: 370
活跃值: (15)
能力值: ( LV9,RANK:170 )
在线值:
发帖
回帖
粉丝
6
LZ  留下精华一片
2009-3-28 17:37
0
雪    币: 123
活跃值: (295)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
7
不错,我喜欢.
2009-3-28 19:10
0
雪    币: 0
活跃值: (954)
能力值: ( LV3,RANK:30 )
在线值:
发帖
回帖
粉丝
8
替换掉lpk.dll 试试!
2009-3-28 19:16
0
雪    币: 225
活跃值: (1066)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
9
不错,学习了.
2009-3-28 20:06
0
雪    币: 205
活跃值: (11)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
10
都不能运行,重新上传一个吧,LZ辛苦啦!
2009-3-28 23:36
0
雪    币: 219
活跃值: (58)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
11
你们不能运行?都是用什么系统啊???
2009-3-29 15:13
0
雪    币: 260
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
12
用xp sp3呀.
2009-3-30 15:42
0
雪    币: 156
活跃值: (97)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
13
xp sp3 下好像不可以运行请问是怎么了?
2009-4-7 17:56
0
雪    币: 219
活跃值: (58)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
14
两个方法的程序都不能运行???不是吧
2009-4-8 13:54
0
雪    币: 102
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
15
[QUOTE=靴子;597866][Fatal Error] Hook.pas(13): File not found: 'CodeHook.dcu'

好象少个单元。。[/QUOTE]

在另一个压缩包里。解压后与 Hook.pas放在一起就可以了。
2009-4-8 19:27
0
雪    币: 451
活跃值: (117)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
16
同样两种方法都不能运行起来,方法1直接没有反应,方法二初始化失败
2009-4-29 15:26
0
雪    币: 270
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
17
我是来支持下LZ的
2009-4-29 15:53
0
雪    币: 0
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
18
学习一下 呵呵 谢谢楼主了
2009-4-29 16:00
0
雪    币: 156
活跃值: (97)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
19
恩我试验了··
不能运行~~~~~
2009-4-30 17:14
0
雪    币: 211
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
20
大哥你说话真幽默,我受不鸟啦
2009-4-30 17:25
0
雪    币: 211
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
21
明显是幽默!
2009-4-30 17:28
0
雪    币: 219
活跃值: (58)
能力值: ( LV3,RANK:20 )
在线值:
发帖
回帖
粉丝
22
没你这么傻,都说了是WINDOWS里的notepad了,windows里的notepad.exe当然是VC写

我说的是所写的DLL是DELPHI写的
2009-4-30 23:13
0
雪    币: 204
活跃值: (23)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
23
我还是忠意delphi所以楼主的贴我顶了
2009-5-1 00:27
0
雪    币: 203
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
24
严重关注~~收藏下!
2009-5-1 22:09
0
雪    币: 204
活跃值: (10)
能力值: ( LV2,RANK:10 )
在线值:
发帖
回帖
粉丝
25
实验了,都不能运行! SP3!
难道LPK 不一样?
是LPK不一样!
你的LPK 输出表第一个函数和我系统LPK输出表第一个函数都不一样!
2009-5-24 05:32
0
游客
登录 | 注册 方可回帖
返回
//