multiwin

[wSpirit]

Если еще кто-то будет искать решение такой проблемы под Интерлюд, то для себя сделал так:

1) Узнал Хэндл главного окна
2) Перехватил оконную процедуру
3) Заблокировал сообщение о потери фокуса

Тоесть клиент так и не узнает что окно потеряло фокус, и не снизит фпс


Код:

var
  MainHwnd: Integer;
  OldL2WndProc: function(hwnd,uMsg,wParam,lParam: Integer): Integer; stdcall;

function NewL2WndProc(hwnd,uMsg,wParam,lParam: Integer): Integer; stdcall;
begin
  if hwnd = MainHwnd then
  if uMsg = $0008 then //WM_KILLFOCUS
  begin
    Result:= 0;
    Exit;
  end;

  Result:= CallWindowProc(@OldL2WndProc, hwnd,uMsg,wParam,lParam);
end;


//hook wnd proc
    MainHwnd:= hWnd;
    Integer(@OldL2WndProc):= GetWindowLong(MainHwnd, GWL_WNDPROC);
    SetWindowLong(MainHwnd, GWL_WNDPROC, Integer(@NewL2WndProc))