Как получить список значков в области уведомлений

struct TTBBUTTON {
  int iBitmap;
  int idCommand;
  unsigned char fsState;
  unsigned char fsStyle;
  void* dwData;
  Char* iString;
};
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    //test();
    HWND wndTray;
    DWORD dwTray;
    void* remoteTray = NULL;
    TTBBUTTON tdata;
    DWORD btsread = 0;
    HWND Window;
    unsigned long *RBytes = 0;
    Char* str = NULL;
    wndTray = FindTrayToolbar();
 
    char  WindowName[255];
 
    long GetIconsCount;
    GetIconsCount = SendMessage( wndTray, TB_BUTTONCOUNT, 0, 0 );
    GetWindowThreadProcessId( wndTray, &dwTray );
    HANDLE hTray = OpenProcess( PROCESS_ALL_ACCESS, false, dwTray );
    if ( hTray != 0 )
    {
        remoteTray = VirtualAllocEx( hTray, NULL, sizeof( tdata ), MEM_COMMIT, PAGE_READWRITE );
        for ( int stop = GetIconsCount - 1, i = 0; i <= stop; i++)
        {
 
 
            SendMessage(FindTrayToolbar(), TB_GETBUTTON,  i , ((int) remoteTray ));
            ReadProcessMemory( hTray, remoteTray, &tdata, sizeof( tdata ), RBytes );
            ReadProcessMemory( hTray, tdata.dwData, &str, sizeof( HWND ), RBytes );
 
 
            
            Memo1->Lines->Add( str );
            
            
                 }
    }
}
//---------------------------------------------------------------------------

struct TTBBUTTON {
  int iBitmap;
  int idCommand;
  unsigned char fsState;
  unsigned char fsStyle;
  void* dwData;
  Char* iString;
};
 
HWND FindTrayTool( )
{
  HWND result;
  result = FindWindow( L"Shell_TrayWND", NULL );
  result = FindWindowEx( result, 0, L"TrayNotifyWnd", NULL );
  result = FindWindowEx( result, 0, L"SysPager", NULL );
  result = FindWindowEx( result, 0, L"ToolbarWindow32", NULL );
  return result;
}
 
void __fastcall TForm1::Button5Click(TObject *Sender)
{
    //test();
    HWND wndTray;
    DWORD dwTray;
    void* remoteTray = NULL;
    TTBBUTTON tdata;
    DWORD btsread = 0;
    HWND Window;
    unsigned long *RBytes = 0;
    Char* str = NULL;
    wndTray = FindTrayTool();
 
    char  WindowName[255];
 
    long GetIconsCount;
    GetIconsCount = SendMessage( wndTray, TB_BUTTONCOUNT, 0, 0 );
    GetWindowThreadProcessId( wndTray, &dwTray );
    HANDLE hTray = OpenProcess( PROCESS_ALL_ACCESS, false, dwTray );
    if ( hTray != 0 )
    {
        remoteTray = VirtualAllocEx( hTray, NULL, sizeof( tdata ), MEM_COMMIT, PAGE_READWRITE );
        for ( int stop = GetIconsCount - 1, i = 0; i <= stop; i++)
        {
            SendMessage(FindTrayTool(), TB_GETBUTTON,  i , ((int) remoteTray ));
            ReadProcessMemory( hTray, remoteTray, &tdata, sizeof( tdata ), RBytes );
            ReadProcessMemory( hTray, tdata.iString, &str, sizeof( HWND ), RBytes );
 
            memset(WindowName,0,255);
            GetWindowTextA((HWND)str, WindowName, 255);
            Memo1->Lines->Add( WindowName );
 
            TIcon *aIcon = new TIcon;
            HICON hIcon = NULL;
 
            hIcon = (HICON)SendMessage((HWND)str, WM_GETICON, ICON_BIG, i);
            if(hIcon == NULL) hIcon = (HICON)GetClassLong((HWND)str, GCL_HICON);
            if(hIcon != NULL) aIcon->Handle= hIcon;
 
            TListItem *it = Form1->ListView2->Items->Add();
 
            it->Caption = WindowName;
            //it->Data = ClassName;
            it->ImageIndex = Form1->ListView2->LargeImages->AddIcon(aIcon);
            it->CancelEdit();
 
            //ReadProcessMemory( hTray, Ptr( tdata.iString ), str, 255, NULL );
        }
    }
}
//---------------------------------------------------------------------------

