Start eines Keyboard-Hooks aus einem Thread

**hesch21**

In der erwähnten Rountine zum 'Abschiessen' des Screen-Savers verwende ich die Komponente wie folgt:

Code:

			procedure TForm1.BLKillerExecute(Sender: TObject; Params: Pointer);

var hDeskWnd : HDESK;

var Inp      : TInput;

begin

   hDeskWnd := OpenDesktop('Screen-saver', 0, false, MAXIMUM_ALLOWED);

   if hDeskWnd <> 0 then

      begin

      if SetThreadDesktop(hDeskWnd) then

         begin

         Inp.Itype := INPUT_KEYBOARD;

         Inp.ki.wVk := Ord('A');

         Inp.ki.dwFlags := 0;

         SendInput(1, Inp, SizeOf(Inp));

         Inp.Itype := INPUT_KEYBOARD;

         Inp.ki.wVk := Ord('A');

         Inp.ki.dwFlags := KEYEVENTF_KEYUP;

         SendInput(1, Inp, SizeOf(Inp));

         Application.ProcessMessages;

         Sleep(80);

         end;

      CloseDesktop(hDeskWnd);

      end

   else

      PostMessage(GetForegroundWindow(), WM_CLOSE, 0, 0);

end;

Wenn das geht, heisst das nicht, dass eine Nachrichtenschleife vorhanden ist?

Start eines Keyboard-Hooks aus einem Thread

AW: Start eines Keyboard-Hooks aus einem Thread

Forumregeln