前言
用Delphi 3.0 編寫VxD 裝置驅動程序，在Delphi 3 下編譯通過，Delphi 2 下沒有測試，Delphi 4 建立的Object 檔案M$ Linker 5.12.8181 不能識別，這裡使用的彙編器是M$的Macro Assembler ver. 6.11d ，聯結器是M$ Incremental Linker ver. 5.12.8181 ，它們來自Windows 98DDK(http://www.microsoft.com/ddk/ddk98.htm)。
介紹
Windows 存在有兩種類型的VxD 裝置驅動程式：
1、靜態(Static) VxD ，裝入作業系統並永久的存在於記憶體中；
2.動態(Dynamic) VxD，當需要時才調入內存，用完後關閉VxD即可釋放內存。
InPRise Delphi 有能力建立任何一種類型的VxD 裝置驅動程序，以下我們將介紹如何建立動態VxD。
當Win32 應用程式開啟一個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_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 在單元中不存在。因此我們在彙編的啟動文件中建立空的外部流程入口。
主Delphi 程式單元(vxdProcs.pas)
……
procedure ShellMessage(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_API) then
begin
Result := ERROR_NOT_SUPPORTED;
end
else
begin
Result := VXD_SUCCESS;
end;
end;
……
[譯者：好了，簡單的VxD 裝置驅動程式寫完了。你可以將它當作一個寫VxD 裝置驅動程式的範本。 ]
附一：Make.bat
D:VISUAL~198DDKBINWin98ml -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.OpenVxDDriver: 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