#include <commctrl.h>
#include <shellapi.h>
#include <psapi.h>
 
 
// ...
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
    TBBUTTON tdata;
    NOTIFYICONDATA tray;
    DWORD rBytes;
 
    std::auto_ptr<Graphics::TBitmap> bm(new Graphics::TBitmap);
    bm->SetSize(32, 32);
 
    HWND wndTray = FindTrayTool();
 
    int trayCount = ::SendMessage(wndTray, TB_BUTTONCOUNT, 0, 0);
 
    DWORD trayID = 0;
    ::GetWindowThreadProcessId(wndTray, &trayID);
    HANDLE trayHandle = 0;
    trayHandle = ::OpenProcess(PROCESS_ALL_ACCESS, 0, trayID);
    if(trayHandle)
    {
        LPVOID remoteTray = ::VirtualAllocEx(trayHandle, 0, sizeof(tdata), MEM_COMMIT, PAGE_READWRITE);
        for (int i = trayCount - 1; i >= 0; i--)
        {
            ::SendMessage(wndTray, TB_GETBUTTON, i, LPARAM(remoteTray));
            ::ReadProcessMemory(trayHandle, remoteTray, &tdata, sizeof(tdata), &rBytes);
            ::ReadProcessMemory(trayHandle, LPVOID(tdata.dwData), &tray, sizeof(tray), &rBytes);
 
            if(tdata.fsState != TBSTATE_HIDDEN)
            {
                TListItem *it = ListView2->Items->Add();
                String szName = tray.szTip + 6;
                it->Caption = ExtractFileName(szName);
                Memo1->Lines->Add(szName);
 
                bm->Canvas->Brush->Color = clWhite; // Добавлено, ибо без этого значки будут накладываться один на другой
                bm->Canvas->FillRect(Rect(0, 0, 31, 31));
 
                if(!::DrawIconEx(bm->Canvas->Handle, 0, 0, tray.hIcon, 16, 16, 0, 0, DI_MASK | DI_IMAGE))
                {
                    HICON hIcon = ::ExtractIconA(0, AnsiString(szName).c_str(), 0);
                    ::DrawIconEx(bm->Canvas->Handle, 0, 0, hIcon, 16, 16, 0, 0, DI_MASK | DI_IMAGE);
                    ::DestroyIcon(hIcon);
                }
                it->ImageIndex = ListView2->LargeImages->Add(bm.get(), 0);
            }
        }
        ::VirtualFreeEx(trayHandle, remoteTray, 0, MEM_RELEASE);
    }
    ::CloseHandle(trayHandle);
}

                    if(tdata.fsState != TBSTATE_HIDDEN)
                    {
                        TListItem *it = ListView2->Items->Add();
                        String szName = tray.szTip + 8; // x64 = 8; x32 = 14
 
                        String fullPath = szName;
                        GUID g = StringToGUID(ExtractFileDir(szName));
                        wchar_t *path = new wchar_t[256];
                        if(SHGetKnownFolderPath(g, 0, NULL, &path) == S_OK) // #include <shlobj.h>
                        {
                            fullPath = String().sprintf(L"%s\\%s", path, ExtractFileName(szName).c_str());
                        }
                        delete [] path;
 
                        it->Caption = ExtractFileName(szName);
                        Memo1->Lines->Add(fullPath);
 
                        bm->Canvas->Brush->Color = clWhite;
                        bm->Canvas->FillRect(Rect(0, 0, 31, 31));
 
                        if(!::DrawIconEx(bm->Canvas->Handle, 0, 0, tray.hIcon, 16, 16, 0, 0, DI_MASK | DI_IMAGE))
                        {
                            HICON hIcon = ::ExtractIcon(0, szName.c_str(), 0);
                            ::DrawIconEx(bm->Canvas->Handle, 0, 0, hIcon, 16, 16, 0, 0, DI_MASK | DI_IMAGE);
                            ::DestroyIcon(hIcon);
                        }
                        it->ImageIndex = ListView2->LargeImages->Add(bm.get(), 0);
                    }