;Skalarki Predefined hotkeys

[HotKey.0]
; HotKey listening for
key1=CTRL
key2=F9
; yes/no yes=> new keystroke will be send to application. no=> same keystroke will be send to application
add_new_keystroke=no
; new transfered keystroke
new_keystroke=
; name off application where new keystroke has to send to
application_name=
; part of window title of application to find window handle
application_caption=
; press and release
; yes => press_event for defined keystroke will be send
press=yes
; yes => release_event for defined keystroke will be send
release=yes

[HotKey.1]
key1=F1
key2=CTRL
add_new_keystroke=no
new_keystroke=
application_name=
application_caption=
press=yes
release=yes

[HotKey.2]
key1=F2
key2=
add_new_keystroke=no
new_keystroke=
application_name=
application_caption=
press=yes
release=yes

[HotKey.3]
key1=F3
key2=
add_new_keystroke=no
new_keystroke=
application_name=
application_caption=
press=yes
release=yes

[HotKey.4]
key1=F4
key2=
add_new_keystroke=no
new_keystroke=
application_name=
application_caption=
press=yes
release=yes

[HotKey.5]
key1=F5
key2=
add_new_keystroke=no
new_keystroke=
application_name=
application_caption=
press=yes
release=yes

unit HotKeyApp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IniFiles;

