DEIPHI 能否编写硬件的驱动程序和像WINDOW 、LINUX 一个的大型软件

Question

恐怕没办法，首先目前我还没找到可以支持Borland的obj的可以生成VXD的Linker，如果生成的obj文件无法连接，那谈不上写驱动程序了。

Answer 1

我在网上找到了一篇文章，就有介绍用Delphi写VXD，不过必须用Delphi 3.0以及以下版本才可以，4.0以上的版本M$的Linker不支持。
----------------------------------
用 Delphi 编写 VxD 设备驱动程序 
浏览： 19 次 
作者：Emil Biserov([email protected])(Russion) 
英语翻译：Vitaly Zayko([email protected]) 
中文翻译改编：Riceball([email protected]) 
前言 
用 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~1\98DDK\BIN\Win98\ml -coff -DBLD_COFF -DIS_32 -W2 -c -Cx -Zm -DMASM6 vxdmain.asm 
call dcc3.bat -J vxdprocs.pas 
D:\VISUAL~1\98DDK\BIN\link /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 
...