java中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位的，因此，它们之间可以相互转换