首页 > 代码库 > Delphi自定义窗口过程WinProc
Delphi自定义窗口过程WinProc
unit ScWndProc;interfaceuses Forms, Messages;const DDGM_FOOMSG = WM_USER; //自定义消息implementationuses windows,sysutils,Dialogs;var WProc : Pointer;function NewWndProc(handle: hWnd; msg,wParam,lParam: LongInt): LongInt ;stdcall;begin if msg = DDGM_FOOMSG then ShowMessage(Format(‘收到自定义消息 $%x‘,[msg])); result := CallWindowProc(WProc,handle, msg,wParam,lParam);end;initialization WProc := Pointer(SetWindowLong(application.Handle,GWL_WNDPROC ,integer(@NewWndProc))); end.
//发送消息
SendMessage(application.Handle,DDGM_FOOMSG,0,0);
Delphi自定义窗口过程WinProc
声明：以上内容来自用户投稿及互联网公开渠道收集整理发布，本网站不拥有所有权，未作人工编辑处理，也不承担相关法律责任，若内容有误或涉及侵权可进行投诉： 投诉/举报 工作人员会在5个工作日内联系你，一经查实，本站将立刻删除涉嫌侵权内容。