🚀 go-pugleaf

"Ed Mulroy [TeamB]" <dont_email_me@bitbuc.ket> wrote in message
news:40bbca8d$1@newsgroups.borland.com...
> I don't know for sure what happened with your program but my guess is
> that you've discovered the hidden window that the VCL creates.
>

Ahh, a secret, I like Secrets, To bad it doesn't seem to be all that useful.
I did add the Class name to the list, and it does create a Window for the
class TForm and a Window for the class TApplication.
My form has two components a Button to generate the list, and a ListBox to
fill with the Window list.

Here is the sample code:
static BOOL CALLBACK EnumWindowsProc( HWND hwnd, LPARAM lParam  )
 {
  if (IsWindowVisible(hwnd))
   {
    char WClassName[200];
    char WTitleText[200];
    if ( GetWindowText(hwnd,WTitleText, 200))
     {
      TListBox *WLB = (TListBox *) (lParam);
      DWORD thread_id;
      GetWindowThreadProcessId(hwnd,&thread_id);
      GetClassName(hwnd,WClassName, 200);
      AnsiString text = AnsiString((unsigned int)hwnd) +"  " +
AnsiString(WTitleText) + "  " + AnsiString(WClassName);
      WLB->Items->Add(text);
     }
   }
  return true;
 }


//--------------------------------------------------------------------------
-

void __fastcall TForm1::GetWindowList_BtnClick(TObject *Sender)
{
 WindowsListBox->Clear();
 EnumWindows((WNDENUMPROC) EnumWindowsProc, (LPARAM)WindowsListBox  );
}
//--------------------------------------------------------------------------
-
void __fastcall TForm1::WindowsListBoxClick(TObject *Sender)
{
 AnsiString text =
WindowsListBox->Items->Strings[WindowsListBox->ItemIndex];
 int pos = text.AnsiPos(" ");
 AnsiString subs = text.SubString(0,pos -1);
 unsigned int hnd = subs.ToInt();
 FlashWindow((void *)hnd,true);
}