用Delphi编写VxD设备驱动程序

http://tech.ddvip.com   2006年07月30日    社区交流

本文详细介绍用Delphi编写VxD设备驱动程序

  所有其它的值 > 0 意味着不同的函数调用(由 dwiocontrolcode 给出),当 vxd 被 deviceiocontrol 函数调用时。

启动模块(vxdmain.asm)
...
extrn sysdynamicdeviceinit :proc
extrn sysdynamicdeviceexit :proc
extrn w32deviceiocontrol  :proc
...
            public delphiio_ddb
      public @@handlefinally
      public @initialization
...
control_0  proc
  cmp  eax, sys_dynamic_device_init
  jnz  short chksysdynexit
  call  sysdynamicdeviceinit
  cmp  eax, 1
  retn  
;-------------
chksysdynexit:
  cmp  eax, sys_dynamic_device_exit
  jnz  short chkdevioctl
  call  sysdynamicdeviceexit
  cmp  eax, 1
  retn  
;-------------
chkdevioctl:
  cmp  eax, w32_deviceiocontrol
  jnz  short loc_ret
  push  esi
  push  edx
  push  ebx
  push  ecx
  call  w32deviceiocontrol
  cmp  eax, 1
  retn  
;-------------
loc_ret:
  clc  
  retn  
control_0  endp
@@handlefinally:
@initialization:
      ret
_ltext  ends
            end

  delphi 会为单元的 initialization/finalization 建立代码调用外部过程 handlefinaly 和 initialization ,即使 initialization/finalization 在单元中不存在。因此我们在汇编的启动文件中建立空的外部过程入口。

责编:豆豆技术应用

正在加载评论...