Рисуем в чужом Direct3D приложении

TracKer — Thu, 31 May 2007 12:26:13 +0000

Однажды я нашел такую программу как Fraps, она рисовала счетчик FPS в приложениях DirectX. Мне захотелось написать что-то подобное. И вот что у меня получилось…
Что нужно иметь для работы:

http://madshi.net/ – madCodeHook из madCollection, для перехвата вызовов DirectX и не только
http://sourceforge.net/projects/delphi-dx9sdk – Новые заголовки DirectX 9 для Delphi
http://www.mirgames.ru/articles/directx/dxtutorial.html – И обязательно прочитать эту статью чтобы именть какое-то представление о работе DirectX

И так, приступим.

Попробуем написать какой-то текст в чужем приложении. Для этого на нужно кстановить перехватчик (hook или хук) на вызовы трех функций, нужных нам для отрисовки нашего текста. Но сделать это не так просто. Для того чтобы выполнить наш програмный код в чужем приложении необходимо создать DLL с этим кодом и провести так называемую “DLL инъекцию” (DLL Injection). Для этого необходимо создать приостановленый процесс (запустьть наше DirectX приложение вызовом CreateProcessA с флагом CREATE_SUSPENDED), далее Инджектировать нашу DLL в процесс (вызов InjectLibraryA), и продолжить выполнение нашего процесса (вызов ResumeThread).
Код:

uses Direct3D9, madCodeHook;procedure TForm1.Button1Click(Sender: TObject);
 
var start: TStartupInfo; procInfo: TProcessInformation;
begin
  ZeroMemory(@start, SizeOf(start));
  start.cb:=SizeOf(Start);
  if CreateProcessA(
    'E:\Games\Lineage II\system\l2.exe',
    '', nil, nil, True, CREATE_SUSPENDED, nil,
    'E:\Games\Lineage II\system',
    start, procInfo) then
  begin
    if not InjectLibraryA(
    procInfo.hProcess, 'my_lib.dll') then
    ShowMessage('failed');
    ResumeThread(procInfo.hThread);
  end;
 
end;

Теперь, что качается самой DLL. Первым делом нужно установить хук на вызов Direct3DCreate9 из d3d9.dll. Далее нужно установить хук на создание D3DDevice, потом на метод интерфейса IDirect3D9.CreateDevice (тут также необходимо произвести инициализацию шрифта которым мы будим писать текст), и наконец на метод интерфейса IDirect3DDevice9.EndScene (тут мы будим писать текст).
Код:

library my_lib;uses
  SysUtils, Classes, madCodeHook,
  Windows, Direct3D9, D3DX9;
 
var
  D3DObj: IDirect3D9;
  D3DDev: IDirect3DDevice9;
  g_Font: ID3DXFont;
 
function GetInterfaceMethod(const intf; methodIndex: dword) : pointer;
begin
  result := pointer(pointer(dword(pointer(intf)^) + methodIndex * 4)^);
end;
 
var EndScene9Next : function (self: pointer): HResult stdcall = nil;
var CreateDevice9Next : function (self: Pointer; Adapter: LongWord;
        DeviceType: TD3DDevType; hFocusWindow: HWND; BehaviorFlags: DWord;
        pPresentationParameters: PD3DPresentParameters;
        out ppReturnedDeviceInterface: IDirect3DDevice9) : HRESULT stdcall = nil;
var Direct3DCreate9Next: function (SDKVersion: LongWord): DWORD stdcall = nil;
 
function EndScene9Callback(self: pointer): HResult; stdcall;
var
  TextRect: TRect;
begin
  TextRect := Rect(100,100,100,100);
  g_Font.DrawTextA(
    nil, PChar('Превед!!! :)'),
    -1, @TextRect,
    DT_LEFT or DT_NOCLIP,
    D3DCOLOR_RGBA($00, $ff, $ff, $ff)
  );
  Result:=EndScene9Next(self);
end;
 
