Forum: Win32/Win64 API (native code)
Delphi
by toms,
1. Mai 2008
Ich bin doch etwas erstaunt, dass der Fehler bei Euch nicht auftritt.
Denn GetKeyState() kann doch auch negative Wert liefern und das TKeyboardState Array nur Werte > 0 hat, muss es doch zu einem RangeError kommen.
TKeyboardState = array of Byte;
Mache nun mal vorläufig die Werte mit ABS() positiv.
Vielleicht hat ja jemand eine bessere Lösung.
Forum: Win32/Win64 API (native code)
Delphi
by toms,
30. Apr 2008
Das würde sicher mehr Systemressourcen brauchen, wenn du einen Timer mit kleinem Intervall nimmst und so
GetAsyncKeyState sehr oft aufrufst. Der Hook ist Ereignis orientiert, das andere ein Polling.
Forum: Win32/Win64 API (native code)
Delphi
by toms,
30. Apr 2008
In einer anderen Anwendung.
Forum: Win32/Win64 API (native code)
Delphi
by toms,
29. Apr 2008
Es tritt noch ein Fehler auf, wenn extern irgend eine Taste gedrückt wird.
Forum: Win32/Win64 API (native code)
Delphi
by toms,
29. Apr 2008
Klar, du kannst dies im LogKeyPress Ereignis einbauen.
procedure TMainForm.LogKeyPress(Sender: TObject; Key: Char);
begin
Memo1.SelText:= Key;
end;