1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

library mousehook;

uses
  Windows,
  Messages;

const
  WM_HOOKMAP = WM_USER + $0400;

var
  HookHandle    : HHook;
  FileMapObj    : THandle;
  FileMapView   : ^Integer;

function MouseHookProc(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
  if code = HC_ACTION then
  begin
    FileMapObj := OpenFileMapping(FILE_MAP_READ, False,'MouseHookMapFile');
    if FileMapObj <> 0 then
    begin
      FileMapView := MapViewOfFile(FileMapObj, FILE_MAP_READ, 0, 0, 0);
      PostMessage(FileMapView^, WM_HOOKMAP, wParam, lParam);
      UnmapViewOfFile(FileMapView);
      CloseHandle(FileMapObj);
    end;
  end;
  {Das Auskommentieren sorgt dafür, dass niemand anderes Mausnachrichten bekommen kann (ich weiß, ist vielleicht nicht das sauberste, aber es funktioniert wenigstens)}
  //Result := CallNextHookEx(HookHandle, Code, wParam, lParam);
end;

procedure InstallMouseHook; stdcall;
begin
  HookHandle := SetWindowsHookEx(WH_MOUSE, @MouseHookProc, hInstance , 0);
end;

procedure UninstallMouseHook; stdcall;
begin
  UnhookWindowsHookEx(HookHandle);
end;

exports
InstallMouseHook,
UninstallMouseHook;

begin
end.                    

1:

 align := alclient;                    

1:
2:

  private
    procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;                    

1:
2:
3:
4:

procedure TForm1.WMERASEBKGND(var message: TWMEraseBkgnd);
begin
 ;
end;