Delphi 嵌入汇编 进Ring0 360tray.exe
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, TlHelp32;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure exit360;
procedure Ring0ToRun; stdcall;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure exit360;
var
id:Cardinal;
sn:THandle;
boo:Boolean;
lpp:TProcessEntry32;
phand:HWND;
begin
sn:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
lpp.dwSize:=SizeOf(lpp);
try
boo:=Process32First(sn,lpp);
while boo do
begin
if lpp.szExeFile = '360tray.exe' then
begin
//Result:=lpp.szExeFile;
id:=lpp.th32ProcessID;
phand:=OpenProcess(PROCESS_ALL_ACCESS,False,id);
GetWindowThreadProcessId(phand,id);
TerminateProcess(phand,ExitCode);
Break;
end;
boo:=Process32Next(sn,lpp);
end;
except
end;
end;
procedure Ring0ToRun; stdcall;
const
ExceptionUsed = $03; // 中断号,也可以用其他的中断号，如$05等
var
IDT:array [0..5] of byte; //保存中断描述符表，6字节
lpOldGate : DWORD; // 保存旧的中断向量，8个字节
begin
asm
sidt IDT //读入中断描述符表至IDt中
mov ebx, dword ptr [IDT+2] //IDT共6字节，第2~5字节是中断描述符表的基地址，基地址存入ebx中
add ebx, 8*ExceptionUsed //加上8x3个字节，因为每个中断向量占用8字节，
cli //关中断，下面的代码是关键代码，不允许打断
mov dx, word ptr [ebx+6] //取中断向量的6，7字节
shl edx, 16d //左移16位，中断向量的6，7字节存入edx的高32位
mov dx, word ptr [ebx] //取中断向量的0，1字节，存入edx低32位
mov [lpOldGate], edx //保存中断向量至lpoldgate中
mov eax, offset @@Ring0Code //修改向量，指向Ring0级代码段
mov word ptr [ebx], ax
shr eax, 16d
mov word ptr [ebx+6], ax
int ExceptionUsed // 发生中断，自动以ring0执行@@Ring0Co
相关文档：
community.csdn.net/Expert/topic/3423/3423580.xml?temp=.7675897
主 题： 怎样用DELPHI接收摄像头的图象
作 者： benbenpear (笨笨)
等 级：
信 誉 值： 100
所属社区： Delphi GAME，图形处理/多媒体
问题点数： 0 ......
1、 系统功能
1）、数据压缩
使用DELPHI提供的两个流类（TCompressionStream和TDecompressionStream）来完成数据的压缩和解压缩。
2）、数据加密压缩
通过Delphi编程中“流”的应用实现数据加密，主要采用Tstream的两个派生类Tfilestream、Tmemorystream 来完成的；其中数据压缩部分采用1）的实现� ......
名称 类型 说明
--------------------------------------------------------- ......
1、先用Const 定义一个常量，例如 const WM_MyMessage=WM_USER+$200;
2、在要实现的unit中定义一个私有方法
procedure doMyMessage(var msg:TMessage);message WM_MyMessage;
3、实现这个私有方法
procedure TForm1.doMyMessage(var msg:TMessage);
begin
//
if msg. ......
查找另外一个窗口的句柄： handle := FindWindow(nil,PChar('窗口的标题'));//查到窗体句柄
查找子窗体：childHandle := FindWindowEx(handle,0,'子窗体类','子窗体标题');
另外有个枚举子窗体的API，EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数，比如：
function EnumChil ......
