Flash и Delphi

[Arreke]

в предыдущем примере кнопка меню в приложении вообще не будет работать, теперь только на нашей флешке:

const
FlashPlayerClassName: String = 'MacromediaFlashPlayerActiveX';
WM_WINMENUKEY = $100;
implementation

{$R *.dfm}

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
TempClass: array [0..49] of Char;
begin
  With Msg Do Begin
    Case message Of
      WM_RBUTTONDOWN, WM_WINMENUKEY:
      Begin
        GetClassName(hwnd,TempClass,50);
        if (StrPas(TempClass) = FlashPlayerClassName) then Handled:= True;
      End;
    end; //Case
  End; //With

end;