Tastenkombination an Programm senden

[Mazel]

Hallo,

ich habe seit längerem das Problem, eine Tastenkombination an ein Programm zu senden, von dem ich das Handle habe, welches ich mir mit FindWindow() hole. Die Tastenkombination, die gesendet werden soll, kann der Benutzer selber über die THotkey Komponente festlegen. Ich habe folgendes schon versucht aber es hat alles nicht funktioniert. Im Anhang ist ein Demo-Projekt welches zu Hilfszwecken an einm Memo die Tastenkombination sendet, um zu überprüfen, ob es funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Key            : Word;
  Shift          : TShiftState;
  Modifiers      : Integer;

begin
  Wnd := FindWindow(nil, 'Form1');

  // für Mehtode 1 und 2 folgendes
  Wnd := FindWindowEx(wnd, 0, 'TMemo', nil);

  // Mehtode 1:
  SendMessage(Wnd, WM_Char, HotKey1.HotKey, IntegerHotKey1.Modifier));
  
  // Methode 2:
  ShortCutToKey(HotKey1.HotKey, Key, Shift);
  If ssCtrl in Shift then Modifiers := MOD_CONTROL;
  If ssAlt in Shift then Modifiers := Modifiers or MOD_ALT;
  If ssShift in Shift then Modifiers := Modifiers or MOD_SHIFT;
  SendMessage(Wnd, WM_CHar, Lo(Key), Modifiers);

  // Methode 3: (muss irgendwie an Hotkey1 angepasst werden)
  PostMessage(Wnd, WM_KEYDOWN, VK_CONTROL, 0);
  PostMessage(Wnd, WM_KEYDOWN, VK_MENU, 0);
  PostMessage(Wnd, WM_KEYDOWN, Ord('A'), 0);
  PostMessage(Wnd, WM_KEYUP, Ord('A'), 0);
  PostMessage(Wnd, WM_KEYUP, VK_MENU, 0);
  PostMessage(Wnd, WM_KEYUP, VK_CONTROL, 0);
end;

Leider hat nichts funktioniert. Kann mir hier jemand helfen?

Gruß
Mazel