🚀 go-pugleaf

"Remy Lebeau (TeamB)" <no.spam@no.spam.com> schrieb im
Newsbeitrag news:419fb061$1@newsgroups.borland.com...

> I can't answer that until you show your actual code.
>
>
> Gambit

Remy, it's the same code you posted to me:

/******************************************************/
BOOL CALLBACK EnumWindowsCallback(HWND hwnd,LPARAM lParam)
{
   TfrmTrashHate *form=(TfrmTrashHate*)lParam;
   return form->Count_TaskBarWindows(hwnd);
}

bool __fastcall TfrmTrashHate::Count_TaskBarWindows(HWND hwnd)
{
   char Count[256];

   if( chkTaskbar->Checked )
   {
        HWND hTheWndToCheck;
        do
        {
            hTheWndToCheck = hwnd;
            hwnd = GetWindow(hwnd, GW_OWNER);
        }
        while( hwnd != NULL );

        if( IsWindowVisible(hTheWndToCheck) )
        {
            GetWindowText(hTheWndToCheck, Count, 256);
            AnsiString str = Count; if(str.IsEmpty()) return true;
            lstAktiveFenster->Items->Add(AnsiString(str));
        }
   }
   else
   {
     GetWindowText(hwnd, Count, 256); AnsiString str = Count;
     if(str.IsEmpty()) return true;
     lstAktiveFenster->Items->Add(AnsiString(str));
   }
   return true;
}

void __fastcall TfrmTrashHate::cmdRefreshClick(TObject *Sender)
{
   lstAktiveFenster->Clear();
   EnumWindows((WNDENUMPROC)EnumWindowsCallback,(LONG)this);
   lblCount_Process->Caption = "Es wurden: " +
   IntToStr(lstAktiveFenster->Items->Count) + " aktive Programme/Prozesse
gefunden.";
}
/******************************************************/

why are the taskbar-programs listed so many times identical...?

Explorer (caption)
Explorer (caption)
Explorer (caption)
Explorer (caption)
Explorer (caption)
Outlook Express (caption)
Outlook Express (caption)
Outlook Express (caption)
.....
..
.


Oren