Question

简单的E转Delphi

功能 ： 拦截鼠标消息
使用到的API ：CallWindowProcA，GetWindowLongASetWindowLongA
求用这三个API写一个简单的拦截鼠标消息的源代码，
要不然也可以根据以下易语言代码 转换成Delphi代码， 其实我会，就是不知道 在Delphi中 到整数(& 子程序) 这段如何表示！
代码图

本人现有219财富值 ，有可以帮到我的，219我全部送上。注意 是把以上易语言代码转换成Delphi代码。

Answer 1

在Delphi中你可以直接在窗体添加成员函数来截取鼠标在窗体的操作；例如
Procedure WMMOUSEMOVE(Var Message:TWMMOUSEMOVE); message WM_MOUSEMOVE;
//鼠标在窗体上移动
Procedure WMLBUTTONDOWN(Var MSG:TWMLBUTTONDOWNN); Message WM_LBUTTONDOWN;
//鼠标按下消息过程
............
也可以直接重载 WndProc过程;
Procedure WndProc(var Message:TMessage);
在过程判断消息属性..不需要用到API替换窗体原消息函数;
如果必须要用API的话的话
在当前单元引用 Windows 单元
添加一个你的窗体函数：
Type
TMyWindowProc = Function (Wnd:HWND; Msg: Uint; wParam:WPARAM; lParam:LPARAM):HResult;stdcall;

............//你定义的其他的东西
//添加一个你的处理过程
Function MyWndProc(Wnd:HWND; Msg: Uint; wParam:WPARAM; lParam:LPARAM):HResult;stdcall;

var
OldWndProc:TMyWindowProc;
......//你自己的其他变量
implementation

Procedure ChangWndWndProc(Wnd:HWND);
begin
OldWndProc:= GetWindowLong(Wnd,GWL_WNDPROC);//读取窗体原来的窗体事件并保存
SetWindowLong(Wnd,GWL_WindProc,Integer(@MyWndProc));//设置新的地址;
//易语言"到整数(&鼠标被按下事件)“就等同于这里的Integer(@MyWndProc),也就是强制将地址转换为整形数.
end; //Delphi 默认对GetWindowLongA 等其他函数的A去掉了，你到Windows看就会明白他们是同一个API

Function MyWndProc(Wnd:HWND; Msg: Uint; wParam:WPARAM; lParam:LPARAM):HResult;
begin
// 在这里处理你的东西
//Do something...

//最后要调用原来的过程
CallWindowProc(@OldWndProc,Wnd,Msg,wParam,lParam);
end;
///Tips:所有回答都是手打的，可能会有错误的地方，作为参考，不能直接复制使用