• Delphi 获取句柄 sendmessage[zt]


    原帖地址:http://micki.blogbus.com/logs/23860059.html

    查找另外一个窗口的句柄: 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;


  • 相关阅读:
    时间复杂度的分析
    插入排序
    maven中jar、war、pom的区别
    Maven属性(properties)标签的使用
    超级POM
    maven 常用命令
    Maven Pom文件标签详解
    maven 查找依赖的办法
    maven snapshot和release版本的区别
    maven pom文件标签含义
  • 原文地址:https://www.cnblogs.com/rainbow57/p/1441836.html
Copyright © 2020-2023  润新知