查询Microsoft Visual C++ Debug Library窗体并自动点击忽略按钮的小工具代码

窗体并自动点击忽略按钮的小工具代码"/>

查询Microsoft Visual C++ Debug Library窗体并自动点击忽略按钮的小工具代码

procedure TMainForm.TimerTimer(Sender: TObject);
varhWindow, hChild: HWND;
beginhWindow := FindWindow(nil, 'Microsoft Visual C++ Debug Library');if hWindow <> 0 thenbeginhChild := FindWindowEx(hWindow, 0, nil, '忽略(&I)');if hChild = 0 thenhChild := FindWindowEx(hWindow, 0, nil, '&Ignore');if hChild <> 0 thenbeginSendMessage(hChild, WM_LBUTTONDOWN, 0, 0);SendMessage(hChild, WM_LBUTTONUP, 0, 0);end;end;
end;