OutputDebugString(Pchar(IntToHex(FileHandle,8))); 这句代码本来就有问题，字符串要空结尾。格式放到一个数组后，以空结尾，再outputXX

... 与这无关，这函数主要是异步，多线程。。。

骚年，其实不复杂啦
多线程，主要是控制好对全局变量的访问，特别是写操作，少用全局变量，非用不可那就加锁
异步呢，主要是还得替换掉它的通知机制，比如它的通知用的是event，那你就把event句柄换成自己的，等event有信号了，就可以处理数据了，你的Hook函数处理完，再Set原来event就可以了，ApcRoutine方式也是一样，替换就好了

嗯嗯，我刚好也测试到Event了。。。我发现我对Event乱来，它程序也会一直等待。。。

晚上再试试。。。感谢大哥！

function myNtDeviceIoControlFile(FileHandle:THANDLE;Event:THANDLE;ApcRoutine:PIO_APC_ROUTINE;ApcContext:PVOID;IoStatusBlock:PIO_STATUS_BLOCK;IoControlCode:ULONG;InputBuffer:PVOID;InputBufferLength:ULONG;OutputBuffer:PVOID;OutputBufferLength:ULONG):NTSTATUS;stdcall;
var
  sid:String;
  isHttp:Bool;
  myeid,nteid:Dword;
begin
  isHttp := False;myeid := 0;nteid := 0;
  if ((IoControlCode = AFD_SEND) or (IoControlCode = AFD_RECV)) and (Event <> 0) then
    begin
      myeid  := CreateEvent(nil,False,False,nil);
      nteid  := Event;
      Event  := myeid;
      isHttp := True;
    end;
  //执行源函数
  Result := OldNtDeviceIoControlFile(FileHandle,Event,ApcRoutine,ApcContext,IoStatusBlock,IoControlCode,InputBuffer,InputBufferLength,OutputBuffer,OutputBufferLength);
  if not isHttp then Exit;
  if Result <> 0 then
    begin
      SetEvent(nteid);
      CloseHandle(myeid);
      Exit;
    end;
  WaitForSingleObject(myeid,INFINITE);
  //sid    := 'ddddddddddddddddddddd';
  sid    := InttoStr(FileHandle);
  //dbg(sid);
  SetEvent(nteid);
  closeHandle(myeid);
end;

我这样的Event，对么？替换了他原来的Event...  
但发现，只要调用了 IntToStr浏览器器就会几率性崩溃！！！