Tastatur Hook

[1234567890987654321]

Ne, es soll auch in Firefox+Notepad+IE usw. funktionieren.
Und der Fehler ist in der Zeile
hHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, hInstance, 0);
und heisst:
project1.lpr(54,55) Error: Incompatible type for arg no. 2: Got "<address of function(LongInt, LongWord, LongWord)Word;StdCall>", expected "<procedure variable type of function(LongInt, LongInt, LongInt):LongInt;StdCall>"

Wenn ich das @ weglasse, kommt in der gleichen Zeile der Fehler:
project1.lpr(54,42) Error: Wrong number of parameters specified for call to "KeyboardProc"

könnte villeicht jemand von euch die Dll kompilieren und sie hochlade(das währe sehr sehr (for i:=1 to 1000000 do s:=s+'sehr) nett)
oder hatt vllt. jemand eine andere Möglichkeit?

[1234567890987654321]

Hab noch das gefunden, aber da ist wieder das @...
http://delphi.about.com/od/windowssh...board_hook.htm
Die version mit der Unit währ mir liber

[1234567890987654321]

hab eine demo gefunden:
http://www.swissdelphicenter.ch/de/showcode.php?id=1722

[1234567890987654321]

Wieder dass Problem mit den @

[Luckie]

Dir ist bekannt, dass du Beiträge auch editieren kannst oder?

[DeddyH]

Funktioniert es so?

Delphi-Quellcode:

type
  TKeyboardProc = function(nCode, wParam, lParam: LongInt): LongInt;
var Proc: TKeyboardProc;
begin
  ...
  Proc := KeyboardProc;
  hHook := SetWindowsHookEx(WH_KEYBOARD, Proc, hInstance, 0);

Die Parameter der Funktion müssten dann alle vom Typ LongInt sein, aber da Lazarus das ja anscheinend unbedingt so haben will...

[erich.wanker]

Ein "Lazarus"-Quelltext für Tastaturhook als DLL

HTH Erich

Delphi-Quellcode:

{$mode objfpc}{$H+}

{$IFDEF WINDOWS}{$R Programmname32.rc}{$ENDIF}

uses
 Classes,
 Windows,
 ActiveX,
 ShlObj,
 Messages,
 SysUtils;



var
  HookHandle: Cardinal = 0;
  AppHandle: HWND;






function KeyboardHookProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  Result := CallNextHookEx(HookHandle,
                           nCode,
                           wParam,
                           lParam);
  if nCode = HC_NOREMOVE then  Exit;


    if ((lParam and (1 shl 30)) <> 0) then
    begin
        if wParam = VK_F4 then
        begin
            PostMessage(FindWindow(nil,'Fenstername von deinem Programm'), WM_USER + 8760, 300, 0);
        end
        else
        begin
            PostMessage(FindWindow(nil,'Fenstername von deinem Programm'), WM_USER + 8760,wParam,lParam);
        end;
    end;

end;

function StartHook32(ApplicationHandle: HWND): Boolean; stdcall;
begin
  Result := False;
  if HookHandle = 0 then
    begin
    HookHandle := SetWindowsHookEx(WH_KEYBOARD,
                                   @KeyboardHookProc,
                                   HInstance,
                                   0);
    AppHandle := ApplicationHandle;
    Result := TRUE;
    end;


end;

function StopHook32: Boolean; stdcall;
begin
  Result := UnhookWindowsHookEx(HookHandle);
  HookHandle := 0;
end;

exports
  StartHook32,
  StopHook32;
end.

[1234567890987654321]

Zitat von DeddyH:

Funktioniert es so?

Delphi-Quellcode:

type
  TKeyboardProc = function(nCode, wParam, lParam: LongInt): LongInt;
var Proc: TKeyboardProc;
begin
  ...
  Proc := KeyboardProc;
  hHook := SetWindowsHookEx(WH_KEYBOARD, Proc, hInstance, 0);

Die Parameter der Funktion müssten dann alle vom Typ LongInt sein, aber da Lazarus das ja anscheinend unbedingt so haben will...

Nein leider nicht, und die Dll hab ich ja schon, aber trotzdem danke
und, der Fehler mit den @ taucht nur auf, wenn ich die unit Windows einbinde