Tastenkombination simulieren

[Todd]

Hallo Leute,

ich möchte gerne auf meinem Formular die folgende Tastenkombination simulieren.
D.h. der User drückt einen Button und eine Tastenkombination wird so ausgeführt, als ob es der User eingegeben hätte:

Delphi-Quellcode:

procedure Form1.Button1Click(TObject *Sender)
begin
     //Jetzt die Tastenkombination - Str+Shift+L - 2mal nacheinander ausführen
...
...
end

Danke für eure Hilfe