问个delphi中断编程和嵌入汇编的问题(200分)

1、潜入的汇编如何操作一些对象（比如文本框）的属性。
2、delphi如何作中断编程？比如我如何写irq10中断的处理程序。
最好给个例子，多谢
mail:xiaoflyfly@263.net

1 asm mov ax ListBox.Height
直接写进去就行了
2 不知道。

Windows 编程不能直接调用中断吧？应该用Vxd(Win9X)吧。

to Kylix㊣:
能否具体一点？3x

小弟也是个菜鸟，呵呵。听说过而已，没用过，
其实网上有很多这方面的资料，大富翁上也有很多高手的。

to 坛主：
我对答案不满意，请给mikedeakins、Kylix㊣各30分，其余收回。
谢谢！

可以直接调用中断，但有些中断行，通常是那些直接操作硬件的中断，但有些也是开放的，
我记得INT 10是可以的，不过很久不用了，忘了也说不定，具体可以看DELPHI的帮助，上面
有关于这个的。但是操作端口的中断绝对可以。

可以直接调用中断，但有些中断不行，通常是那些直接操作硬件的中断，因为在WINDOWS下
不允许直接对硬件操作，需要通过VXD实现，但有些也是开放的，具体可以看DELPHI的帮助，上面
有关于这个的。但是操作端口的中断绝对可以。

看cih源代码
（下面的是转来的）
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label0: TLabel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const
hookexceptionno = 5;
ErrNo : integer =0;
var
pw : array [0..255] of WORD;// pw[256];
idtr_1 : array [0..5] of byte;
//保存中断描述符表寄存器
oldexceptionhook : dword;
//保存原先的中断入口地址
IdeBase : word;
SelectDisk: integer;
var
Form1: TForm1;
implementation
{$R *.DFM}
function inp(rdx:word) : byte;
asm
mov dx, rdx
in al, dx
end;

function inpw(rdx: word) : word;
asm
mov dx, rdx
in ax, dx
end;

procedure outp(ral : byte;
rdx : word);
asm
mov dx, rdx
mov al, ral
out dx, al
end;

function WaitIde:byte;
var
al:byte;
begin
repeat
al:=inp(IdeBase+7);
until (al<$80) or (al=$a0);
//$a0可能就没有硬盘
WaitIde := al;
end;

procedure ReadIDE;
var
al : byte;
i : integer;
begin
WaitIde;
outp(SelectDisk,IdeBase+6);
al := WaitIde;
if ((al and $50) <>$50) then
begin
ErrNo:=1;
exit;
end;

outp(SelectDisk,IdeBase+6);
outp($EC,IdeBase+7);
al := WaitIde;
if ((al and $58)<>$58) then
begin
ErrNo:=2;
exit;
end;

for i:=0 to 255do
begin
pw := inpw(IdeBase);
end;
end;

// 新的中断处理程序
procedure ReadIt;
assembler;
asm
push eax
push ebx
push ecx
push edx
push esi
push edi
// 在这里写读程序
call ReadIDE
pop edi
pop esi
pop edx
pop ecx
pop ebx
pop eax
iretd
end;

procedure GetSerialNo;
assembler;
begin
asm
push eax
// 获取修改的中断的中断描述符（中断门）地址
sidt idtr_1
mov eax,dword ptr idtr_1+02h
add eax,hookexceptionno*08h+04h
// 保存原先的中断入口地址
cli
push ecx
mov ecx,dword ptr [eax]
mov cx,word ptr [eax-04h]
mov dword ptr oldexceptionhook,ecx
pop ecx
// 设置修改的中断入口地址为新的中断处理程序入口地址
push ebx
lea ebx,ReadIt
mov word ptr [eax-04h],bx
shr ebx,10h
mov word ptr [eax+02h],bx
pop ebx
// 执行中断，转到ring 0（与cih 病毒原理相似！）
push ebx
int hookexceptionno
pop ebx
// 恢复原先的中断入口地址
push ecx
mov ecx,dword ptr oldexceptionhook
mov word ptr [eax-04h],cx
shr ecx,10h
mov word ptr [eax+02h],cx
pop ecx
// 结束
sti
pop eax
ret
end;
end;

procedure GetPN(DriveNo: integer;
var s:string);
var
i : integer;
begin
// asm int 3 end;
ErrNo:=0;
fillchar(pw,sizeof(pw),0);
s:='';
case DriveNo of //设置基址
0,1:IdeBase:= $1f0;
2,3:IdeBase:= $170;
end;
case DriveNo of //指定主从
0,2:SelectDisk:=$A0;
1,3:SelectDisk:=$B0;
end;

GetSerialNo;
if ErrNo<>0 then
exit;
//读错误
if (pw[0]=0) then
s := '没有序列号'
else
for i:=10 to 20do
begin
s := s+ char(pw shr 8) + char(pw and $ff);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i:integer;
begin
for i:=0 to 3do
begin
GetPN(i, s);
if (s<>'') then
case i of
0: Label1.Caption := 'IDE1 主盘' +s;
1: Label2.Caption := 'IDE1 从盘' +s;
2: Label3.Caption := 'IDE2 主盘' +s;
3: Label3.Caption := 'IDE2 从盘' +s;
end;
end;
end;

end.

>>

给分了

上面说得不对，这样只是调用了软中断，其实人家问的应该是操作硬件中断，
这delphi是无能为力的

多人接受答案了。