Mausklick und Mausstrecke

[mOzZzI]

Also, ich habe jetzt so einen Mouse Hook...

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, AppEvnts, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    ListBox1: TListBox;
    procedure ApplicationEvents1Message(var Msg: tagMSG;
      var Handled: Boolean);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FHookStarted : Boolean;
  public
    { Public declarations }
  end; 

var 
  Form1: TForm1;
  Mit:Boolean;

implementation

{$R *.dfm} 

var 
  JHook: THandle;


function JournalProc(Code, wParam: Integer; var EventStrut: TEventMsg): Integer; stdcall; 
var
  Char1: PChar; 
  s: string;
begin 
  {this is the JournalRecordProc}
  Result := CallNextHookEx(JHook, Code, wParam, Longint(@EventStrut)); 
  {the CallNextHookEX is not really needed for journal hook since it it not
  really in a hook chain, but it's standard for a Hook} 
  if Code < 0 then Exit;

  {you should cancel operation if you get HC_SYSMODALON}
  if Code = HC_SYSMODALON then Exit; 
  if Code = HC_ACTION then
  begin 
    {
    The lParam parameter contains a pointer to a TEventMsg 
    structure containing information on
    the message removed from the system message queue. 
    }
    s := ''; 

    if EventStrut.message = WM_LBUTTONUP then 
      s := 'Left Mouse UP at X pos ' +
        IntToStr(EventStrut.paramL) + ' and Y pos ' + IntToStr(EventStrut.paramH); 

    if EventStrut.message = WM_LBUTTONDOWN then 
      s := 'Left Mouse Down at X pos ' +
        IntToStr(EventStrut.paramL) + ' and Y pos ' + IntToStr(EventStrut.paramH); 

    if EventStrut.message = WM_RBUTTONDOWN then 
      s := 'Right Mouse Down at X pos ' +
        IntToStr(EventStrut.paramL) + ' and Y pos ' + IntToStr(EventStrut.paramH); 

    if (EventStrut.message = WM_RBUTTONUP) then 
      s := 'Right Mouse Up at X pos ' +
        IntToStr(EventStrut.paramL) + ' and Y pos ' + IntToStr(EventStrut.paramH); 

    if (EventStrut.message = WM_MOUSEWHEEL) then 
      s := 'Mouse Wheel at X pos ' +
        IntToStr(EventStrut.paramL) + ' and Y pos ' + IntToStr(EventStrut.paramH); 


     if EventStrut.paramL> Screen.Width-2 then SetCursorPos(2,EventStrut.paramH);
     if EventStrut.paramL< 2 then SetCursorPos(Screen.Width-2,EventStrut.paramH);
     if EventStrut.paramH> Screen.Height -2 then SetCursorPos(EventStrut.paramL,2);
     if EventStrut.paramH< 2 then SetCursorPos(EventStrut.paramL,Screen.Height -2);

    if s <> '' then
       Form1.ListBox1.ItemIndex :=  Form1.ListBox1.Items.Add(s);
  end;
end; 

procedure TForm1.Button1Click(Sender: TObject);
begin
  if FHookStarted then
  begin
    ShowMessage('Mouse is already being Journaled, can not restart'); 
    Exit;
  end; 
  JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, hInstance, 0);
  {SetWindowsHookEx starts the Hook}
  if JHook > 0 then
  begin 
    FHookStarted := True;
  end 
  else
    ShowMessage('No Journal Hook availible');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin 
  FHookStarted := False;
  UnhookWindowsHookEx(JHook); 
  JHook := 0;
end;

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; 
  var Handled: Boolean);
begin 
  {the journal hook is automaticly camceled if the Task manager
  (Ctrl-Alt-Del) or the Ctrl-Esc keys are pressed, you restart it
  when the WM_CANCELJOURNAL is sent to the parent window, Application}
  Handled := False; 
  if (Msg.message = WM_CANCELJOURNAL) and FHookStarted then
    JHook := SetWindowsHookEx(WH_JOURNALRECORD, @JournalProc, 0, 0);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin 
  {make sure you unhook it if the app closes}
  if FHookStarted then
    UnhookWindowsHookEx(JHook);
end;



end.

So jetzt möchte ich gerne das wenn eine MouseUp und ein MouseDown Message bekomme das in einen Label
dann gezählt wird wie oft dieser Vorgang passiert...
z.B. Maus macht "Klick" Label1.Caption:= 'Mausklick(s)1' und wenn man wieder eine Message bekommt soll dann die Caption vom Label dann logischerweiße 'Mausklick(s)2' haben...