RxLib Delphi XE

[Wilson Daniel Peres de Oliveira]

(Sorry -> bad english area)
Hi! I've tried to install RxLib into Delphi XE and some problems appear:

1. Changed RXShell.pas: line 504 -> cbSize := SizeOf(TNotifyIconData);    to   cbSize := TNotifyIconData.SizeOf;
2. Problem persist: rxCheckItm.pas   ->   rxCheckItm.pas(247): E2003 Undeclared identifier: 'SDelphiKey'

Maybe some other bugs will appear!

Please help!!!!

[Remulo]

friend, okay?
good
I added the file Rx.inc
/ / -
{$IFDEF VER220} { Embarcadeiro Delphi XE 15.x }
  {$DEFINE RX_D3}
  {$DEFINE RX_D4}
  {$DEFINE RX_D5}
  {$DEFINE RX_D6}
  {$DEFINE RX_D7}
  {$DEFINE RX_D8}
  {$DEFINE RX_D9}
  {$DEFINE RX_D10}
  {$DEFINE RX_D105}
  {$DEFINE RX_D12}
  {$DEFINE RX_D14}
  {$DEFINE RX_D15}
{$ENDIF}
/ / -

I added the file RxConst.pas
//--
{$IFDEF VER220}
const
  SDelphiKey = 'Software\Embarcadero\BDS\8.0';
{$ENDIF}
/ / -

I added the file RxShell.pas
/ / -
/ / Type Declaration
/ / -
TNotifyIconDataXP = record
    cbSize: DWORD;
    Wnd: THandle;
    uID: UINT;
    uFlags: UINT;
    uCallbackMessage: UINT;
    hIcon: HICON;
    szTip: array  of Char; // 0..64 for pre 5.0 shell versions
    dwState: DWORD;
    dwStateMask: DWORD;
    szInfo: array  of Char;
    uTimeOut: DWORD;
    szInfoTitle: array  of Char;
    dwInfoFlags: DWORD;
  end;
/ / -

/ / -
/ / And changed
>>> FIconData: TNotifyIconData;
/ / For
//--
{$IFDEF RX_D15}
    FIconData: TNotifyIconDataXP;
{$ELSE}
    FIconData: TNotifyIconData;
{$ENDIF}
/ / -
in the body of TRxTrayIcon type = class (TComponent)

and it worked perfectly. :)

download code in http://www.megaupload.com/?d=S8BA2S89