首页
RSS
标签
留言
边栏
链接
归档
星标日志
看美女啦
测试代码高亮
用Delphi开发实现网
Delphi删除运行程序本身的方法! 不是用批处理的方法(bat)!
大
|
中
|
小
[2008/10/20 17:26 | 分类:
编程开发源码
| by
管管
]
呵呵,从啊D的博客里转载来的。
procedure deleteSelf; var hModule: THandle; szModuleName: array[0..MAX_PATH] of char; hKrnl32: THandle; pExitProcess, pdeleteFile, pFreeLibrary, pUnmapViewOfFile: pointer; ExitCode: UINT; begin hModule := GetModuleHandle(nil); GetModuleFileName(hModule, szModuleName, sizeof(szModuleName)); hKrnl32 := GetModuleHandle('kernel32'); pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess'); pdeleteFile := GetProcAddress(hKrnl32, 'deleteFileA'); pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary'); pUnmapViewOfFile := GetProcAddress(hKrnl32, 'UnmapViewOfFile'); ExitCode := system.ExitCode; if ($80000000 and GetVersion()) <> 0 then // Win95, 98, Me asm lea eax, szModuleName push ExitCode push 0 push eax push pExitProcess push hModule push pdeleteFile push pFreeLibrary ret end else begin CloseHandle(THANDLE(4)); asm lea eax, szModuleName push ExitCode push 0 push eax push pExitProcess push hModule push pdeleteFile push pUnmapViewOfFile ret end end end;
Tags:
delphi
评论(0)
|
引用(0)
|
阅读(2430)
引用地址:
注意:
该地址仅在今日23:59:59之前有效
发表评论
昵称
电邮
打开HTML
打开UBB
打开表情
隐藏
记住我
感谢各位刀友的支持和访问,如果您拥有什么好东西,或者可以提供一些好东西的线索,也欢迎发给我们。在整理后,就可以出现在我们的网站上了哦!
黑刀部落QQ群:2826544
管巨侠 MSN:heidao@9.cn
管巨侠 QQ:44167884
分类
部落新动向
[35]
佛教学习
[0]
部落原创项目
[16]
实用软体
[8]
编程开发源码
[6]
入侵与防范
[1]
PSP游戏
[1]
杂七杂八
[16]
Ubuntu / Linux
[1]
管管的简历
黑刀聚合中心
黑刀在线工具大全
日历
<
2012
>
<
2
>
壬辰年(龙)
日
一
二
三
四
五
六
1
初十
2
十一
3
十二
4
十三
5
十四
6
十五
7
十六
8
十七
9
十八
10
十九
11
二十
12
廿一
13
廿二
14
廿三
15
廿四
16
廿五
17
廿六
18
廿七
19
廿八
20
廿九
21
三十
22
二月
23
初二
24
初三
25
初四
26
初五
27
初六
28
初七
29
初八
统计
访问次数 469710
今日访问 151
日志数量 84
评论数量 424
引用数量 0
留言数量 65
注册用户 1
在线人数 16
搜索
日志标题
日志全文
评论引用
所有留言
最新日志
给大家推荐一个免费的VP...
部落推出PHP加密官网,...
关于苹果Iphone、i...
与CmsEasy代码保护...
杂记
最新评论
貌似不能输出文件?软件提...
中易广告联盟V6.0的能...
刚才正在尝试用黑刀破解C...
谢了 兄弟 支持你,
下载下来的文件金山毒霸报...
链接
合作网站
①梦叁肆年
香橙's Blog
杨言的博客
Sunny Realm | 晟境
konakona的博客
黑熊的部落格
归档
2012/02
2012/01
2011/12
2011/11
2011/10
其他
登入
注册
申请链接
RSS:
日志
|
评论
编码:UTF-8
XHTML 1.0
Powered by
Bo-Blog 2.1.1 Release