现在两个exe应用程序A和B
在A程序中点击按纽后向B程序中发送一段字符串并且触发B中的Buttonclink事件
该怎么做呢?
在A程序中已可以取得B中用到的控件了,代码如下:
function EnumChildWndProc(AhWnd:LongInt;
AlParam:lParam):boolean;stdcall;
var
WndClassName: array[0..254] of Char;
WndCaption: array[0..254] of Char;
begin
GetClassName(AhWnd,wndClassName,254);
GetWindowText(aHwnd,WndCaption,254);
with form1.memo1 do
begin
lines.add( string(wndClassName));
lines.add( string(wndCaption));
lines.add('-------');
end;
result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hWnd:LongInt;
begin
memo1.Lines.Clear;
Memo1.Lines.Add(Edit1.Text+' 有如下控件类名称');
hWnd:=FindWindow(nil,pchar(Edit1.Text));
if hWnd<>0 then
begin
EnumChildWindows(hWnd,@EnumChildWndProc,0);
end
else MessageBox(self.handle,'没找到该窗口句柄','提示',0);end;接下来该怎么向B程序发送一段字符串并触发Buttonclick事件呢?
请各位指教!
在A程序中点击按纽后向B程序中发送一段字符串并且触发B中的Buttonclink事件
该怎么做呢?
在A程序中已可以取得B中用到的控件了,代码如下:
function EnumChildWndProc(AhWnd:LongInt;
AlParam:lParam):boolean;stdcall;
var
WndClassName: array[0..254] of Char;
WndCaption: array[0..254] of Char;
begin
GetClassName(AhWnd,wndClassName,254);
GetWindowText(aHwnd,WndCaption,254);
with form1.memo1 do
begin
lines.add( string(wndClassName));
lines.add( string(wndCaption));
lines.add('-------');
end;
result:=true;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
hWnd:LongInt;
begin
memo1.Lines.Clear;
Memo1.Lines.Add(Edit1.Text+' 有如下控件类名称');
hWnd:=FindWindow(nil,pchar(Edit1.Text));
if hWnd<>0 then
begin
EnumChildWindows(hWnd,@EnumChildWndProc,0);
end
else MessageBox(self.handle,'没找到该窗口句柄','提示',0);end;接下来该怎么向B程序发送一段字符串并触发Buttonclick事件呢?
请各位指教!
解决方案 »
- DELPHI7开发的三层服务器程序在WIN7下运行报错。访问OLE注册表的错误。
- 急! ! !急! ! !急! ! !急! ! !:请教关于dbgrid和webbrowser的焦点问题
- printdialog问题
- 大家看看这个程序如何实现,高分!!!!分不够再加
- 我现在要做个小项目,有些问题,请教一下
- 请大家注意:yywxxx同志的行为,以下列出其发言搜索记录
- 怎样在进入ComboBox组件时,自动展开列表?
- delphi XMPP 客户端 求思路
- 用友华表CELL组件的用法,谁知道?
- 如何修改系统单元文件,如何编译,修改一些文件,好象不太行,看不到反映,为什么,如何解决
- 请教,是否可以访问一个http地址,然后读取该http的内容?
- 谁有DevExpress QuantumGrid4.5教程,作者tt8
发送单击消息给 Button :SendMessage(按钮句柄, WM_LBUTTONDOWN, 0, 0);
Sleep(10);
SendMessage(按钮句柄, WM_LBUTTONUP, 0, 0);