1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

TForm1 = class(TForm)
  private
  { Private-Deklarationen }
  procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;

  public
  { Public-Deklarationen }

end;

const id_SnapShot =101;

procedure TForm1.WMHotKey(var Msg : TWMHotKey);
begin
  if Msg.HotKey=id_SnapShot then
  begin
    // ...;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Form1.Handle,id_SnapShot,0,VK_Snapshot);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnRegisterHotKey(Form1.Handle,id_SnapShot);
end;                    

1:

inherited WMHotKey(Msg);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:

  With Hook do
  begin
    AddHotKey(vkA,[hkShift]);
    AddHotKey(vkB,[hkShift]);
    AddHotKey(vkC,[hkShift]);
    AddHotKey(vkD,[hkShift]);
    AddHotKey(vkE,[hkShift]);
    AddHotKey(vkF,[hkShift]);
    AddHotKey(vkG,[hkShift]);
    AddHotKey(vkH,[hkShift]);
    AddHotKey(vkI,[hkShift]);
    AddHotKey(vkJ,[hkShift]);
    AddHotKey(vkK,[hkShift]);
    AddHotKey(vkL,[hkShift]);
    AddHotKey(vkM,[hkShift]);
    AddHotKey(vkN,[hkShift]);
    AddHotKey(vkO,[hkShift]);
    AddHotKey(vkP,[hkShift]);
    AddHotKey(vkQ,[hkShift]);
    AddHotKey(vkR,[hkShift]);
    AddHotKey(vkS,[hkShift]);
    AddHotKey(vkT,[hkShift]);
    AddHotKey(vkU,[hkShift]);
    AddHotKey(vkV,[hkShift]);
    AddHotKey(vkW,[hkShift]);
    AddHotKey(vkX,[hkShift]);
    AddHotKey(vkY,[hkShift]);
    AddHotKey(vkZ,[hkShift]);
    AddHotKey(vk0,[]);
    AddHotKey(vk1,[]);
    AddHotKey(vk2,[]);
    AddHotKey(vk3,[]);
    AddHotKey(vk4,[]);
    AddHotKey(vk5,[]);
    AddHotKey(vk6,[]);
    AddHotKey(vk7,[]);
    AddHotKey(vk8,[]);
    AddHotKey(vk9,[]);
    AddHotKey(vkReturn,[]);
    AddHotKey(vkA,[]);
    AddHotKey(vkB,[]);
    AddHotKey(vkC,[]);
    AddHotKey(vkD,[]);
    AddHotKey(vkE,[]);
    AddHotKey(vkF,[]);
    AddHotKey(vkG,[]);
    AddHotKey(vkH,[]);
    AddHotKey(vkI,[]);
    AddHotKey(vkJ,[]);
    AddHotKey(vkK,[]);
    AddHotKey(vkL,[]);
    AddHotKey(vkM,[]);
    AddHotKey(vkN,[]);
    AddHotKey(vkO,[]);
    AddHotKey(vkP,[]);
    AddHotKey(vkQ,[]);
    AddHotKey(vkR,[]);
    AddHotKey(vkS,[]);
    AddHotKey(vkT,[]);
    AddHotKey(vkU,[]);
    AddHotKey(vkV,[]);
    AddHotKey(vkW,[]);
    AddHotKey(vkX,[]);
    AddHotKey(vkY,[]);
    AddHotKey(vkZ,[]);
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

procedure PostKeyEx32(key: Word; const shift: TShiftState; specialkey: Boolean);
type
  TShiftKeyInfo = record 
    shift: Byte;
    vkey: Byte;
  end;
  byteset = set of 0..7;
const 
  shiftkeys: array [1..3] of TShiftKeyInfo = 
    ((shift: Ord(ssCtrl); vkey: VK_CONTROL), 
    (shift: Ord(ssShift); vkey: VK_SHIFT), 
    (shift: Ord(ssAlt); vkey: VK_MENU)); 
var 
  flag: DWORD; 
  bShift: ByteSet absolute shift; 
  i: Integer; 
begin 
  for i := 1 to 3 do 
  begin 
    if shiftkeys[i].shift in bShift then 
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 0, 0); 
  end;
  if specialkey then 
    flag := KEYEVENTF_EXTENDEDKEY 
  else 
    flag := 0;
  keybd_event(key, MapvirtualKey(key, 0), flag, 0); 
  flag := flag or KEYEVENTF_KEYUP; 
  keybd_event(key, MapvirtualKey(key, 0), flag, 0); 

  for i := 3 downto 1 do
  begin 
    if shiftkeys[i].shift in bShift then 
      keybd_event(shiftkeys[i].vkey, MapVirtualKey(shiftkeys[i].vkey, 0), 
        KEYEVENTF_KEYUP, 0); 
  end;
end;                    

1:
2:

PostKeyEx32(ord('H'), [], false);//Drückt H
PostKeyEx32(ord('H'), [ssShift], false);//Drückt Shift+H                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.WMHotKey(var Msg : TWMHotKey); 
begin 
  if Msg.HotKey=id_SnapShot then 
  begin 
    // ...; 
  end; 
end;                    

1:

RegisterHotKey(Form1.Handle, id_SnapShot, MOD_SHIFT, VK_Snapshot);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure keycheck;
var
  i: byte;
begin
  while true do
    begin
      if boolean(getasynckeystate(vk_f9)) then
        showmessage('F9 gedrückt !');
      sleep(50);
    end;
end;

createthread(nil, 0, @keycheck, nil, 0, tid);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  str: string;
begin
  str:= '';
  if key <> vk_shift then
    if ssshift in shift then
      label1.Caption:= label1.Caption + chr(key) else
        label1.Caption:= label1.Caption + lowercase(chr(key));
end;