大家早下好，请假个有关问题，有关问题比较难，请~

2012-12-29

大家早上好，请假个问题，在线等！问题比较难，请高手进~~如何给其他程序的工具栏上的按钮发送点击消息。。。用代

大家早上好，请假个问题，在线等！问题比较难，请高手进~~
如何给其他程序的工具栏上的按钮发送点击消息。。。

用代码示之~~~谢谢！
[解决办法]
转自DelphiBBS：

第一步：找到Button所在窗口句柄：
var HWin: THandle;
HWin := FindWindow(nil, '程序Caption');
第二步：找到Button句柄：
EnumChildWindows(HBtn, @EnumerateChildWindows, 0);
第三步：发送消息：
SendMessage(HBtn, WM, 0, 0);

程序参考：

//回调函数，列出所有子窗口句柄
var
  HBtn: THandle;

function EnumerateChildWindows(hWnd: HWND; lParam: LPARAM): BOOL;
var
  WindowCaption: Array[0..254] of Char;
begin
  GetWindowText(Hwnd, WindowCaption, 255);
  if WindowCaption = '按钮Caption' then 
    HBtn:= Hwnd;
  Result := true;
end;

procedure TFindForm.Button2Click(Sender: TObject);
var
  H: HWnd;
  I: Integer;
begin
  H := FindWindow(nil, '程序Caption');
  if H = 0 then
    Exit;
  EnumChildWindows(H, @EnumerateChildWindows, 0);
  SendMessage(HBtn, BM_CLICK, 0, 0);
end;

[解决办法]
什么意思，你的意思是击工具栏中的按扭，执行代码功能两次
var
  i:integer;
begin
  i:=1;
if i<=2 then
   begin
    ShowMessage('信息提示');
    i:=i+1;
   end;
end;
[解决办法]
SendMessage(HBtn, BM_CLICK, 0, 0);//这个就是发送点击消息。关键在于能否获取到BUTTON的句柄
POSTMESSAGE都可以的。
[解决办法]
FindWindow
EnumChildWindows
SendMessage

3＃很正確,就是用這3個函數，另外要寫一個回調函數
[解决办法]
KK说的是勾子的，但是有些窗体用勾是不好用的呀

[解决办法]
你必须先勾住窗体后，才能获取内的控件的

热点排行

.NET

大家早下好，请假个有关问题，有关问题比较难，请~