用 Delphi 編寫 VxD 裝置驅動程式(轉) (轉)

用 Delphi 編寫 VxD 裝置驅動程式(轉) (轉)[@more@]

用  編寫 VxD 裝置(轉)

關鍵詞：Delphi雜項

作者：Emil Biserov(dinfo@.primorye.ru)(Russion) 
英語翻譯：Vitaly Zayko(zayko@vitsoftware.com) 
中文翻譯改編：Riceball(teditor@mailroom.com) 

前言 
　用 Delphi 3.0 編寫 VxD 裝置驅動程式，在Delphi 3 下編譯透過，Delphi 2 下沒有測試，Delphi 4 建立的   M$ Linker 5.12.8181 不能識別，這裡使用的器是M$的Macro Assembler ver. 6.11d ，聯結器是M$ Incremental Linker ver. 5.12.8181 ，它們來自  98DDK()。 

介紹 
　Windows 存在有兩種型別的 VxD 裝置驅動程式： 
　　1、靜態(Static) VxD ，裝入操作並永久的存在於中； 
　　2、動態(Dynamic) VxD，當需要時才調入記憶體，用完後關閉VxD即可釋放記憶體。 
　Inprise Delphi 有能力建立任何一種型別的 VxD 裝置驅動程式，下面我們將介紹如何建立動態 VxD。 
　當  應用程式開啟一個 VxD “虛擬”裝置時，VWIN32 使用 LoadDevice 將 VxD 裝入記憶體，並建立訊息W32_DEVICEIOCONTROL ，發向 VxD。 
　也就是說，VxD 至少應該響應以下兩個系統資訊和編寫以下的一個： 
　　SYS_DYNAMIC_DEVICE_INIT 
　　SYS_DYNAMIC_DEVICE_EXIT 
　　W32_DEVICEIOCONTROL 函式. 
　訊息 SYS_DYNAMIC_DEVICE_INIT 在嘗試裝入 VxD 時傳送到 VxD ，訊息 SYS_DYNAMIC_DEVICE_EXIT 在嘗試動態時傳送到 VxD ，訊息的處理者在成功處理後，應該在暫存器 AX 中返回 VXD_SUCCESS 標誌。 

　W32_DEVICEIOCONTROL 的 dwService 引數有以下的值： 
　　DIOC_OPEN 當 VxD 透過 CreateFile() 函式嘗試開啟操作時傳送（在 SYS_DYNAMIC_DEVICE_INIT 訊息後），如果成功返回 NO_ERROR (0);　
　　DIOC_CLOSEHANDLE 當 VxD 透過 CloseHandle() 函式嘗試關閉操作時傳送（在 SYS_DYNAMIC_DEVICE_EXIT 前） 
　　所有其它的值 > 0 意味著不同的函式（由 dwIoControlCode 給出），當 VxD 被 DeviceIoControl 函式呼叫時。 

啟動模組(vxdmain.asm) 
... 
extrn SysDynamicDeviceInit :PROC 
extrn SysDynamicDeviceExit :PROC 
extrn W32DeviceIoControl　 :PROC 
... 
　　　　　　　　　　　　PUBLIC　DELPHIIO_D 
　　　　　　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 在單元中不存在。因此我們在彙編的啟動檔案中建立空的外部過程入口。 

主 Delphi 程式單元(vxdProcs.pas)　
... 
procedure Message(Handle, Flags : integer; const Message, Caption : PChar;　
　 Callback, ReferenceData : pointer); stdcall; assembler; 
asm 
　mov　　ebx, Handle　　　　// virtual machine handle 
　mov　　eax, Flags　　　　// message box flags 
　mov　　ecx, Message　　　　// address of message text 
　mov　　edi, Caption　　　　// address of caption text 
　mov　　esi, Callback　　　　// address of callback 
　mov　　edx, ReferenceData　　　　// reference data for callback 

　int　　20H　　　　　　// VxDCall 
　dd　　 170004h　　　　　　// Shell_Message 
end; 

function SysDynamicDeviceInit : INTEGER; 
begin 
　ShellMessage(0, $10, Copyright, 'SysDynInit: Hello from Delphi VxD !!!', nil, nil); 
　Result := VXD_SUCCESS; 
end; 

function SysDynamicDeviceExit : INTEGER; 
begin 
　ShellMessage(0, $10, Copyright, 'SysDynDevExit: Bye from Delphi VxD !!!', nil, nil); 
　Result := VXD_SUCCESS; 
end; 

function W32DeviceIoControl(dwService : INTEGER; 
　　　　　　　　　　　　　　dwDDB : INTEGER; 
　　　　　　　　　　　　　　hDevice : INTEGER; 
　　　　　　　　　　　　　　lpDIOCParms : pointer) : INTEGER; 
begin 
　ShellMessage(0, $10, Copyright, 'W32DevIOCtl', nil, nil); 

　if (dwService = DIOC_OPEN) then 
　begin 
　　　Result := NO_ERROR; 
　end 
　else if (dwService = DIOC_CLOSEHANDLE) then 
　begin 
　　　Result := VXD_SUCCESS; 
　end 
　else if (dwService > MAX_PASVXD_W32_) then 
　begin 
　　　Result := ERROR_NOT_SUPPORTED; 
　end 
　　else 
　begin 
　　　Result := VXD_SUCCESS;　
　end; 
end; 
... 


[譯者：好了，簡單的 VxD 裝置驅動程式編寫完畢了。你可以將它當作一個寫 VxD 裝置驅動程式的模板。] 

附一：Make.bat 
D:VISUAL~198DDKBINml -coff -DBLD_COFF -DIS_32 -W2 -c -Cx -Zm -DMASM6 vxdmain.asm 
call dcc3.bat -J vxdprocs.pas 
D:VISUAL~198DDKBINlink /DEF:vxddef.def /VXD vxdmain.obj vxdprocs /OUT:delphiio.vxd 

附二： 
現在讓我們來編寫對該 VxD 的測試程式，兩個按鈕：一個開啟 VxD；一個關閉 VxD。 

const 
VxDName = '.DELPHIIO.VXD'; 

... 

function TVxDTestForm.OpenVxD: boolean; 
begin 
HVxDHandle := CreateFile(VxDName,0,0,nil,0,FILE_FLAG_DELETE_ON_CLOSE,0); 
Result := HVxDHandle <> INVALID_HANDLE_VALUE; 
end; 

procedure TVxDTestForm.CloseVxDDriver; 
begin 
if HVxDHandle <> INVALID_HANDLE_VALUE then begin 
　 CloseHandle(HVxDHandle); 
　 HVxDHandle := INVALID_HANDLE_VALUE; 
end; 
end 

 

順便說一下,Delphi中有個編譯選項可以控制程式載入的入口

一般是0x00400000,你可以改.