استفسار عن عمل هوك لدالة CreateWindowEx

PHP كود :

library Project1;

uses
  Winapi.Windows, uallHook;

var
  MessageBoxNext,PointerMsgOrg : function (hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;

function MyHookMsg(hWnd: HWND; lpText, lpCaption: LPCWSTR; uType: UINT): Integer; stdcall;
begin
  Result := MessageBoxNext(hWnd, '5', lpCaption, MB_ICONHAND);
end;

begin
  PointerMsgOrg := GetProcAddress(GetModuleHandle('user32'),PAnsiChar('MessageBoxA'));
  HookCode(@PointerMsgOrg,@MyHookMsg,@MessageBoxNext);
end.

PHP كود :

library Hook;

uses
  SysUtils,
  Classes,
  uallHook,
  Windows,
  Dialogs;

var
  CreateWindowExNext,PtrCreateWindowEx : function (dwExStyle: DWORD; lpClassName: PChar;
  lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;

  CreateWindowExANext,PtrCreateWindowExA : function (dwExStyle: DWORD; lpClassName: PAnsiChar;
  lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;

  CreateWindowExWNext,PtrCreateWindowExW : function (dwExStyle: DWORD; lpClassName: PWideChar;
  lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;


function HookCreateWindowEx(dwExStyle: DWORD; lpClassName: PChar;
  lpWindowName: PChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
  Result := CreateWindowExNext(dwExStyle,lpClassName,lpWindowName,0,X,Y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam);
end;

function HookCreateWindowExA(dwExStyle: DWORD; lpClassName: PAnsiChar;
  lpWindowName: PAnsiChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
  Result := CreateWindowExANext(dwExStyle,lpClassName,lpWindowName,0,X,Y,nWidth,nHeight,hWndParent,hMenu,hInstance,lpParam);
end;

function HookCreateWindowExW(dwExStyle: DWORD; lpClassName: PWideChar;
  lpWindowName: PWideChar; dwStyle: DWORD; X, Y, nWidth, nHeight: Integer;
  hWndParent: HWND; hMenu: HMENU; hInstance: HINST; lpParam: Pointer): HWND;stdcall;
begin
  Result := CreateWindowExWNext(dwExStyle,lpClassName,lpWindowName,0,X,Y,500,300,hWndParent,hMenu,hInstance,lpParam);
end;

begin
  PtrCreateWindowEx := GetProcAddress(GetModuleHandle('user32'),'CreateWindowEx');
  HookCode(@PtrCreateWindowEx,@HookCreateWindowEx,@CreateWindowExNext);

  PtrCreateWindowExA := GetProcAddress(GetModuleHandle('user32'),'CreateWindowExA');
  HookCode(@PtrCreateWindowExA,@HookCreateWindowExA,@CreateWindowExANext);

  PtrCreateWindowExW := GetProcAddress(GetModuleHandle('user32'),'CreateWindowExW');
  HookCode(@PtrCreateWindowExW,@HookCreateWindowExW,@CreateWindowExWNext);
end.