Сделав что то на подобие CallDllEx, но для драйверов
unit HiAsmUnit;
interface
uses Windows,kol,Share,Debug,tlhelp32;
type
THiAsmClass = class(TDebug)
private
public
procedure doInit(var _Data:TData; Index:word);
end;
implementation
function CTL_CODE(DeviceType,Func, Method, Access:DWORD):DWORD;
begin
CTL_CODE:=(DeviceType shl 16) or (Access shl 14) or (Func shl 2) or Method;
end;
function IOCTL_CARDPORT():DWORD;
begin
Result:=CTL_CODE($b8999, $d9284, 0, 1 or 2);
end;
procedure THiAsmClass.doInit;
begin
//
end;
end.