这是FileDiskThread的更正：

procedure FileDiskThread(Context: PVOID); stdcall;
var
AIRP : PIRP;
ABuffer : PUCHAR;
ARequest : PLIST_ENTRY;
ASystemBuffer : PUCHAR;
AIOStack : PIO_STACK_LOCATION;
ADeviceObject : PDEVICE_OBJECT;
ADeviceExtension : PDEVICE_EXTENSION;
ADelta : CCHAR;
begin
ASSERT(Context <> nil);
ADeviceObject := Context;
ADeviceExtension := ADeviceObject^.DeviceExtension;

KeSetPriorityThread(KeGetCurrentThread,LOW_REALTIME_PRIORITY);

FileDiskAdjustPrivilege(SE_IMPERSONATE_PRIVILEGE,true);

while true do
begin
  KeWaitForSingleObject(
      @ADeviceExtension^.request_event,
      Executive,
      Byte(KernelMode),
      FALSE,
      nil);

  if ADeviceExtension^.terminate_thread then
   PsTerminateSystemThread(STATUS_SUCCESS);

  ARequest := ExInterlockedRemoveHeadList(@ADeviceExtension^.list_head,
                                          @ADeviceExtension^.list_lock);

  while ARequest <> nil do
  begin
   // #define CONTAINING_RECORD(address, type, field) \
   // ((type *)(((ULONG_PTR)address) - (ULONG_PTR)(&(((type *)0)->field))))
   // AIRP := CONTAINING_RECORD(request, IRP, Tail.Overlay.ListEntry);
   AIRP := PIRP(ULONG_PTR(ARequest) - ULONG_PTR(@PIRP(0)^.Tail.Overlay.wListEntry));
   AIOStack := IoGetCurrentIrpStackLocation(AIRP);

   case AIOStack^.MajorFunction of
    IRP_MJ_READ:
     begin
      ASystemBuffer := MmGetSystemAddressForMdlSafe(AIRP^.MdlAddress,NormalPagePriority);
      if ASystemBuffer = nil then
      begin
       AIRP^.IoStatus.Status := STATUS_INSUFFICIENT_RESOURCES;
       AIRP^.IoStatus.Information := 0;
      end else begin
       ABuffer := ExAllocatePool(PagedPool,AIOStack^.Parameters.Read.Length);
       if ABuffer = nil then
       begin
        AIRP^.IoStatus.Status := STATUS_INSUFFICIENT_RESOURCES;
        AIRP^.IoStatus.Information := 0;
       end else begin
        ZwReadFile(ADeviceExtension^.file_handle,
                   NULL,
                   nil,
                   nil,
                   @AIRP^.IoStatus,
                   ABuffer,
                   AIOStack^.Parameters.Read.Length,
                   @AIOStack^.Parameters.Read.ByteOffset,
                   nil);
        memcpy(ASystemBuffer,ABuffer,AIOStack^.Parameters.Read.Length);
        ExFreePool(ABuffer);
       end;
      end;
     end;

    IRP_MJ_WRITE:
     begin
      if (AIOStack^.Parameters.Write.ByteOffset.QuadPart +
          AIOStack^.Parameters.Write.Length) >
          ADeviceExtension^.file_size.QuadPart then
      begin
       AIRP^.IoStatus.Status := STATUS_INVALID_PARAMETER;
       AIRP^.IoStatus.Information := 0;
      end;
      ZwWriteFile(ADeviceExtension^.file_handle,
                  NULL,
                  nil,
                  nil,
                  @AIRP^.IoStatus,
                  MmGetSystemAddressForMdlSafe(AIRP^.MdlAddress,NormalPagePriority),
                  AIOStack^.Parameters.Write.Length,
                  @AIOStack^.Parameters.Write.ByteOffset,
                  nil);
     end;

    IRP_MJ_DEVICE_CONTROL:
     begin
      case AIOStack^.Parameters.DeviceIoControl.IoControlCode of
       IOCTL_FILE_DISK_OPEN_FILE:
        begin
         SeImpersonateClient(ADeviceExtension^.security_client_context,nil);
         AIRP^.IoStatus.Status := FileDiskOpenFile(ADeviceObject,AIRP);
         PsRevertToSelf;
        end;
       IOCTL_FILE_DISK_CLOSE_FILE:
        begin
         AIRP^.IoStatus.Status := FileDiskCloseFile(ADeviceObject,AIRP);
        end;
       else AIRP^.IoStatus.Status := STATUS_DRIVER_INTERNAL_ERROR;
      end;
     end;
    else AIRP^.IoStatus.Status := STATUS_DRIVER_INTERNAL_ERROR;
   end;

   if NT_SUCCESS(AIRP^.IoStatus.Status) then
    ADelta := CCHAR(IO_DISK_INCREMENT)
   else
    ADelta := CCHAR(IO_NO_INCREMENT);
   IoCompleteRequest(AIRP,ADelta);

   ARequest := ExInterlockedRemoveHeadList(@ADeviceExtension^.list_head,
                                           @ADeviceExtension^.list_lock);
  end;
