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:

Zitat von DeddyH (Beitrag 1036991)

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:

Zitat von 1234567890987654321 (Beitrag 1037107)

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 :zwinker:

[1234567890987654321]

24 std. vorbei(:-)):

PUSH, push, Push:-D:-D:-D:-D:-D

[p80286]

Wie wär es denn mit

Delphi-Quellcode:

longint(@irgendwas)

Gruß
K-H