Langen Tastendruck simulieren

[dying_Tobi]

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

[himitsu]

schau dir mal die Unit SendKey an.

Diese bietet Funktionen dafür an, oder du schaust einfach welche APIs diese verwendet.

Da gibt es eine API, wo man sagen kann daß eine Taste gedrückt oder losgelassen wird.

wenn du diese Befehle dann entsprechend sendest, dann könntest du z.B. eine Taste 4 Sekunden lang drücken lassen und gleichzeigig noch eine andere

Zitat:

> Taste A drücken
> Taste B drücken
> 4 Sekunden warten
> Taste B loslassen
> Taste A loslassen