function TP2KAPI.ReadDataZ(DevH: Thandle; Send_Data: Pointer; Recv_Data: Pointer; var Recv_Data_Size: dword): boolean;
var
  Hevent: Thandle;
  Ovr: OVERLAPPED;
  RSize: dword;

begin
  result:= false;
  Hevent:= CreateEvent(nil,true,false,nil);
  ResetEvent(HEvent);
  ovr.Internal:=0;
  ovr.InternalHigh:= 0;
  ovr.Offset:= 0;
  ovr.OffsetHigh:=0;
  ovr.hEvent:= Hevent;
  RSize:=$0;
  DeviceIOControl(DevH,$80002014, Send_Data, 9, Recv_Data, $1005, RSize, @Ovr);
  if WaitForSingleObject(HEvent, 10000) <> 0 then
    begin
      CancelIo(DevH);
      CloseHandle(HEvent);
      Log('ReadData DevIOCtl fail');
      exit;
    end
    else
    if not GetOverlappedResult(DevH, Ovr, RSize, false) then
      begin
        CancelIo(DevH);
        CloseHandle(HEvent);
        Log('ReadData GetOverlappedResult fail');
        exit;
      end
    else
    begin
      CloseHandle(HEvent);
      result:= true
    end;
end;