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;

 

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章