delphi使用setwindowspos改其他程序分辨率，导致我自己程序卡死的问题

Question

情况是这样，我自己写了个小程序，把其他程序的外边框，最大最小，标题都给去了。。 Winapi.Windows.SetParent(MabinogiWindow,_MainForm.Handle);
    SetWindowLong(MabinogiWindow,-16,GetWindowLong(MabinogiWindow,-16) and -8388609 and -12582913 and -262145);
    SetWindowPos(MabinogiWindow, 0, 0, 0,_MainForm.ClientWidth,_MainForm.ClientHeight, $4);
然后，把其他程序挂接到我的程序上以后，我想使用FormResize事件来修改窗体的大小。。
procedure T_MainForm.FormResize(Sender: TObject);
begin
  if MabinogiWindow <>0 then
     SetWindowPos(MabinogiWindow, 0, 0, 0,_MainForm.ClientWidth,_MainForm.ClientHeight,
      SWP_NOMOVE or SWP_NOACTIVATE or SWP_NOOWNERZORDER or SWP_DEFERERASE);
end;如果我一点点，一点点的拉，不会造成程序无限卡死现象，如果我是一下来到很大，那么，我的程序就会出现各种乱跳，卡死，未响应等情况，请问我要怎么解决呢~

Answer 1

是不是FormResize循环调用了，加个标志只运行一次试试