library dinput8;
uses Windows, Classes;

type
 TDirectInput8 = class
   //function CreateDevice(const rguid: TGUID; out lplpDirectInputDevice: IDirectInputDevice8A; pUnkOuter: IUnknown): HResult; virtual; stdcall; abstract;
   function EnumDevices (dwDevType: DWORD; lpCallback: Pointer; pvRef: Pointer; dwFlags: DWORD): HResult; virtual; stdcall; abstract;
   //function GetDeviceStatus(const rguidInstance: TGUID): HResult; virtual; stdcall; stdcall; abstract;
   //function RunControlPanel(hwndOwner: HWND; dwFlags: DWORD): HResult; virtual; stdcall; abstract;
   //function Initialize(hinst: THandle; dwVersion: DWORD): HResult; virtual; stdcall; abstract;
   //function FindDevice(const rguidClass: TGUID; ptszName: PAnsiChar; out pguidInstance: TGUID): HResult; virtual; stdcall; abstract;
   //function EnumDevicesBySemantics(ptszUserName: PAnsiChar; const lpdiActionFormat: TDIActionFormatA; lpCallback: TDIEnumDevicesBySemanticsCallbackA; pvRef: Pointer; dwFlags: DWORD): HResult; virtual; stdcall; abstract;
   //function ConfigureDevices(lpdiCallback: TDIConfigureDevicesCallback; const lpdiCDParams: TDIConfigureDevicesParamsA; dwFlags: DWORD; pvRefData: Pointer): HResult; virtual; stdcall; abstract;
 end;

// Замена методов по указателям в памяти
function ReplaceMethod(pTargetAddr: Pointer; pNewAddr: Pointer; var pOrigAddr: Pointer): Boolean;
type
 TJumP = packed record // Смещение на другой метод
   bJmp: Byte;
   dwAddress: DWord;
 end;

var
 dwLength: Cardinal;
 gJump: TJump;
 dwProtect: DWord;

 // Получить размер памяти, занимаемой методом
 function getMethodSize(MPtr: Pointer): Integer;
 const MAX_SIZE = 5000;
 var
   ch: Byte;
   i: Integer;
 begin
   i := 0; Result := 0;
   repeat
     CopyMemory(@ch, Ptr(DWORD(MPtr)+i), 1);
     inc(i);
   until (ch = $C3) or (i >= MAX_SIZE);
   if i < MAX_SIZE then Result := i;
 end;

begin Result := False;
 dwLength := getMethodSize(pTargetAddr);

 // Сохранить код старого метода
 pOrigAddr := GetMemory(dwLength); // Выделить память для оригинального метода
 CopyMemory(pOrigAddr, pTargetAddr, dwLength); // Скопировать оригинальный метод в новое место

 gJump.bJmp := $E9;
 gJump.dwAddress := DWord(pNewAddr) - DWord(pTargetAddr) - 5;

 // Изменить участок памяти текущего процесса
 if VirtualProtectEx(GetCurrentProcess(), pTargetAddr, dwLength, PAGE_READWRITE, dwProtect) then begin
   CopyMemory(pTargetAddr, @gJump, sizeOf(TJump)); // Поменять вместо оригинального метода смещение на другой метод
   VirtualProtectEx(GetCurrentProcess(), pTargetAddr, dwLength, dwProtect, dwProtect);
   Result := True;
 end;
end;

// *****************************************************************************

var
 DirectInput8CreateOrig: function (hinst: THandle; dwVersion: DWORD; const riidltf: TGUID; out ppvOut{: Pointer}; punkOuter: IUnknown): HResult; stdcall; // external 'dinput8.dll' Name 'DirectInput8Create';
 DInput: TDirectInput8;
 EnumOrig: function (dwDevType: DWORD; lpCallback: Pointer; pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;

// Заменяемый хук-метод перечисления устройств через DirectInput
function EnumDevices(dwDevType: DWORD; lpCallback: Pointer; pvRef: Pointer; dwFlags: DWORD): HResult; stdcall;
begin
   MessageBox(0, 'Hook Work!', nil, 0);
   Result := 0;
   //Result := EnumOrig(dwDevType, lpCallback, pvRef, dwFlags);
end;

// Перекрытие создания главного объекта DirectInput
function DirectInput8Create(hinst: THandle; dwVersion: DWORD; const riidltf: TGUID; var ppvOut: Pointer; punkOuter: IUnknown): HResult; stdcall;
var
 LibHandle: THandle;
 PrcAddr:   Pointer;

 addr_proc: function (dwDevType: DWORD; lpCallback: Pointer; pvRef: Pointer; dwFlags: DWORD): HResult of object; stdcall;

begin
 Result := 0; PrcAddr := nil;

 LibHandle := LoadLibrary('C:\Windows\System32\dinput8.dll');
 if LibHandle <> 0 then begin
   PrcAddr := GetProcAddress(LibHandle, 'DirectInput8Create');
   if PrcAddr <> nil then begin
     DirectInput8CreateOrig := PrcAddr;
     Result := DirectInput8CreateOrig(hinst, dwVersion, riidltf, ppvOut, punkOuter);

     DInput := ppvOut;
     addr_proc := DInput.EnumDevices;

     ReplaceMethod(@addr_proc, @EnumDevices, PrcAddr);
     EnumOrig := PrcAddr;

   end;
   //FreeLibrary(LibHandle);
 end;
end;

Exports DirectInput8Create;
begin
end.

                                         loc_C34CE2C:            ; DllRelease()
E8 A6 F9 FF FF                            call    _DllRelease@0
8B 4D FC                                  mov     ecx, [ebp+var_4]
8B 85 E8 FC FF FF                         mov     eax, [ebp+var_318]
5F                                        pop     edi
5E                                        pop     esi
33 CD                                     xor     ecx, ebp
5B                                        pop     ebx
E8 2E 1E 01 00                            call    @__security_check_cookie@4 ; __security_check_cookie(x)
C9                                        leave
C2 14 00                                  retn    14h
                                         _DirectInput8Create@20 endp