delphi 中 postmessage 和sendmessage用法

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了delphi 中 postmessage 和sendmessage用法相关的知识,希望对你有一定的参考价值。

本人刚开始学习delphi
刚看到一段代码PostMessage(Form1.Handle,VN_KEYDOWN,VK_TAB,0)
请问Form1.Handle,VN_KEYDOWN,VK_TAB,0 这些参数代表什么,这个函数的格式,在什么情况下用
并比较一下与SendMessage有什么区别

PostMessage发送完消息后立刻返回继续执行程序.
SendMessage发送完消息后等待消息处理完以后,才能返回继续执行程序.

Form1.Handle是form1窗口的句柄
VN_KEYDOWN 是消息类型为按下某键
VK_TAB 键值Tab

Win32 API消息函数:PostMessage

函数功能:该函数将一个消息放入(寄送)到与指定窗口创建的线程相联系消息队列里,不等待线程处理消息就返回。消息队列里的消息通过调用GetMessage和PeekMessage取得。

函数原型:B00L PostMessage(HWND hWnd,UINT Msg,WPARAM wParam,LPARAM lParam);

参数

hWnd:其窗口程序接收消息的窗口的句柄。可取有特定含义的两个值:

HWND.BROADCAST:消息被寄送到系统的所有顶层窗口,包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口。消息不被寄送到子窗口。

NULL:此函数的操作和调用参数dwThread设置为当前线程的标识符PostThreadMessage函数一样。

Msg:指定被寄送的消息。

wParam:指定附加的消息特定的信息。

IParam:指定附加的消息特定的信息。

返回值:如果函数调用成功,返回非零值:如果函数调用失败,返回值是零。若想获得更多的错误信息,请调用GetLastError函数。

备注:需要以 HWND_BROADCAST方式通信的应用程序应当用函数 RegisterwindwosMessage来获得应用程序间通信的独特的消息。

如果发送一个低于WM_USER范围的消息给异步消息函数(PostMessage.SendNotifyMessage,SendMesssgeCallback),消息参数不能包含指针。否则,操作将会失败。函数将再接收线程处理消息之前返回,发送者将在内存被使用之前释放。

速查:Windows NT: 3.1及以上版本;Windows:95及以上版本;Windows CE:1.0及以上版本;头文件:winuser.h;输入库:user32.lib;Unicode:在Windows NT环境下以Unicode和ANSI方式实现。

本文来自CSDN博客,转载请标明出处:http://blog.csdn.net/EddieLiugd/archive/2004/12/07/207856.aspx
参考技术A PostMessage 是发入消息队列,不等待返回。
SendMessage 是直接发给目标窗体,并等待返回。
参考技术B 参考MSDN

PostMessage和SendMessage有什么区别?(有EnumChildWindowsProc的例子)

PostMessage只是把消息放入队列,不管其他程序是否处理都返回,然后继续执行;
而SendMessage必须等待其他程序处理消息后才返回,继续执行。
PostMessage的返回值表示PostMessage函数执行是否正确;
而SendMessage的返回值表示其他程序处理消息后的返回值。

 


 字号: 大大  中中  小小 教你:Delphi获取句柄sendmessage 
