看流星社区

 找回密码
 注册账号
查看: 5144|回复: 13

驱动新手献礼:LzOpenProcess之D版

[复制链接]

该用户从未签到

发表于 2011-8-7 11:15:49 | 显示全部楼层 |阅读模式
我是驱动新手,但是我在Delphi和VB的应用层开发方面都有很多年经验
看到炉子LzOpenProcess之VB版,于是将代码翻译为Delphi,测试通过
各位大大要是觉得我算是用心了,请赐予我一点声望吧

游客,如果您要查看本帖隐藏内容请回复

该用户从未签到

发表于 2013-1-17 21:59:17 | 显示全部楼层
function ZwQueryInformationProcess(ProcessHandle: THANDLE; ProcessInformationClass: ULONG; ProcessInformation: PVOID; ProcessInformationLength: ULONG; ReturnLength: PULONG): NTSTATUS; stdcall; external 'ntdll.dll';
function ZwQuerySystemInformation(SystemInformationClass: SYSTEM_INFORMATION_CLASS; SystemInformation: PVOID; SystemInformationLength: ULONG; lpReturnLength: PULONG): NTSTATUS; stdcall; external 'ntdll.dll';
function ZwDuplicateObject(SourceProcessHandle: THANDLE; SourceHandle: THANDLE; TargetProcessHandle: THANDLE; TargetHandle: PHANDLE; DesiredAccess: ACCESS_MASK; Attributes: ULONG; Options: ULONG): NTSTATUS; stdcall; external 'ntdll.dll';
function ZwOpenProcess(ProcessHandle: PHandle; DesiredAccess: ACCESS_MASK; ObjectAttributes: PObjectAttributes; ClientId: PClientId): NTSTATUS; stdcall; external 'ntdll.dll';

该用户从未签到

发表于 2014-10-2 17:30:39 | 显示全部楼层
好东西 强烈支持!!

该用户从未签到

发表于 2015-3-20 11:19:27 | 显示全部楼层
噶哈咔咔咔咔啦

该用户从未签到

发表于 2015-6-18 21:07:50 | 显示全部楼层
我要源码,找了好久了

该用户从未签到

发表于 2015-8-17 18:53:58 | 显示全部楼层
谢谢 谢谢分享

该用户从未签到

发表于 2015-8-17 18:54:12 | 显示全部楼层
谢谢 谢谢分享 噶哈咔咔咔咔啦

该用户从未签到

发表于 2015-8-27 16:55:48 | 显示全部楼层
谢谢 谢谢分享 噶哈咔咔咔咔啦

该用户从未签到

发表于 2019-3-28 14:32:14 | 显示全部楼层
支持楼主,支持看流星社区,以后我会经常来!

该用户从未签到

发表于 2019-3-28 16:30:32 | 显示全部楼层
支持楼主,支持看流星社区,以后我会经常来!
点击按钮快速添加回复内容: 支持 高兴 激动 给力 加油 苦寻 生气 回帖 路过 感恩
您需要登录后才可以回帖 登录 | 注册账号

本版积分规则

小黑屋|手机版|Archiver|看流星社区 |网站地图

GMT+8, 2024-4-19 15:03

Powered by Kanliuxing X3.4

© 2010-2019 kanliuxing.com

快速回复 返回顶部 返回列表