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

被调用的应用程序:

[delphi] view plain copy

print?

1. unit Unit2;
2. interface
3. uses
4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
5. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
6. type
7. TForm2 = class(TForm)
8. Button1: TButton;
9. Label1: TLabel;
10. Label2: TLabel;
11. Label3: TLabel;
12. Label4: TLabel;
13. procedure Button1Click(Sender: TObject);
14. private
15. { Private declarations }
16. public
17. { Public declarations }
18. end;
19. var
20. Form2: TForm2;
21. implementation
22. {$R *.dfm}
23. procedure TForm2.Button1Click(Sender: TObject);
24. var
25. h_form, h_text1, h_text2, h_button: HWND;
26. str1, str2: string;
27. begin
28. // 获取窗口的句柄.
29. h_form := findWindow(‘TForm1‘, ‘Form1‘);
30. // 获取文本框的句柄. (注意多个)
31. h_text1 := FindWindowEx(h_form, 0, ‘TEdit‘, nil);
32. h_text2 := FindWindowEx(h_form, h_text1, ‘TEdit‘, nil);
33. str1 := ‘本文1!‘;
34. str2 := ‘本文2!‘;
35. SendMessage(h_text1, WM_SETTEXT, 0, LPARAM(str1));
36. SendMessage(h_text2, WM_SETTEXT, 0, LPARAM(str2));
37. // 获取按钮的句柄. (注意多个)
38. h_button := FindWindowEx(h_form, 0, ‘TButton‘, nil);
39. SendMessage(h_button, WM_LBUTTONDOWN, 0, 0);
40. SendMessage(h_button, WM_LBUTTONUP, 0, 0);
41. label1.Caption := inttohex(h_form, 2);
42. label2.Caption := inttohex(h_text1, 2);
43. label3.Caption := inttohex(h_text2, 2);
44. label4.Caption := inttohex(h_button, 2);
45. end;
46. end.

[cpp] view plain copy

print?

1. object Form2: TForm2
2. Left = 0
3. Top = 0
4. Caption = ‘Form2‘
5. ClientHeight = 211
6. ClientWidth = 408
7. Color = clBtnFace
8. Font.Charset = DEFAULT_CHARSET
9. Font.Color = clWindowText
10. Font.Height = -11
11. Font.Name = ‘Tahoma‘
12. Font.Style = []
13. OldCreateOrder = False
14. PixelsPerInch = 96
15. TextHeight = 13
16. object Label1: TLabel
17. Left = 144
18. Top = 8
19. Width = 57
20. Height = 17
21. Caption = ‘Label1‘
22. end
23. object Label2: TLabel
24. Left = 74
25. Top = 48
26. Width = 57
27. Height = 25
28. Caption = ‘Label2‘
29. end
30. object Label3: TLabel
31. Left = 208
32. Top = 48
33. Width = 79
34. Height = 17
35. Caption = ‘Label3‘
36. end
37. object Label4: TLabel
38. Left = 144
39. Top = 96
40. Width = 79
41. Height = 25
42. Caption = ‘Label4‘
43. end
44. object Button1: TButton
45. Left = 144
46. Top = 160
47. Width = 75
48. Height = 25
49. Caption = ‘Button1‘
50. TabOrder = 0
51. OnClick = Button1Click
52. end
53. end

调用的程序:

[delphi] view plain copy

print?

1. unit Unit1;
2. interface
3. uses
4. Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
5. Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
6. type
7. TForm1 = class(TForm)
8. Edit1: TEdit;
9. Edit2: TEdit;
10. Label1: TLabel;
11. Label2: TLabel;
12. Button1: TButton;
13. Label3: TLabel;
14. procedure Button1Click(Sender: TObject);
15. procedure FormCreate(Sender: TObject);
16. private
17. { Private declarations }
18. public
19. { Public declarations }
20. end;
21. var
22. Form1: TForm1;
23. implementation
24. {$R *.dfm}
25. procedure TForm1.Button1Click(Sender: TObject);
26. begin
27. // showmessage(‘登陆成功!‘);
28. label3.Caption := ‘登陆成功!‘;
29. end;
30. procedure TForm1.FormCreate(Sender: TObject);
31. begin
32. label3.Caption := ‘‘;
33. end;
34. end.

[cpp] view plain copy

print?

1. object Form1: TForm1
2. Left = 0
3. Top = 0
4. Caption = ‘Form1‘
5. ClientHeight = 360
6. ClientWidth = 486
7. Color = clBtnFace
8. Font.Charset = DEFAULT_CHARSET
9. Font.Color = clWindowText
10. Font.Height = -11
11. Font.Name = ‘Tahoma‘
12. Font.Style = []
13. OldCreateOrder = False
14. OnCreate = FormCreate
15. PixelsPerInch = 96
16. TextHeight = 13
17. object Label1: TLabel
18. Left = 168
19. Top = 155
20. Width = 40
21. Height = 13
22. Caption = #29992#25143#21517‘:‘
23. end
24. object Label2: TLabel
25. Left = 168
26. Top = 203
27. Width = 28
28. Height = 13
29. Caption = #23494#30721‘:‘
30. end
31. object Label3: TLabel
32. Left = 208
33. Top = 288
34. Width = 193
35. Height = 41
36. Caption = ‘Label3‘
37. end
38. object Edit1: TEdit
39. Left = 224
40. Top = 152
41. Width = 121
42. Height = 21
43. ImeName = #20013#25991‘(‘#31616#20307‘) - ‘#26497#28857#20116#31508
44. TabOrder = 0
45. end
46. object Edit2: TEdit
47. Left = 224
48. Top = 200
49. Width = 121
50. Height = 21
51. ImeName = #20013#25991‘(‘#31616#20307‘) - ‘#26497#28857#20116#31508
52. TabOrder = 1
53. end
54. object Button1: TButton
55. Left = 270
56. Top = 248
57. Width = 75
58. Height = 25
59. Caption = #30331#38470
60. TabOrder = 2
61. OnClick = Button1Click
62. end
63. end

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