const
  VK_NULL = $00; // NULL
  VK_LBUTTON = $01; // Linke Maustaste
  VK_RBUTTON = $02; // Rechte Maustaste
  VK_CANCEL = $03; // Für die Verarbeitung von Control-Break
  VK_MBUTTON = $04; // Mittlere Maustaste (Dreitastenmaus)

  VK_BACK = $08; // BACKSPACE Taste
  VK_TAB = $09; // TAB Taste

  VK_CLEAR = $0C; // Löschtaste
  VK_RETURN = $0D; // RETURN Taste

  VK_SHIFT = $10; // SHIFT Taste
  VK_CONTROL = $11; // STRG Taste
  VK_MENU = $12; // ALT Taste
  VK_PAUSE = $13; // PAUSE Taste
  VK_CAPITAL = $14; // CAPS LOCK Taste

  VK_ESCAPE = $1B; // ESC Taste

  VK_SPACE = $20; // LEERTASTE
  VK_PRIOR = $21; // PAGE UP Taste
  VK_NEXT = $22; // PAGE DOWN Taste
  VK_END = $23; // ENDE Taste
  VK_HOME = $24; // POS1 Taste
  VK_LEFT = $25; // Cursortaste links
  VK_UP = $26; // Cursortaste oben
  VK_RIGHT = $27; // Cursortaste rechts
  VK_DOWN = $28; // Cursortaste unten
  VK_SELECT = $29; // SELECT Taste
  VK_PRINT = $2A; // Druck
  VK_EXECUTE = $2B; // Taste Ausführen (EXECUTE)
  VK_SNAPSHOT = $2C; // PRINT SCREEN Taste für Windows 3.0 und höher
  VK_INSERT = $2D; // EINFG Taste
  VK_DELETE = $2E; // ENTF Taste
  VK_HELP = $2F; // Hilfetaste
  VK_0 = $30; // Taste 0
  VK_1 = $31; // Taste 1
  VK_2 = $32; // Taste 2
  VK_3 = $33; // Taste 3
  VK_4 = $34; // Taste 4
  VK_5 = $35; // Taste 5
  VK_6 = $36; // Taste 6
  VK_7 = $37; // Taste 7
  VK_8 = $38; // Taste 8
  VK_9 = $39; // Taste 9

  VK_A = $41; // Taste A
  VK_B = $42; // Taste B
  VK_C = $43; // Taste C
  VK_D = $44; // Taste D
  VK_E = $45; // Taste E
  VK_F = $46; // Taste F
  VK_G = $47; // Taste G
  VK_H = $48; // Taste H
  VK_I = $49; // Taste I
  VK_J = $4A; // Taste J
  VK_K = $4B; // Taste K
  VK_L = $4C; // Taste L
  VK_M = $4D; // Taste M
  VK_N = $4E; // Taste N
  VK_O = $4F; // Taste O
  VK_P = $50; // Taste P
  VK_Q = $51; // Taste Q
  VK_R = $52; // Taste R
  VK_S = $53; // Taste S
  VK_T = $54; // Taste T
  VK_U = $55; // Taste U
  VK_V = $56; // Taste V
  VK_W = $57; // Taste W
  VK_X = $58; // Taste X
  VK_Y = $59; // Taste Y
  VK_Z = $5A; // Taste Z
  VK_LWIN = $5B; // Linke Windowstaste
  VK_RWIN = $5C; // Rechte Windowstaste
  VK_APPS = $5D; // Application-Taste

  VK_NUMPAD0 = $60; // Numerisches Tastenfeld, Taste 0
  VK_NUMPAD1 = $61; // Numerisches Tastenfeld, Taste 1
  VK_NUMPAD2 = $62; // Numerisches Tastenfeld, Taste 2
  VK_NUMPAD3 = $63; // Numerisches Tastenfeld, Taste 3
  VK_NUMPAD4 = $64; // Numerisches Tastenfeld, Taste 4
  VK_NUMPAD5 = $65; // Numerisches Tastenfeld, Taste 5
  VK_NUMPAD6 = $66; // Numerisches Tastenfeld, Taste 6
  VK_NUMPAD7 = $67; // Numerisches Tastenfeld, Taste 7
  VK_NUMPAD8 = $68; // Numerisches Tastenfeld, Taste 8
  VK_NUMPAD9 = $69; // Numerisches Tastenfeld, Taste 9
  VK_MULTIPLY = $6A; // Multiplikationstaste
  VK_ADD = $6B; // Additionstaste
  VK_SEPARATOR = $6C; // Trenntaste
  VK_SUBTRACT = $6D; // Subtraktionstaste
  VK_DECIMAL = $6E; // Dezimaltrenntaste
  VK_DIVIDE = $6F; // Divisionstaste
  VK_F1 = $70; // F1 Taste
  VK_F2 = $71; // F2 Taste
  VK_F3 = $72; // F3 Taste
  VK_F4 = $73; // F4 Taste
  VK_F5 = $74; // F5 Taste
  VK_F6 = $75; // F6 Taste
  VK_F7 = $76; // F7 Taste
  VK_F8 = $77; // F8 Taste
  VK_F9 = $78; // F9 Taste
  VK_F10 = $79; // F10 Taste
  VK_F11 = $7A; // F11 Taste
  VK_F12 = $7B; // F12 Taste
  VK_F13 = $7C; // F13 Taste
  VK_F14 = $7D; // F14 Taste
  VK_F15 = $7E; // F15 Taste
  VK_F16 = $7F; // F16 Taste
  VK_F17 = $80; // F17 Taste
  VK_F18 = $81; // F18 Taste
  VK_F19 = $82; // F19 Taste
  VK_F20 = $83; // F20 Taste
  VK_F21 = $84; // F21 Taste
  VK_F22 = $85; // F22 Taste
  VK_F23 = $86; // F23 Taste
  VK_F24 = $87; // F24 Taste

  VK_NUMLOCK = $90; // NUM LOCK Taste
  VK_SCROLL = $91; // SCROLL LOCK Taste
  VK_LSHIFT = $A0; // Linke Shift-Taste
  VK_RSHIFT = $A1; // Rechte Shift-Taste
  VK_LCONTROL = $A2; // Linke Strg-Taste
  VK_RCONTORL = $A3; // Rechte Strg-Taste
  VK_LMENU = $A4; // Linke Menü-Taste
  VK_RMENU = $A5; // Rechte Menü-Taste
  VK_SEMICOLON = $BA; // Taste ;
  VK_EQUAL = $BB; // Taste =
  VK_COMMA = $BC; // Taste ,
  VK_MINUS = $BD; // Taste -
  VK_PERIOD = $BE; // Taste .
  VK_SLASH = $BF; // Taste \
  VK_BACKQUOTE = $C0; // Taste `
  VK_LEFTBRACKET = $DB; // Taste <
  VK_BACKSHLASH = $DC; // Taste \
  VK_RIGHTBRACKET = $DD; // Taste >
  VK_QUOTE = $DE; // Taste ´

  VK_PROCESSKEY = $E5; // Process-Taste
  VK_ATTN = $F6; // Attn-Taste
  VK_CRSEL = $F7; // Clear-Selected-Taste
  VK_EXSEL = $F8; // EXSEL-Taste
  VK_EREOF = $F9; // EREOF-Taste
  VK_PLAY = $FA; // Play-Taste
  VK_ZOOM = $FB; // Zoom-Taste
  VK_NONAME = $FC; // Noname-Taste
  VK_PA1 = $FD; // PA1-Taste
  VK_OEM_CLEAR = $FE; // OEM-Clear

type THotkey = record
  HotKeyName : string;
  Key1 : cardinal;
  Key2 : cardinal;
  HotKey : integer;
  add_keystroke : boolean;
  new_keystroke : integer;
  application_name : string;
  application_caption : string;
  press : boolean;
  release : boolean;
  end;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private-Deklarationen }
    procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
  public
    { Public-Deklarationen }
    HotKeyList : array of THotkey;
    HotKeyListSize : cardinal;

    HotKeyIni : TIniFile;
    HotKey1, HotKey2, HotKey3: integer;

  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

