library wh_inject;

uses
  Windows,
  direct3d9,
  advapihook,dialogs;

{$R *.res}

var old_Direct3DCreate9:function (SDKVersion:Cardinal):IDirect3D9;stdcall;

function hook_Direct3DCreate9(SDKVersion:Cardinal):IDirect3D9; stdcall;
var dir:idirect3d9;
Begin
  dir:=old_Direct3DCreate9(SDKVersion);
  Result:=dir;
end;

begin
  hookproc(pchar('d3d9.dll'),'Direct3DCreate9',@hook_Direct3DCreate9,@old_Direct3DCreate9);
end.