RegisterHotKey

if (Msg.message == WM_HOTKEY)

//---------------------------------------------------------------------------
 
#ifndef KeyBoardMan_UnitH
#define KeyBoardMan_UnitH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "sLabel.hpp"
#include "sSkinManager.hpp"
#include <Dialogs.hpp>
#include <mmsystem.hpp>
#include <AppEvnts.hpp>
#include "sButton.hpp"
#include <Menus.hpp>
#include <ExtCtrls.hpp>
#include "sPanel.hpp"
#include <IniFiles.hpp>
#include "ProgressUnit.h"
#include <fstream.h>
#include <map.h>
#include "StatictisUnit.h"
#include <jpeg.hpp>
 
//---------------------------------------------------------------------------
class TMainForm : public TForm
{
__published:    // IDE-managed Components
    TsSkinManager *sSkinManager1;
    TOpenDialog *OpenDialog1;
    TLabel *lRight;
    TLabel *lLeft;
    TApplicationEvents *ApplicationEvents1;
    TsPanel *TextPanel;
    TTimer *TimerPause;
    TTimer *TimerAct;
    TLabel *LabelSpeed;
    TsPanel *PnlTime;
    TImage *Image1;
    TLabel *LabelPercent;
    TMainMenu *MainMenu1;
    TMenuItem *N1;
    TMenuItem *N2;
    void __fastcall InitVariables();
    void __fastcall FirstStart();
    void __fastcall SetFile(AnsiString fname);
    void __fastcall GetFirstString();
    void __fastcall Start();
    void __fastcall FormKeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall PauseKeyPress(TObject *Sender, wchar_t &Key);
    void __fastcall Pause();
    void __fastcall TrueChar();
    void __fastcall WrongChar();
    void __fastcall SetOptimalSize();
    void __fastcall SetMinimalSize();
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall SwitchSize();
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall GetINI();
    void __fastcall SetINI();
    void __fastcall Restore();
    AnsiString __fastcall GetTime();
    short __fastcall GetSpeed();
    void __fastcall TimerPauseTimer(TObject *Sender);
    void __fastcall TimerActTimer(TObject *Sender);
    void __fastcall PnlTimePaint(TObject *Sender, TCanvas *Canvas);
    short __fastcall GetSessionTime();
    float __fastcall GetFaultsPercent();
    void __fastcall N1Click(TObject *Sender);
    void __fastcall N2Click(TObject *Sender);
    bool __fastcall GetDesktopWallpaper();
    void __fastcall ApplicationEvents1Deactivate(TObject *Sender);
    void __fastcall ApplicationEvents1Message(tagMSG &Msg, bool &Handled);
private:    // User declarations
    ifstream fin;
    FILE* textFile;
    FILE* ff; // FaultsFile!
    String fileName;
    String iniFileName;
    AnsiString ch;
    char buffer[100]; // Используется при заполнении LRight при запуске
    bool miniSized;
    int num; // Количество фраз
    int currentStr; // Текущая фраза
    fpos_t pos; // Текущая позиция
    TIniFile *iniFile;
    short speed;
    String templStr; // Для режима паузы
    String temprStr;
    int lrTop;
    char second;
    char minute;
    AnsiString secStr, minStr;
    short rightPresses;
    short wrongPresses;
    TColor color;
    AnsiString progressFileName;
    std::map<wchar_t,int>::iterator i;
    bool paused;
public:     // User declarations
    TStringList *strListProgress;
    DynamicArray<String> dateStrArray;
    DynamicArray<short> speedArray;
    DynamicArray<float> faultArray;
    DynamicArray<String> timeStrArray;
    std::map <wchar_t, int> mapFaults;
 
    TTime timePassed;
    TTime sessionTime;
 
    __fastcall TMainForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TMainForm *MainForm;
//---------------------------------------------------------------------------
#endif

 void __fastcall TForm1::FormCreate(TObject *Sender)
{
        RegisterHotKey(Handle,0,MOD_ALT+MOD_CONTROL,VK_RETURN); //Регистрируем под номером 0 связку клавиш Alt + Ctrl + Enter. 
        RegisterHotKey(Handle,1,MOD_ALT,'A'); //А здесь регистрируем связку Alt + клавиша "A" под номером 1
}

void __fastcall TForm1::ApplicationEvents1Message(tagMSG &Msg,
      bool &Handled)
{
if (Msg.message == WM_HOTKEY)
        {
        if (Msg.wParam == 0) // Здесь идет проверка идентификатора. Если параметр 0, что соответствует нашей первой связке, то 
                {
                ShowMessage("ENTER"); // Наше действие
                }
                if (Msg.wParam == 1) //Если параметр 1, что соответствует нашей второй связке, то 
                {
                ShowMessage('A'); // Другое действие
                }
        }
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
UnregisterHotKey(Handle,0);
UnregisterHotKey(Handle,1);
}

if (Msg.message == WM_HOTKEY)

ShowMessage(Msg.message);

ShowMessage(GetLastError());

ShowMessage(Msg.message);

 ShowMessage(Msg.message);