Simulierten Hotkey per WMHotKey abfangen?

[toms]

Delphi-Quellcode:

if (GetKeyState(VK_CONTROL)< 0) // CTRL gedrückt then
begin
  if TPMsg(lParam)^.wParam = vkKeyScan('s') // S-Taste then
  begin
    if TPMsg(lParam)^.message = WM_KEYDOWN then// Taste unten 
    begin
      Messagebox(0, 'Strg + s', 'H O O K', 0);
      Kill := True;
    end;
  end;
end;