function CreateDevice9Callback(self: pointer; Adapter: LongWord; DeviceType: TD3DDevType;
  hFocusWindow: HWND; BehaviorFlags: DWord; pPresentationParameters: PD3DPresentParameters;
  out ppReturnedDeviceInterface: IDirect3DDevice9) : HRESULT; stdcall;
var
  A: Integer;
begin
  result := CreateDevice9Next(self, adapter, DeviceType, hFocusWindow, BehaviorFlags,
    pPresentationParameters, ppReturnedDeviceInterface);
  D3DDev := ppReturnedDeviceInterface;
  if (result = 0) then
  begin
    A := D3DXCreateFont(
      D3DDev, 100, 0, FW_BOLD, 1,
      false, DEFAULT_CHARSET,
      OUT_DEFAULT_PRECIS,
      ANTIALIASED_QUALITY,
      DEFAULT_PITCH or FF_DONTCARE,
      PChar('Arial'),
      g_Font
    );
    HookCode(GetInterfaceMethod(ppReturnedDeviceInterface{^}, 42),
      @EndScene9Callback, @EndScene9Next);
  end;
end;
 
function Direct3DCreate9Callback(SDKVersion: LongWord): DWORD; stdcall;
begin
  Result:=Direct3DCreate9Next(SDKVersion);
  D3DObj := IDirect3D9(Result);
  if (Result <;>; 0) then
  begin
    if (@CreateDevice9Next = nil) then
      UnhookCode(@CreateDevice9Next);
    HookCode(GetInterfaceMethod(result, 16), @CreateDevice9Callback, @CreateDevice9Next);
  end;
end;
 
begin
  HookAPI('d3d9.dll', 'Direct3DCreate9', @Direct3DCreate9Callback, @Direct3DCreate9Next);
end.

Первое что выполняется в DLL, это:

HookAPI('d3d9.dll', 'Direct3DCreate9', @Direct3DCreate9Callback, @Direct3DCreate9Next);

Эта функция осущесвляет перехват функции Direct3DCreate9, находящейся в библиотеке d3d9.dll и заменяет ее на вызов функции Direct3DCreate9Callback (которая описана выше в коде). Подробнее об этой функции можно узнать тут: http://help.madshi.net/ApiCodeHooking.htm
После этого мы ждем когда главное приложение вызовет Direct3DCreate9 и сработает Direct3DCreate9Callback. В Direct3DCreate9Callback мы вызываем настоящую функцию, указатель на которую хранится в переменной Direct3DCreate9Next:

Result := Direct3DCreate9Next(SDKVersion);

В результате этого мы получаем указатель на интерфейс IDirect3D9, а именно объект D3DObj. Теперь нас интересует процесс создания IDirect3DDevice9, для этого мы ставим хук на метод IDirect3D9.CreateDevice:

HookCode(GetInterfaceMethod(result, 16), @CreateDevice9Callback, @CreateDevice9Next);

В качестве медода мы пишем не его название, а его порядковый номер в объявлении, в данном случае 16. Ниже на рисунке показан пример с нумерацией.

Теперь мы ждем вызова CreateDevice9Callback. Как только это происходит мы делаем вызов самой функции Direct3DCreate9Next, и получаем объект D3DDev, после этого создаем объект шрифта g_Font вызовом D3DXCreateFont. Паремтры этой функции более подробно можно узнать тут: http://msdn2.microsoft.com/en-us/library/bb172773.aspx

И тут же ставим хук на вызов метода IDirect3DDevice9.EndScene, он имеет номер 42.

Все приготовления завершены. Теперь мы ждем вызова EndScene9Callback. В этой функции мы осуществляем сам процесс рисования следующим вызовом:

TextRect := Rect(100,100,100,100);
g_Font.DrawTextA( nil, PChar('Превед!!! :)'), -1,
  @TextRect, DT_LEFT or DT_NOCLIP,
  D3DCOLOR_RGBA($00, $ff, $ff, $ff) );

Подробную информацию об этой функции можно прочесть тут:
MSDN Help

Пример работы программы:
shot00004.jpg

Ну и собственно работающий Исходник:
directx_dll_injection_src.rar

TracKer's blog» Delphi

Рисуем в чужом Direct3D приложении