// String in Virtuellen Key umwandeln, siehe KonstantenListe überhaltb
function StrToVK (aString : string): cardinal;
begin

  if (aString = '') then result := VK_NULL;

  // F1 bis F12
  if (aString = 'F1') then result := VK_F1;
  if (aString = 'F2') then result := VK_F2;
  if (aString = 'F3') then result := VK_F3;
  if (aString = 'F4') then result := VK_F4;
  if (aString = 'F5') then result := VK_F5;
  if (aString = 'F6') then result := VK_F6;
  if (aString = 'F7') then result := VK_F7;
  if (aString = 'F8') then result := VK_F8;
  if (aString = 'F9') then result := VK_F9;
  if (aString = 'F10') then result := VK_F10;
  if (aString = 'F11') then result := VK_F11;
  if (aString = 'F12') then result := VK_F12;

  // CTRL, ALT, SHIFT
  if (aString = 'CTRL') then result := MOD_CONTROL;
  if (aString = 'ALT') then result := VK_MENU;
  if (aString = 'LSHIFT') then result := VK_LSHIFT;
  if (aString = 'RSHIFT') then result := VK_RSHIFT;

  // A - Z

  // 0 -9

end;


procedure SetHotKey(aKey1, aKey2 : cardinal; aNumber : integer);
begin
  Form1.Memo1.Lines.Add(pchar('HotKey.' + IntToStr(aNumber)) + ' ---> ' + Form1.HotKeyList[aNumber].HotKeyName);


  Form1.HotKeyList[aNumber].HotKey := GlobalAddAtom(pchar('HotKey.' + IntToStr(aNumber)));
  RegisterHotKey(Form1.Handle, form1.HotKeyList[aNumber].HotKey ,aKey1, aKey2);
end;


procedure TForm1.WMHotKey(var Msg: TWMHotKey);
var i : integer;
begin
  //Memo1.Lines.Add('Msg.Hotkey='+ inttostr(msg.HotKey));

  if (HotKeyListSize > 0) then
    for i := 0 to HotKeyListSize - 1 do
      if (HotKeyList[i].HotKey = Msg.HotKey) then
        Memo1.lines.add('Hotkey.' + inttostr(i) + ' ---> wurde gedrückt!');


  //Form1.Caption := 'Msg.HotKey= ' +inttostr(Msg.HotKey) + 'HotKeyList[0].HotKey = ' + inttostr(HotKeyList[0].HotKey);

  //if Msg.HotKey = HotKeyList[0].HotKey then showmessage('juhu ----- ' + HotKeyList[0].HotKeyName);

end;

procedure TForm1.FormCreate(Sender: TObject);
var i, u : integer;
    key1, key2 : string;
begin
  // HotKeyIni einlesen
  HotKeyIni := TInifile.Create(ExtractFilePath(ParamStr(0)) + 'hotkeys.ini');

  for i := 0 to 255 do
    if not HotKeyIni.SectionExists('HotKey.' +IntToStr(i)) then
      break;

  // Größe des HotKeyArrays festlegen
  if (i = 0) then
    //Keine Hotkeys definiert
    HotKeyListSize := 0
  else
    begin
    HotKeyListSize := i;
    setlength(HotKeyList, i);
    end;

  // HotKeyArray befüllen
  if (HotKeyListSize > 0) then
    for i := 0 to HotKeyListSize - 1 do
      begin
      HotKeyList[i].HotKeyName := HotKeyIni.ReadString('HotKey.' + IntToStr(i),'key1','') + ' + ' +HotKeyIni.ReadString('HotKey.' + IntToStr(i),'key2','');
      HotKeyList[i].Key1 := StrToVK(HotKeyIni.ReadString('HotKey.' + IntToStr(i),'key1',''));
      HotKeyList[i].Key2 := StrToVK(HotKeyIni.ReadString('HotKey.' + IntToStr(i),'key2',''));

      setHotKey(HotKeyList[i].Key1, HotKeyList[i].Key2, i);

      Memo1.Lines.Add(inttostr(HotKeyList[i].HotKey));
      end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
var i : integer;
begin
  if (HotKeyListSize > 0) then
    for i := 0 to HotKeyListSize - 1 do
      begin
      UnRegisterHotKey(Handle, HotKeyList[i].HotKey);
      GlobalDeleteAtom(HotKeyList[i].HotKey);
      end;
end;

end.