Zeig mal bitte wie du

Zitat:

@CallBackDelHook

implementiert hast.

Die CallBack-Funktion fängt nur die Tastenkombination PageUp/PageDown ab. Deshalb TCode1 := 34 und TCode2 := 33.
Hier der Code:

markieren

Code:

{Abhandeln von Tasteneingaben}
function CallBackDelHook(Code:Integer; wParam:WPARAM; lParam:LPARAM): LRESULT; stdcall;
var SendStr : string;
begin
 if code = HC_ACTION then
    begin
    if (wParam = WM_KEYDOWN) and (Zwei = 0) then
       begin
       Erster := PKBDLLHookInfo(lParam).vkCode;
       Zwei   := 1;
       end;
    if (wParam = WM_KEYDOWN) and (Zwei = 1) then
       begin
       if PKBDLLHookInfo(lParam).vkCode <> Erster then
          begin
          Zweiter := PKBDLLHookInfo(lParam).vkCode;
          Zwei   := 2;
          end;
       end;
    if (wParam = WM_KEYUP) and (Zwei <> 2) then
       Zwei   := 0;
    if (wParam = WM_KEYUP) and (Zwei = 2) then
       begin
       Zwei   := 0;
       SendStr := 'AMTTHook ' + format('%3d', [Erster]) +  '¦' + format('%3d', [Zweiter]);
       if ((Erster = TCode1) and (Zweiter = TCode2)) or ((Erster = TCode2) and (Zweiter = TCode1)) then
          begin
          AssignFile(filno,Pfad + 'AMTest.log');
          Append(filno);
          Writeln(filno, TimeToStr(Now) + ' ' + SendStr);
          CloseFile(filno);
          end;
       end;
    end;
  Result := CallNextHookEx(HookTastatur, Code, wParam, lParam)
end;

Auch da gilt: ist eine Test-Variante. Normalerweise würde der SendStr nicht in eine Datei geschrieben sondern über TCP/IP (Indy) zusammen mit ein paar weiteren Angaben an ein Steuerungsprogramm im Netz übermittelt.

Ich kenne diese Thread-Komponente nicht - Bist du dir sicher, dass diese Thread-Komponente auch eine Nachrichtenschleife besitzt?
Ich glaube mich zu erinnern, dass ein Thread, der einen Hook hält, auch eine Nachrichtenschleife braucht.

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

markieren

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?

Zitat:

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

Ja, es gibt eine Nachrichtenschleife. Aber nur für dein Formular, nicht für den Thread.
Das Thread-Objekt benötigt eine eigene Nachrichtenschleife, sonst bekommt der Thread doch keine Callback-Nachricht.

Dämlich, dämlich!

So wie ich das gemacht habe, wird der Thread ausgeführt und sofort wieder beendet. Und damit halt auch der Hook. Ein JvThread1.WaitFor; hat Abhilfe gebracht und jetzt funktionierts.

Jetzt kann ich dahinter, auszuprobieren, ob's auch auf Screen-Saver-Ebene klappt.

Danke für die Unterstützung!

Zitat:

Dämlich, dämlich!

So wie ich das gemacht habe, wird der Thread ausgeführt und sofort wieder beendet. Und damit halt auch der Hook. Ein JvThread1.WaitFor; hat Abhilfe gebracht und jetzt funktionierts.

Jetzt kann ich dahinter, auszuprobieren, ob's auch auf Screen-Saver-Ebene klappt.

Danke für die Unterstützung!

Eine Frage:
Der Hook funktioniert nun dauerhaft ohne eine Nachrichtenschleife im Thread-Objekt selbst?

Würde mich wundern. Ich dachte, dass die Callback-Funktion nur einmal aufgerufen wird und nach der Abarbeitung des Threads schließt sich dieser und damit auch der Hook.

Ja, eigentlich hast Du schon recht, aber ich habe den Thread ja wie bereits erwähnt testeshalber einfach ganz bösartig ausgebremst, indem ich im Thread selbst ein WaitFor auf den Thread gesetzt habe. Der wird nie fertig und drum geht das.
Wie gesagt, das ganze war nur für Testzwecke und inzwischen habe ich leider feststellen müssen, dass auch das nichts hilft, um auf WinSta0\Screen-Saver verlässlich einen KeyboardHook zu setzen. Das ganze ist einfach zum heulen. Bei XP klappts immer, bei W-7 klappt's bei ein paar Bildschirmschonern (z.B. beim Seifenblasen), bei anderen aber nicht (z.B. Schleifen, 3D-Text). Und den 3D-Text gibt's ja auch schon bei XP.
Und das seltsame ist, dass eigentlich der Hokk gesetzt wird (ich bekomme ein Handle zurück), nur die CallBackFunktion wird nie angesteuert. Wenn da noch irgend jemand eine Idee hat, woran das liegen könnte, meine letzte Idee war jetzt die mit dem Start des Hooks aus einem Thread.