🚀 go-pugleaf

"Patryk B." <pbobak@no.spam.o2.pl> wrote in message 
news:op.t0algg2iwzezly@dune.intranet...

>   EnumDesktopWindows(NULL,(WNDENUMPROC)EnumWindowsProc,(LPARAM)ListView1);

Since you are not specifying anything for the HDESK parameter, use 
EnumWindows() instead.

>      ListView->Items->Add();
>       int i=ListView->Items->Count-1;
>       ListView->Items->Item[i]->Caption=AnsiString(WindowName);
>       ListView->Items->Item[i]->Update();

Rather than indexing into the Items[] property over and over, use the 
TListItem that Add() returns instead:

    TListItem *Item = ListView->Items->Add();
    Item->Caption=AnsiString(WindowName);
    Item->Update();

> But it show more window than alt+tab

That is because you are not doing any kind of filtering of the windows.  Not 
all windows appear in the Alt+Tab dialog, but you are not checking for the 
same kind of conditions that the dialog looks for.

Try this instead:

    void __fastcall TForm6::Button1Click(TObject *Sender)
    {
        ListView1->Items->Clear();
        EnumWindows((WNDENUMPROC)EnumWindowsProc, (LPARAM)ListView1);
    }

    bool CALLBACK EnumWindowsProc(HWND hWnd, TListView *ListView)
    {
        if( IsWindowVisible(hWnd) &&
            (GetWindow(hWnd, GW_OWNER) == NULL) &&
            ((GetWindowLong(hWnd, GWL_EXSTYLE) & WS_EX_TOOLWINDOW) == 0) )
        {
            char WindowName[256] = {0};
            GetWindowText(hWnd, WindowName, 255);

            ListView->Items->Add()->Caption = WindowName;
        }

        return TRUE;
    }


Gambit