#pas
unit HiAsmUnit;
//unit BeholdRC_Api;
interface
{$MINENUMSIZE 4}
uses  kol,Share,Debug,Windows;
 var key:BYTE;
 var tkey:THI_Event;
const
  CsBhAPI = 'BeholdRC.dll';
type
  eRCT =
  (
    RCT_UNKNOWN ,
    RCT_BUTTONS_30,
    RCT_BUTTONS_28,
    RCT_BUTTONS_34
  );
  type
 THiAsmClass = class(TDebug)
   private

   public
 end;
 
var
  ulCardCount : ULONG = 0;
  function GetCardCount() : ULONG;                 cdecl; external CsBhAPI;
  function OpenCard(ulCardIdx : ULONG) : BOOL;     cdecl; external CsBhAPI;  // Èíèöèàëèçèðóåò óñòðîéñòâî ïî èíäåêñó ulCardIdx
  function GetRemoteCode() : ULONG;                cdecl; external CsBhAPI;  // Âîçâðàùàåò êîä íàæàòîé êíîïêè ïóëüòà ÄÓ Beholder
  function UnInit() : BOOL;                        cdecl; external CsBhAPI;
implementation 
initialization
  ulCardCount := GetCardCount();
  OpenCard(ulCardCount);
  key:=GetRemoteCode();
  _hi_onEvent_(tkey,key);
finalization
  UnInit();
end.