查找另外一个窗口的句柄: handle := FindWindow(nil,PChar(\'窗口的标题\'));//查到窗体句柄
查找子窗体:childHandle := FindWindowEx(handle,0,\'子窗体类\',\'子窗体标题\');
另外有个枚举子窗体的API,EnumChildWindows(主创体句柄,@回调函数,用户参数);
用这个函数需要自己写一个回调的函数,比如:
function EnumChildProc(ahWND:HWND; param:LPARAM):boolean; stdcall;
sendmessage(handle,message,wl,rl)

unit     Unit1;

interface

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

type
TForm1     =     class(TForm)
procedure FormCreate(Sender: TObject);

private
{     Private     declarations     }
public
{     Public     declarations     }
end;
var     Form1:     TForm1;
implementation
{$R     *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
var a,b:PAnsiChar;
h:HWND;
begin
h:= FindWindow(nil,\'abc.txt - 记事本\');
h:= FindWindowEx(h,0,\'edit\',nil);
SendMessage(h,WM_SETTEXT,255,Integer(PChar(\'我来测度了\')));
ShowMessage( IntToStr(h));
end;

SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0)); 设置TV背景颜色
SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0);  鼠标左键按下
SendMessage(Button.Handle,WM_LBUTTONUP,0,0);   鼠标左键抬起
SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar(\'abc\'))); 传递文本
SendMessage(Edit.Handle,WM_Char,Wparam(\'Q\'),2);  传递字符
SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1);  改变Button风格
SendMessage(ComboBox.Handle,CB_SETDROPPEDWIDTH,300,0);  改变CBDownWidth
WM_CUT、WM_COPY和WM_PASTE  剪切,复制,粘帖
实现任意组合键
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord(\'V\'), MapVirtualKey(ord(\'V\'), 0), 0, 0);
keybd_event(ord(\'V\'), MapVirtualKey(ord(\'V\'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);

SendMessageA
说明:      调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回SendMessage所包含4个参数:
1.      hwnd      32位的窗口句柄窗口可以是任何类型的屏幕对象,因为Win32能够维护大多数可视对象的句柄
2.      wMsg      用于区别其他消息的常量值,这些常量可以是Windows单元中预定义的常量,也可以是自定义的常量
3.      wParam      通常是一个与消息有关的常量值,也可能是窗口或控件的句柄
4.      lParam      通常是一个指向内存中数据的指针。由于WParm、lParam和Pointer都是32位的,因此,它们之间可以相互转换
wMsg函数
★WM_CREATE      创建一个窗口
★WM_DESTROY      当一个窗口被破坏时发送
★WM_MOVE      移动一个窗口
★WM_SIZE      改变一个窗口的大小
★WM_ACTIVATE      一个窗口被激活或失去激活状态
★WM_SETFOCUS      一个窗口获得焦点
★WM_KILLFOCUS      一个窗口失去焦点
★WM_ENABLE      一个窗口改变成Enable状态
★WM_SETREDRAW      设置窗口是否能重画
★WM_SETTEXT      应用程序发送此消息来设置一个窗口的文本
★WM_GETTEXT      应用程序发送此消息来复制对应窗口的文本到缓冲区
★WM_GETTEXTLENGTH      得到与一个窗口有关的文本的长度(不包含空字符)
★WM_PAINT      要求一个窗口重画自己
★WM_CLOSE      当一个窗口或应用程序要关闭时发送一个信号
★WM_QUERYENDSESSION      用户选择结束对话框或程序自己调用ExitWindows函数
★WM_QUIT      用来结束程序运行
★WM_QUERYOPEN      用户窗口恢复以前的大小位置时,把此消息发送给某个图标
★WM_ERASEBKGND      当窗口背景必须被擦除时(例在窗口改变大小时)
★WM_SYSCOLORCHANGE      当系统颜色改变时,发送此消息给所有顶级窗口
★WM_QUERYENDSESSION      消息后,此消息发送给应用程序,通知它对话是否结束
★WM_SHOWWINDOW      当隐藏或显示窗口是发送此消息给这个窗口
★WM_ACTIVATEAPP      发此消息给应用程序哪个窗口是激活的,哪个是非激活的
★WM_FONTCHANGE      当系统的字体资源库变化时发送此消息给所有顶级窗口


★WM_TIMECHANGE      当系统的时间变化时发送此消息给所有顶级窗口
★WM_CANCELMODE      发送此消息来取消某种正在进行的摸态(操作)
★WM_SETCURSOR      如果鼠标引起光标在某个窗口中移动
★WM_ENDSESSION      当系统进程发出且鼠标输入没有被捕获时,就发消息给某个窗口
★WM_MOUSEACTIVATE      当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口
★WM_CHILDACTIVATE      送此消息给MDI子窗口当用户点击此窗口的标题栏,或当窗口被激活,移动,改变大小
★WM_QUEUESYNC    此消息由基于计算机的训练程序发送,通过      WH_JOURNALPALYBACK的hook程序分离出用户输入消息
★WM_GETMINMAXINFO      此消息发送给窗口当它将要改变大小或位置
★WM_PAINTICON      发送给最小化窗口当它图标将要被重画
★WM_ICONERASEBKGND      此消息发送给某个最小化窗口,仅当它在画图标前它的背景必须被重画
★WM_NEXTDLGCT★发送此消息给一个对话框程序去更改焦点位置
★WM_SPOOLERSTATUS      每当打印管理列队增加或减少一条作业时发出此消息
★WM_DRAWITEM      当button,combobox,listbox,menu的可视外观改变时发送
★WM_MEASUREITEM      当button,      combobox,      listbox,      listview      control,      or      menuitem      被创建时
★WM_VKEYTOITEM      此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息
★WM_CHARTOITEM      此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息
★WM_SETFONT      当绘制文本时程序发送此消息得到控件要用的颜色
★WM_GETFONT      应用程序发送此消息得到当前控件绘制文本的字体
★WM_SETHOTKEY      应用程序发送此消息让一个窗口与一个热键相关连
★WM_GETHOTKEY      应用程序发送此消息来判断热键与某个窗口是否有关联
★WM_QUERYDRAGICON      此消息发送给最小化窗口,当此窗口将要被拖放而它的类中没有定义图标,应用程序能返回一个图标或光标的句柄,当用户拖放图标时系统显示这个图标或光标
★WM_COMPAREITEM      发送此消息来判定combobox或listbox新增加的项的相对位置
★WM_COMPACTING      显示内存已经很少了
★WM_WINDOWPOSCHANGING      发送此消息给那个窗口的大小和位置将要被改变时,来调用setwindowpos函数或其它窗口管理函数
★WM_WINDOWPOSCHANGED      发送此消息给那个窗口的大小和位置已经被改变时,来调用setwindowpos函数或其它窗口管理函数
★WM_POWER      当系统将要进入暂停状态时发送此消息
★WM_COPYDATA      当一个应用程序传递数据给另一个应用程序时发送此消息
★WM_CANCELJOURNA      当某个用户取消程序日志激活状态,提交此消息给程序
★WM_NOTIFY      当某个控件的某个事件已经发生或这个控件需要得到一些信息时,发送此消息给它的父窗口
★WM_INPUTLANGCHANGEREQUEST      当用户选择某种输入语言,或输入语言的热键改变
★WM_INPUTLANGCHANGE      当平台现场已经被改变后发送此消息给受影响的最顶级窗口
★WM_TCARD      当程序已经初始化windows帮助例程时发送此消息给应用程序
★WM_HELP      此消息显示用户按下了F1,如果某个菜单是激活的,就发送此消息个此窗口关联的菜单,否则就发送给有焦点的窗口,如果当前都没有焦点,就把此消息发送给当前激活的窗口
★WM_USERCHANGED      当用户已经登入或退出后发送此消息给所有的窗口,当用户登入或退出时系统更新用户的具体设置信息,在用户更新设置时系统马上发送此消息
★WM_NOTIFYFORMAT      公用控件,自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构


function    EnumChildWindowsProc(hwnd,    lparam:    Integer):    Boolean;
var
buffer:    array[0..255]    of    char;
begin
Result    :=    True;
GetClassName(hwnd,buffer,256);
if    StrPas(Buffer)=\'Edit\'    then
begin
SendMessage(hwnd,WM_GETTEXT,256,lparam);
Result:=False;
end;
end;

procedure    TForm1.Button1Click(Sender:    TObject);
var
hwnd:    Integer;
buffer:    array[0..255]    of    char;
Begin
hwnd    :=    FindWindow(\'CabinetWClass\',nil);
if    hwnd<>    0    then

begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Longint(@buffer[0]));
Caption    :=    StrPas(buffer);
end;
end;

 

http://www.cnblogs.com/snow001x/archive/2008/11/15/1334160.html

以上是关于delphi 中 postmessage 和sendmessage用法的主要内容,如果未能解决你的问题,请参考以下文章

delphi自动调整combobox下拉列表宽度(PostMessage CB_SETDROPPEDWIDTH)

delphi中使用 SendMessage(HWND_BROADCAST,WM_WININICHANGE,0,0);软件卡死,怎么解决?

delphi代码实现窗口最小化,最大化,关闭消息发送

深入delphi编程理解之消息发送消息函数的一般应用实例

PostMessage和SendMessage有什么区别?(有EnumChildWindowsProc的例子)

易语言PostMessage