[perl-win32-gui-users] balloon tooltip

[Todd Colton]

Hello,

I'm trying to create a balloon tooltip in the systray (see
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/tooltip/usingtooltips.asp
for an example). I have the Win32::API call to Shell_NotifyIconA down,
but I'm having problems with Win32::API::Struct getting the
NOTIFYICONDATA structure to work properly. Here's the structure:

typedef struct _NOTIFYICONDATA {
    DWORD cbSize;
    HWND hWnd;
    UINT uID;
    UINT uFlags;
    UINT uCallbackMessage;
    HICON hIcon;
    TCHAR szTip[64];
    DWORD dwState;
    DWORD dwStateMask;
    TCHAR szInfo[256];
    union {
        UINT uTimeout;
        UINT uVersion;
    };
    TCHAR szInfoTitle[64];
    DWORD dwInfoFlags;
    GUID guidItem;
} NOTIFYICONDATA, *PNOTIFYICONDATA;

Can anybody recommend how to pack() this? I've tried
Win32::GUI::NotifyIcon, but it's has limitations and does not allow me
to set all of the items in the structure for the balloon tooltip to
work. I've also tried Convert::Binary::C with no luck. Maybe I should
attempt to write an XS module for this functionality?

Thanks in advance for your assistance! :)