end;
end;

其他地方肯定还有语法错误和翻译错误，慢慢来吧！，能和大家一起修改就更好了，共同学习，共同进步！

没时间研究啊，不过记住楼主了。

牛，delphi搞驱动的话，要求汇编是不是要很强呀？

为什么大家现在不用delphi7编译 不是说7最稳定吗？

如题，在俄语网站上找到一个的汇编版KmdKit的例子及工具包，有参考价值的！

上传的附件：

• KmdKit.rar （914.19kb，46次下载）

全部源码编译成功，没做任何设置，有时会提示.dpr文件找不到，我发现是路径问题。
beeper.pas那个文件是不是错了?
能否将NTDDK。PAS放在include/下,这样能编译我以前找到的一些源码吗?

http://bbs.pediy.com/showthread.php?t=50052
我使用上文中的Driver.pas+2ccc下载的DDDK编译，前两步没有问题，第三步出错了。。。这是因为什么啊？

I:\DDDK004\bin>dcc32.exe -U..\inc -B -CG -JP -$A-,C-,D-,G-,H-,I-,L-,P-,V-,W+,Y- Driver.pas

Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
I:\DDDK004\inc\DDDK.pas(1029)
Driver.pas(71)
1102 lines, 0.02 seconds, 192 bytes code, 12 bytes data.
-----------------------------------------------------
I:\DDDK004\bin>omf2d.exe Driver.obj

OMF2D 1.02 converts 32bit OMF to Delphi linkable OMF
Copyright (C) 2003 Radim Picha, www.anticracking.sk/EliCZ
Converting "Driver.obj" to "Driver.obj"
-------------------------------------------------------
I:\DDDK004\bin>link.exe /NOLOGO /ALIGN:4096 /BASE:0x10000 /SUBSYSTEM:NATIVE /DRIVER /LIBPATH:..\lib /ENTRY:DriverEntry ntoskrnl.lib /out:Driver.sys
LINK : warning LNK4001: no object files specified; libraries used
LINK : warning LNK4068: /MACHINE not specified; defaulting to X86
LINK : error LNK2001: unresolved external symbol _DriverEntry
Driver.sys : fatal error LNK1120: 1 unresolved externals

太崇拜你了！

努力学习ing

谢谢！！！！

学习 向大家 都不懂 啊 学习

用 delphi 开发windows 驱动 有何 很现实 或者 高效的 意义嘛？ 既然 从c＋＋可以完成windows 驱动开发 为何 还要选择 delphi 呢？

多一个方法变通而已，方便了Delphi程序员也能动手写驱动。再说C++对于一般人有一定的难度，Delphi相对更简单。

scp.exe  这个文件是那来的,

你好！请问出现这种错为什么呢？

D:\KmdKit4D\samples\basic>dcc32 -U D:\KmdKit4D\include -B -CG -JP -$A-,C-,D-,G-,
H-,I-,L-,P-,V-,W+,Y- -O+ "D:\KmdKit4D\samples\basic\driver.pas"
Borland Delphi Version 15.0
Copyright (c) 1983,2002 Borland Software Corporation
Fatal: File not found: 'D:\KmdKit4D\include.dpr'

D:\KmdKit4D\samples\basic>PAUSE
请按任意键继续. . .

我有点异议
_xxxx@8之类的并不是因为COFF格式，而是应为里面的函数是STDCALL的调用方式吧

很简单，因为Delphi用的很爽，他有很多C++并没有在语言层次直接支持的新特性，比如说闭包，构造函数调虚函数

驱动不是要用 c 和ddk写么 delphi？ 怎麽个意思？

dddk  投一次听说啊 就知道ddk。。

真是对我等用Delphi之辈的莫大鼓舞啊。

原来DELPHI也可以这么强大

楼主好心态，笑看风云。

准备用Delphi玩玩驱动，正在持续学习中...

非常好啊，支持支持！