csdn代码

如果只用了DELPHI自带的一般控件，那么不需要其他动态连接库，不选中project菜单的option下面builder with runtime packages，系统会将所有需要的BPL文件包含到编译后的EXE里面去

//检查文件是否打开
if FileExists(FileName) then
    if (FileOpen(FileName, fmShareExclusive) < 0) then
      ShowMessage('文件已打开');
//建立全局的鼠标钩子
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    Procedure Hook(En: Boolean = true);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hHook: LongWord;
  xy: TPoint;

implementation

{$R *.dfm}

function HookProc(iCode: Integer; wParam: wParam; lParam: lParam): LRESULT; stdcall;
begin
  if(peventmsg(lparam)^.message = WM_LBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_LBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_LBUTTONDBLCLK) Or
    (peventmsg(lparam)^.message = WM_MOUSEMOVE) Or
    (peventmsg(lparam)^.message = WM_RBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_RBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_RBUTTONDBLCLK) Or
    (peventmsg(lparam)^.message = WM_MBUTTONDOWN) Or
    (peventmsg(lparam)^.message = WM_MBUTTONUP) Or
    (peventmsg(lparam)^.message = WM_MBUTTONDBLCLK)
    then
    begin
      GETCURSORPOS(XY);
      form1.Caption := IntToStr(XY.x) + ' ' + IntToStr(XY.y);
    end;
  Result := CallNextHookEx(hHook, iCode, wParam, lParam);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Hook;
end;

procedure TForm1.Hook(En: Boolean);
begin
  if En then
    hHook := SetwindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0)
  else
    UnHookWindowsHookEx(hHook);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Hook(false);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 Hook(false);
end;

end.