🚀 go-pugleaf

I am trying to replicate the functionality of a nice utility
called "Click Yes".  This program watches for the MS Outlook
warning dialog that pops up when you try to automate sending
email programmatically.  "Click Yes" works wonderfully, but
I need to be able to do it from within my own app.

Here's what I have tried:

int __stdcall ChildEnumProc(HWND wnd, void *Nada)
{
  char buf[256];
  char caption[256];
  AnsiString CName;
  AnsiString Cap;

  GetClassName( wnd, buf, sizeof(buf) );
  SendMessage( wnd, WM_GETTEXT, sizeof(caption), (long)caption);

  CName = buf;
  Cap = caption;

	if(CName == "Button")
		if(Cap == "Yes"){
		   BtnHandle = wnd;         // global HWND
		   Repeat->Enabled = false; // global TTimer*
		   Delay->Enabled = true;   // global TTimer*
		}

  return -1;
}

int __stdcall EnumProc(HWND wnd, void *Nada)
{
  char caption[256];
  AnsiString Cap;

  SendMessage( wnd, WM_GETTEXT, sizeof(caption), (long)caption);

  Cap = caption;
  if(Cap == "Microsoft Office Outlook")
		EnumChildWindows(wnd,
                      (WNDENUMPROC)ChildEnumProc, NULL);

  return -1;
}

void __fastcall TfMain::DlyTimer(TObject *Sender)
{
	int XPos;
	int YPos;
	WORD ClickPos;
	WINDOWPLACEMENT WinPlc;
	RECT WinRect;

	WinPlc.length = sizeof(WINDOWPLACEMENT);

	GetWindowPlacement(BtnHandle, &WinPlc);
	WinRect = WinPlc.rcNormalPosition;

	XPos = WinRect.left + 10;
	YPos = (WinRect.top + 10) * 65536;
	ClickPos = YPos + XPos;

	SendMessage(BtnHandle, WM_LBUTTONDOWN,
               MK_LBUTTON, ClickPos);
	Sleep(50);
	SendMessage(BtnHandle, WM_LBUTTONUP,
               MK_LBUTTON, ClickPos);

	Dly->Enabled = false;
	Rpt->Enabled = true;
}

void __fastcall TfMain::RptTimer(TObject *Sender)
{
	EnumWindows((WNDENUMPROC)EnumProc, NULL);
}


This appears to click the button -- the button goes down and
back up -- but the dialog never closes!  What gives?

-Terry