//---------------------------------------------------------------------------
// 현재 실행된 창이 있는 프로그램을 스캔한다.
// 결과 윈도 제목과 핸들은 ListBox에 세팅한다.

void    TFormMain::ReScan()
{
    TListBox *LB = ListBox1;
    LB->Items->Clear();

    char  szText[400];
    HWND  hwnd = GetTopWindow(NULL);
    while(hwnd != NULL)
    {
        if (::GetParent(hwnd) != NULL) ;
        else if (GetWindowLong(hwnd, GWL_EXSTYLE) & WS_EX_TOOLWINDOW) ;
        else if (! IsWindowVisible(hwnd)) ;
        else if ((hwnd == Application->Handle) || (hwnd == Handle)) ; // 자신 제외
        else
        {
            GetWindowText(hwnd, szText, 400);
            LB->Items->AddObject(szText, (TObject*)hwnd);
        }
        hwnd = GetWindow(hwnd, GW_HWNDNEXT);
    }
}
//---------------------------------------------------------------------------