Tastatur Hook

[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

[Luckie]

Zitat von 1234567890987654321:

wenn ich die unit Windows einbinde

Unter was kann man denn eine DLL, die für Windows geschrieben ist noch einbinden?

[DeddyH]

Das hab ich nie gesagt

[1234567890987654321]

24 std. vorbei():

PUSH, push, Push

[p80286]

Wie wär es denn mit
longint(@irgendwas) Gruß
K-H