globaler HOOK funzt. nur lokal

[bitsetter]

Hi,

arbeite doch lieber mit FileMapping. Du brauchst ja nur mal zum Testen eine Showmessage einbauen, dann siehst du was meine Vorredner meinten.

Delphi-Quellcode:

uses

  windows,
  dialogs,
  sysutils,
  messages;

//{$R *.res}
var
  Keyboard_HookHandle: LongWord = 0;
var Windowhandle :cardinal = 0;
function KbdHookProc(nCode: Integer; wParam: LongWord; lParam: LongWord): LongWord; stdcall;
var
  PID,
    sizewritten,
    hFile: LongWord;
begin
 case nCode < 0 of
    True: exit; // If the code is smaller than 0 nothing _has_ to be done
    False:
      begin
        ShowMessage(inttostr(WIndowHandle));
        //postmessage(WIndowHandle ,WM_USER +23,wparam,lparam);
     end;
  end;
    Result := CallNextHookEx(Keyboard_HookHandle, nCode, wParam, lParam);

end;...