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

object Form1: TForm1  Left = 0  Top = 0  Caption = 'Form1'  ClientHeight = 360  ClientWidth = 486  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'Tahoma'  Font.Style = []  OldCreateOrder = False  OnCreate = FormCreate  PixelsPerInch = 96  TextHeight = 13  object Label1: TLabel    Left = 168    Top = 155    Width = 40    Height = 13    Caption = #29992#25143#21517':'  end  object Label2: TLabel    Left = 168    Top = 203    Width = 28    Height = 13    Caption = #23494#30721':'  end  object Label3: TLabel    Left = 208    Top = 288    Width = 193    Height = 41    Caption = 'Label3'  end  object Edit1: TEdit    Left = 224    Top = 152    Width = 121    Height = 21    ImeName = #20013#25991'('#31616#20307') - '#26497#28857#20116#31508    TabOrder = 0  end  object Edit2: TEdit    Left = 224    Top = 200    Width = 121    Height = 21    ImeName = #20013#25991'('#31616#20307') - '#26497#28857#20116#31508    TabOrder = 1  end  object Button1: TButton    Left = 270    Top = 248    Width = 75    Height = 25    Caption = #30331#38470    TabOrder = 2    OnClick = Button1Click  endend