csdn代码
来源:互联网 发布:中国2016年8月经济数据 编辑:程序博客网 时间:2024/05/09 21:49
如果只用了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.
- csdn代码
- csdn代码收集
- 测试CSDN代码编辑器
- CSDN显示广告代码
- 仿CSDN分页代码
- 尝试CSDN发代码
- CSDN插入代码
- csdn代码格式化
- csdn 代码泄漏
- csdn编辑代码收集
- csdn代码片教程
- csdn 代码粘贴技巧
- 测试csdn代码显示
- CSDN代码粘贴
- CSDN代码粘贴技巧
- CSDN代码块高亮
- 精华ASP代码(CSDN)
- 看看CSDN的代码段
- 安装Windows Server 2003 SP1的10大理由
- 面包与爱情
- tar 分卷压缩和合并,Top 命令的load averages,cut命令其实很有用,我写的一个好用的find
- 【原创】鼓山重游
- 【原创】江城子.读书
- csdn代码
- 生活
- 大型网站的Google排名策略
- symantec mail proxy error window
- 一日本人自称外套不见 拳打北京凯莱酒店三名员工
- Postfix集成环境(Postfix + MySQL + Cyrus-sasl2 + Courier-imap + iGENUS + Postfixadmin)
- 故事很短,却短而有力!
- 男人25岁以前的忠告
- 中国人几千年来的国民性格是如何演变的