HB_FUNC( INKEY ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackTestTSD( &s_inkeyBlock ); 
    int iPCount = hb_pcount(); 
    PHB_ITEM pKey = NULL; 
    int iKey; 
  
    if( pInkeyBlock && pInkeyBlock->before ) 
       hb_vmEvalBlock( pInkeyBlock->before );                       // БЛОК КОДА ДО ... 
  
    do 
    { 
       iKey = hb_inkey( iPCount == 1 || ( iPCount > 1 && HB_ISNUM( 1 ) ), 
                        hb_parnd( 1 ), 
                        HB_ISNUM( 2 ) ? hb_parni( 2 ) : hb_setGetEventMask() ); 
  
       if( iKey == 0 || !pInkeyBlock || !pInkeyBlock->after )                  // БЛОК КОДА ПОСЛЕ ... 
          break; 
  
       pKey = hb_itemPutNI( pKey, iKey ); 
       iKey = hb_itemGetNI( hb_vmEvalBlockV( pInkeyBlock->after, 1, pKey ) ); 
       hb_inkeySetLast( iKey ); 
    } 
    while( iKey == 0 ); 
  
    if( pKey ) 
       hb_itemRelease( pKey ); 
  
    hb_retni( iKey ); 
 } 
  
 /* temporary disabled */ 
 #if 0                                                              // ЗДЕСЬ #if 1 
 HB_FUNC( HB_SETINKEYBEFOREBLOCK ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackGetTSD( &s_inkeyBlock ); 
  
    if( pInkeyBlock->before ) 
       hb_itemReturn( pInkeyBlock->before ); 
  
    if( hb_pcount() > 0 ) 
    { 
       PHB_ITEM pBlock = hb_param( 1, HB_IT_BLOCK ); 
  
       if( pInkeyBlock->before ) 
          hb_itemRelease( pInkeyBlock->before ); 
       pInkeyBlock->before = pBlock ? hb_itemNew( pBlock ) : pBlock; 
    } 
 } 
  
 HB_FUNC( HB_SETINKEYAFTERBLOCK ) 
 { 
    PHB_INKEYBLOCK pInkeyBlock = ( PHB_INKEYBLOCK ) hb_stackGetTSD( &s_inkeyBlock ); 
  
    if( pInkeyBlock->after ) 
       hb_itemReturn( pInkeyBlock->after ); 
  
    if( hb_pcount() > 0 ) 
    { 
       PHB_ITEM pBlock = hb_param( 1, HB_IT_BLOCK ); 
  
       if( pInkeyBlock->after ) 
          hb_itemRelease( pInkeyBlock->after ); 
       pInkeyBlock->after = pBlock ? hb_itemNew( pBlock ) : pBlock; 
    } 
 } 
  
 #endif 
 

 
 FUNC DefMacro(x,y,z,cKeyName,nKeyPlay) 
  
 LOCAL   wide,sx,ps 
 DEFAULT cKeyName TO "ту-же кнопку" 
  
  wide:=MAXCOL()-2 
  IF EMPTY(macro_buf[2]) // начинаем запись ? 
   SayString(0,0,PADC("Запись макро-команды, для заверш. нажмите "+cKeyName+".",wide),c_blink) 
   macro_buf:={""    ,;                 // 1.здесь храним макрос, обнуляем 
               "work",;                 // 2.состояние макроса, запись, работа... 
               TRAPANYKEY("MacroRec"),; // 3.old обработч.всех кнопок (мало-ли...) 
               nKeyPlay,;               // 4.кнопка воспр.макро - для предупрежд. 
               FALSE}                   // 5.состояние поллинга 
  ELSE 
                                        // удаляем из буфера завершающ. Ctrl+F10 
   macro_buf[1] := LEFT(macro_buf[1],LEN(macro_buf[1])-2) 
   macro_buf[2] := ""                   // выкл. признак записи макро 
   TRAPANYKEY(macro_buf[3])             // восст.перехватчик кнопок (если был) 
                                        // выводим мессагу на экран 
   sx:="Макро-команда "+IIF(LEN(macro_buf[1]) > 0,"записана.","ОТМЕНЕНА.") 
   SayString(0,0,PADC(sx,wide),c_blink) 
   INKEY(1.5)                           // чуть-чуть ждем. 
   ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
  ENDI 
 RETURN 
  
  
 * ------------- * 
 FUNC MacroIsRec()           // запись макро выполняется ? 
 RETURN !EMPTY(macro_buf[2]) // только когда не-пустой 2й элемент 
  
 * ------------- * 
 FUNC MacroClean()           // очищаем буфер при смене юзера 
  macro_buf := {"",""} 
 RETURN 
  
 * ------------------- * 
 FUNC MacroRec(nKeyCode) 
  
  IF (nKeyCode != macro_buf[4])      // запрещена кнопка воспр.макро 
   macro_buf[1] += I2BIN(nKeyCode)   // сохраняем кнопку в расширенном виде 
   SayString(0,0,STR(LEN(macro_buf[1])/2,6),c_blink) 
   KEYSEND(I2BIN(nKeyCode),TRUE) 
  ELSE 
   SayString(0,0," err!") 
  ENDI 
 RETURN 
 #endif 
  
 * ------------ * 
 FUNC PlayMacro() 
  IF EMPTY(macro_buf[2])        // не во время записи ? 
   KEYSEND(macro_buf[1],TRUE) 
  ENDI 
 RETURN 
  
  
 

 
 В начале программы достаточно поставить MacroNew("setup") 
  
 FUNC MacroNew( cCmd )  
  
 STATIC nBuf := {},; 
        msg1 := "Начало записи макро, Ctrl+F10 для завершения.",; 
        rec_on := FALSE 
 LOCAL nKey  
  
  IF (cCmd == "setup")              // define keys 
  
   SETKEY(K_CTRL_F10, {|| MacroNew("rec") })  
   SETKEY(254,        {|| MacroNew("get") })  
   SETKEY(K_F10,      {|| MacroNew("play") })  
  
  ELSEIF (cCmd == "rec") // start records  
  
   IF !rec_on 
    nBuf := { } 
    rec_on := TRUE 
    HB_KeyPut(254)  
    SayString(0,0,PADC(msg1,MAXCOL()+1),c_blink) 
   ELSE 
    SayString(0,0,PADC(" Macro recorded ",MAXCOL()+1),c_blink) 
    INKEY(1)                             // чуть-чуть ждем. 
    rec_on := FALSE 
    ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
   ENDIF 
  
  ELSEIF (cCmd == "get") // records a symbol 
  
   DO WHILE ( nKey := INKEY(0) ) # K_CTRL_F10 // -9 конец записи тут произойдет автоматом 
    AADD(nBuf,nKey)  
    SayString(0,0,PADC(NTRIM(LEN(nBuf))+" <"+NTRIM(nKey)+"> "+msg1,MAXCOL()+1),c_blink) 
    HB_KeyPut({nKey,254}) 
    RETURN  
   ENDDO  
  
    SayString(0,0,PADC(" Macro recorded ",MAXCOL()+1),c_blink) 
    INKEY(1)                             // чуть-чуть ждем. 
    rec_on := FALSE 
    ShowMainHeader()                     // восстанавливаем верхн.часть экрана 
  
  ELSEIF (cCmd == "play")               // play macro 
   IF !rec_on 
    HB_KeyPut(nBuf) 
   ENDI 
  
  ELSEIF (cCmd == "check")              // record on ? 
   RETURN rec_on 
  
  ENDIF  
  
 RETURN