Forum: Lazarus (IDE)
by SaFu,
13. Jun 2018
So funktioniert das ganze.
procedure TForm1.Button1Click(Sender: TObject);
var Count:integer;
begin
for Count:= 1 to 2 do
begin
Windows.keybd_event(VK_Scroll, Windows.MapVirtualKey(VK_Scroll, 0), KEYEVENTF_EXTENDEDKEY, 0); // Scroll drücken
Windows.keybd_event(VK_Scroll, Windows.MapVirtualKey(VK_Scroll, 0), KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0); // Scroll loslassen
Forum: Lazarus (IDE)
by SaFu,
13. Jun 2018
Also, wenn ich das so ausführe,
procedure TForm1.Button1Click(Sender: TObject);
begin
Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
Keybd_Event(VK_Scroll,0,0,0); // <- taste drücken
Keybd_Event(VK_Scroll,0,KEYEVENTF_KEYUP,0); // <- taste loslassen
end;
Forum: Lazarus (IDE)
by SaFu,
13. Jun 2018
Danke schonmal für die Antworten,
Ich glaub ich hab da auch ein Verständnisproblem, wenn ich über die Windowseigen Bildschirmtastatur zwei mal auf Rollen drücke, schaltet der USB-Switch um.
Von meinem Verständnis her ist es ja auch nur eine Software (Bildschirmtastatur), also warum kann ich es auch nicht so machen?
LG
Forum: Lazarus (IDE)
by SaFu,
13. Jun 2018
Wäre es mit so einer Tastatur möglich?
https://activekeyboards.eu/Programmmierbare-Tastaturen/Frei-Programmierbarer-Nummernblock-Kassentastatur-mit-35-Tasten::29.html?MODsid=d47a6634ee9c099e1bf0915287feb0b6
Forum: Lazarus (IDE)
by SaFu,
12. Jun 2018
Schade, mein Traum ist somit geplatzt, hab gedacht ich wäre nah dran :lol:
Hab gedacht, wenn ich das Ding über Tastatur sowieso umschalten kann, dann kan man es auch Softwareseitig simulieren.
Danke trotzdem.
Forum: Lazarus (IDE)
by SaFu,
12. Jun 2018
Es ist ein ganz simpler USB Umschalter
2 Port USB 3.0-Umschalter LogiLink UA0216 Schwarz
Der auf die Tastatur reagiert.
LG
Forum: Lazarus (IDE)
by SaFu,
12. Jun 2018
Hi,
ich versuche einen USB-Switch per kleinen Tool umzuschalten, der Hotkey für den USB-Switch ist zweimal "Rollen" (Scroll) drücken. Das ganze später noch per Timer.
Nun habe ich folgendes geschrieben
const
VK_SCROLL = 145; // SCROLL LOCK Taste