内存监视器 2.0 有delphi驱动通信源码.

不过是个宏的常量表达式.
可以下载JEDI的Native API声明,里面有声明.或者你看下C++里算出来的值,写死.
也可以写成简单的函数.

能不能给你DEMO

多看SDK，WDK

devioctl.h
#define CTL_CODE( DeviceType, Function, Method, Access ) (                 \
    ((DeviceType) << 16) | ((Access) << 14) | ((Function) << 2) | (Method) \
)

非常感谢，用你的代码我转成DELPHI的弄好了。

下载一份SDK和WDK，微软公开的定义里面的头文件都有了，便于以后再遇到问题时参考

现在贴出DELPHI代码方便以后人查看

function CTL(aDeviceType:DWORD;Functiona:dword;Method:dword;Access:dword):dword;
begin
  Result := ((aDeviceType) shl 16) or ((Access) shl 14) or ((Functiona) shl 2) or (Method)
end;

function add(hDevice:HWND;a,b:Integer):DWORD;
var
   port  :array[0..1] of Integer;
   bufret :Integer;
   dwWrite : DWORD;
begin
        port[0]:=a;
        port[1]:=b;
        DeviceIoControl(hDevice,CTL($22,$800,1,0),@port,8,@bufret,4,dwWrite,nil);
        Result  := bufret;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
hDevice : HWND;
begin
    hDevice :=
                CreateFile('\\.\DT', //\\??\\My_DriverLinkName
                GENERIC_READ or GENERIC_WRITE,
                0,                // share mode none
                nil,        // no security
                OPEN_EXISTING,
                FILE_ATTRIBUTE_NORMAL,
                0);                // no template
   
    Caption :=IntToStr(add(hDevice,1111,33));
end;