Windows 获得；“资源正忙”；错误，如何修复？

我得到了下面的代码，我相信生成“资源很忙”，因为它在一个计时器中不断重复。我用它来找出我试图自动告诉我的网站，并据此采取行动

任何人都可以告诉我如何修复或调试代码

    procedure TimerAutoOKTimer(Sender: TObject);
     const
          Messagefromwebpage = 'Message from webpage';

       var
          wnd: hWnd;

    begin
          wnd := FindWindow(nil, Messagefromwebpage);  // 'Message from webpage';
          if wnd <> 0 then
          begin
             Memo1.Lines.Clear;
             EnumChildWindows(wnd, @EnumChildrenProc, Integer(Memo1.Lines));

             if POS('NOT possible', Memo1.Lines.Text)>0 then
               SendMessage(Application.ActiveFormHandle, WM_COMMAND, ID_OK, 0);

             if Pos('The webpage you are viewing is trying to close the window.', Memo1.Lines.Text)>0 then
               SendMessage(Application.ActiveFormHandle, WM_COMMAND, ID_NO, 0);
          end;
    end;

程序时间rautooktimer（发送方：TObject）；
常数
Messagefromwebpage='Messagefromwebpage'；
变量
wnd:hWnd；
开始
wnd:=FindWindow（无，Messagefromwebpage）；/'来自网页的信息'；
如果wnd为0，则
开始
备忘录1.线条清晰；
EnumChildWindows（wnd，@EnumChildrenProc，Integer（Memo1.Lines））；
如果POS（'不可能'，Memo1.Lines.Text）>0，则
SendMessage（Application.ActiveFormHandle，WM_命令，ID_OK，0）；
如果Pos（'您正在查看的网页正在尝试关闭窗口'，Memo1.Lines.Text）>0，则
SendMessage（Application.ActiveFormHandle，WM_命令，ID_编号，0）；
结束；
结束；

---

那么，是什么产生了“资源正忙”？我不确定是SendMessage还是EnumChildWindows？嗯，是哪一个。注释掉

SendMessage

调用。我打赌是他们。我的猜测是您需要使用

PostMessage

。我将尝试一下。您尝试自动化的窗口在哪里？这在你的过程中吗？