delphi 调用驱动

最新推荐文章于 2020-04-09 10:37:51 发布

网上de坏人

最新推荐文章于 2020-04-09 10:37:51 发布

阅读量1.6k

点赞数

文章标签： delphi reference action forms file io

本文链接：https://blog.csdn.net/chinazhd/article/details/6440487

版权

这篇博客详细介绍了如何在Delphi应用程序中调用驱动程序来实现隐藏指定进程的功能。通过创建设备、创建事件、发送事件句柄给驱动以及传递进程名到驱动，实现了对目标进程的隐藏操作。

摘要由CSDN通过智能技术生成

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, untProcessEventThr, PsAPI, ComCtrls, StrUtils; type TForm1 = class(TForm) btnHide: TButton; edtProcessName: TEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure btnHideClick(Sender: TObject); private { Private declarations } public { Public declarations } m_hCommDevice:THandle; m_hCommEvent:THandle; end; var Form1: TForm1; implementation uses Unit2, untConst; {$R *.dfm} procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var dwReturn:DWORD ; begin if(m_hCommDevice <> 0) then begin if(m_hCommEvent <> 0) then begin DeviceIoControl(m_hCommDevice, IO_DEREFERENCE_EVENT, nil, 0, nil, 0, dwReturn, nil); CloseHandle(m_hCommEvent); end; CloseHandle(m_hCommDevice); end