Tastatur Hook

[1234567890987654321]

Hallo,
ich würde gerne alles was man auf der Tastatur macht in ein Memo speichern.
Bei dem Code der auf dieser Seite ist:
http://www.delphipraxis.net/30504-ma...rrecorder.html, kommt wider der Fehler mit dem @
hHook := SetWindowsHookEx(WH_KEYBOARD, @KeyboardProc, hInstance, 0);

gibt es sonst noch eine Möglichkeit?

[idefix2]

Ich fürchte, wenn Du nicht etwas ausführlicher erläuterst, was Du machst und wo Dein Problem ist, wird Dir hier (und auch sonstwo) niemand helfen können.

[1234567890987654321]

Also ich will das wenn ich in Open Office einen Text eingebe, z.B.
"Hallo wie gehts? BlaBlaBla"
das in meinem Memo
"Hallo wie gehts? BlaBlaBla" steht.

[mkinzler]

Dann verwende Automatisierung

[1234567890987654321]

Was ist das?
Hättejemnd vllt. ein kleines Code-Beispiel

[himitsu]

OpenOffice hat bestimmt auch ein PlugIn-System, wo man etwas reinbauen/installieren kann, welches einem denn gewisse Ereignisse zukommen läßt.

- fast alles von MS Office hat auch sowas, womit man z.B. Outlook erweitern und/oder steuern kann
- und auch die Delphi-IDE läßt sich über die OpenToolsAPI erweitern/steuern.

offizielle Schnittstellen sind immer besser, als irgendwelche "Hacks".

[Luckie]

Idefix meinte wohl eher, welcher Code und welches Problem mit dem @-Zeichen.

[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):DWord;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:

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