Joar, bevor Delphi gestorben ist.
Eigentlich hatte ich gestern auch mal überlegt endlich mein System zurückzusetzen, aber dann ginge Delphi ja nicht.
Mein Problem ist aktuell nur, dass immer alle Explorer.exe (inkl. Taskleiste) abstürzen/neustarten, wenn der Bildschirm aus dem Standby kommt. (irgendein Dreck mit der
Windows.UI.Xaml.dll)
Versuch mal einen der Beiden, während du die Message (OnMouseIrgendwas/OnKeyIrgendwas bzw. WM_MOUSE_irgendwas/WM_KEY_irgendwas) behandelts.
Delphi-Quellcode:
// Winapi.Windows.pas
type
INPUT_MESSAGE_DEVICE_TYPE = (
IMDT_UNAVAILABLE = 0,
IMDT_KEYBOARD = 1,
IMDT_MOUSE = 2,
IMDT_TOUCH = 4,
IMDT_PEN = 8,
IMDT_TOUCHPAD = 16
);
INPUT_MESSAGE_ORIGIN_ID = (
IMO_UNAVAILABLE = 0,
IMO_HARDWARE = 1,
IMO_INJECTED = 2,
IMO_SYSTEM = 4
);
function GetCurrentInputMessageSource(inputMessageSource: PINPUT_MESSAGE_SOURCE): BOOL;
stdcall;
function GetCIMSSM(inputMessageSource: PINPUT_MESSAGE_SOURCE): BOOL;
stdcall;