通过另外一个应用程序给多个文本框赋值, 模拟单击事件

时间：2017-07-29 21:26:46 阅读：216 评论：0 收藏：0 [点我收藏+]

被调用的应用程序:

[delphi] view plain copy

unit Unit2;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
var
h_form, h_text1, h_text2, h_button: HWND;
str1, str2: string;
begin
// 获取窗口的句柄.
h_form := findWindow(‘TForm1‘, ‘Form1‘);
// 获取文本框的句柄. (注意多个)
h_text1 := FindWindowEx(h_form, 0, ‘TEdit‘, nil);
h_text2 := FindWindowEx(h_form, h_text1, ‘TEdit‘, nil);
str1 := ‘本文1!‘;
str2 := ‘本文2!‘;
SendMessage(h_text1, WM_SETTEXT, 0, LPARAM(str1));
SendMessage(h_text2, WM_SETTEXT, 0, LPARAM(str2));
// 获取按钮的句柄. (注意多个)
h_button := FindWindowEx(h_form, 0, ‘TButton‘, nil);
SendMessage(h_button, WM_LBUTTONDOWN, 0, 0);
SendMessage(h_button, WM_LBUTTONUP, 0, 0);
label1.Caption := inttohex(h_form, 2);
label2.Caption := inttohex(h_text1, 2);
label3.Caption := inttohex(h_text2, 2);
label4.Caption := inttohex(h_button, 2);
end;
end.

[cpp] view plain copy

调用的程序:

[delphi] view plain copy

unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Label3: TLabel;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// showmessage(‘登陆成功!‘);
label3.Caption := ‘登陆成功!‘;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
label3.Caption := ‘‘;
end;
end.

[cpp] view plain copy

http://blog.csdn.net/huang_xw/article/details/8644506

原文地址：http://www.cnblogs.com/findumars/p/7257477.html

踩

(0)

评论一句话评论（0）

分享档案

更多>

周排行