Problem mit WndProc

[mischer]

Hi Muetze1,

Wie du sicher schon bemerkt hast bin ich noch ein ziemlicher Delphi-Trollel

Also folgendes: Ich will mit einem Programm ein Anderes steuern (Mouse bewegen, Clicks ausführen, ...). Das funktioniert soweit wunderbar per Buttons. Jetzt wollte ich noch, daß sich das Programm per Tasten steuern läßt und hab dazu einen Tastaturhook gebaut und eingebunden. (Was soweit auch funktioniert, ich hab messageboxen in den Hook eingebaut und die kommen an den richtigen stellen *freu*)

Code:

function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
//es ist ebenfalls moeglich die Bearbeitung an eine Bedingung zu knuepfen
//it's possible to call CallNextHookEx conditional only.
  Result := CallNextHookEx(HookHandle, nCode, wParam, lParam);
  case nCode < 0 of
    TRUE: exit; //wenn code kleiner 0 wird nix gemacht
                //if code smaller 0 nothing has to be done
    FALSE:
      begin
        // Taste F1 gedrückt
        if (wparam = 112) and (lparam < 0) then begin
          // nix
        end;
        // Taste F2 gedrückt
        if (wparam = 113) and (lparam < 0) then begin
          sendmessage(HWND_BROADCAST, ncode, wparam, lparam);
        end;
        // Taste F3 gedrückt
        if (wparam = 114) and (lparam < 0) then begin
          sendmessage(HWND_BROADCAST, ncode, wparam, lparam);
        end;
        // Taste F4 gedrückt
        if (wparam = 115) and (lparam < 0) then begin
          showmessage('F4 gedrückt');
          sendmessage(HWND_BROADCAST, ncode, wparam, lparam);
        end;
//Hier kann jetzt alles bearbeitet werden
//Here one can work with the parameters
      end; 
  end;
end;

Und wie du siehst schicke ich anschließend die Message an Broadcast wieder raus.

Nun hätte ich gern, daß diese Messages in meinem Programm das KeyUp-/KeyDown-Ereignis auslösen. Funktioniert auch, aber eben nur wenn das Fenster aktiv ist - isses aber im Normalfall nicht.

Jetzt habe ich versucht mit Code wie im 1. post nachzulesen diese Messages aufzufangen, aber genau da habe ich offensichtlich meinen Bug drin. Ich hoffe das war ausführlich genug und bedanke mich schon jetzt für jedwede Mühe.

MfG mischer