Передо мной стоит задача, снять ограничения с окна чужой программы по изменению размеров. Т.е. что это окно можно было как сжимать до минимума, так и растягивать до любых размеров (сейчас ограничением является разрешение рабочего стола). Перечитал кучу всего и понял что надо повесить системный хук, перехватывать сообщение WM_GETMINMAXINFO и отвечать на него вместо программы. Это я и попытался реализовать, но окно так и не растягивается больше экранного разрешения, подскажите, где я ошибся. Вот код хука:

library hook_dll1;
uses
  Windows,Messages,Forms,sysutils;
var
  SysHook : HHook = 0;
  Wnd    : Hwnd  = 0;

function MyHook(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var
P: Pointer;
begin
if code <> HC_ACTION then
  Result := CallNextHookEx(SysHook, Code, wParam, lParam)
else
  if tagCWPSTRUCT(Pointer(lParam)^).message = WM_GETMINMAXINFO then
  begin
    P := Pointer(tagCWPSTRUCT(Pointer(lParam)^).lParam);
    tagMINMAXINFO(P^).ptMaxTrackSize.X := 500;
    tagMINMAXINFO(P^).ptMaxTrackSize.Y := 500;
    tagMINMAXINFO(P^).ptMaxSize.X := 500;
    tagMINMAXINFO(P^).ptMaxSize.Y := 500;
    tagMINMAXINFO(P^).ptMinTrackSize.X := 100;
    tagMINMAXINFO(P^).ptMinTrackSize.Y := 100;
  end
  else
    Result := CallNextHookEx(SysHook, Code, wParam, lParam);
end;

procedure hook(switch: Boolean) export; stdcall;
begin
  if switch = true then
  begin
    SysHook := SetWindowsHookEx(WH_CALLWNDPROC, @myhook, HInstance, 0);
    if SysHook <> 0 then
      MessageBox(0, 'Hook onoaiiaeai', 'Message HOOK', 0);
  end;

  if switch <> true then
  begin
    UnhookWindowsHookEx(SysHook);
    SysHook := 0;
  end;
end;

exports hook;

begin

end.