Einen schönen Guten Tag, ich habe ein Keyboardprogramm, das ich mit der Tastatur normal ansteuern kann.
Da ich nicht 3 Hände habe um 2 Instrumente zu spielen, habe ich mir was zusammen gebastelt (Code folgt), dass einzelne Tasten an mein Keyboardprogramm sendet und darauf die Töne abspielt.
Nun meine Fragen....
1) Wie kann ich 2 Tasten gleichzeitig drücken lassen?
2) Wie kann ich eine Taste länger halten lassen (sagen wir 4 Sekunden)?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
targetWnd: HWND;
begin
targetWnd := FindWindow(
nil,'
Absynth 4');
if targetWnd <> 0
then
begin
PostKeyExHWND(targetWnd, Ord('
V'),[ssShift], False);
// PostKEYEXHWD unter [url]http://www.swissdelphicenter.ch/de/showcode.php?id=220[/url]
end;
end;
Einen herzlichen Dank im Vorraus
mfg Tobi