关于向后台程序发送消息

Question

Notepad.exe(记事本)前提,把记事本最小化
如何实现自动发送edit1.text里的文字信息到记事本上并自动按回车然后在隔几秒(时间可以自己调整)再自动发送edit2.text里的文字到记事本并按回车前提是记事本已经最小化哦本人菜鸟,刚接触dehlphi请大虾发个源码给我研究下

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Timer1: TTimer;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  s   :   string;
  q  :   string;
  hwndNotepad:THandle;
hwndEdit:THandle;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
hwndNotepad:=FindWindow('Notepad',nil);if hwndNotepad=0 then
begin
ShowMessage('您尚未运行游戏客户端');
Exit;
end;
hwndEdit:=FindWindowEx(hwndNotepad,0,'Edit',nil);
if   hwndEdit=0   then
 begin
ShowMessage('无法查找对话框');
 Exit;
end;
PostMessage(hwndNotepad,WM_KEYDOWN,13,0);
SendMessage(hwndEdit,   WM_SETTEXT,   0,   LongInt(s));
PostMessage(hwndNotepad,WM_KEYDOWN,13,0);
timer1.enabled:=true;
timer1.Interval:=StrToInt(edit3.text);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
beginSendMessage(hwndEdit,   WM_SETTEXT,   0,   LongInt(q));
PostMessage(hwndNotepad,WM_KEYDOWN,13,0);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
q:=edit2.text;
s:=edit1.text;
end;end.看下为啥显示完没有我要的效果
我想在记事本上有这样的效果edit1
edit2可是我的代码显示到最后只有edit2