WinAPI - Delphi WinAPI - Ответ 1405021

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, shellapi, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
 h, h1: hwnd;
 str: char;
 f: Textfile;
 str1: string;
implementation
 
{$R *.dfm}
// в инспекторе объектов ставим  Timer1.Enabled:= False;
procedure TForm1.Button1Click(Sender: TObject);
begin
 
 // открываем блокнот
 ShellExecute(Handle, 'open', 'notepad.exe', nil, nil, SW_RESTORE);
 sleep(200);// маленько тормознем
 h:= FindWindow('Notepad',nil);// находим дескриптор блокнота
 h1:= FindwindowEx(h, 0, 'Edit', nil);// находим дескриптор поля ввода блокнота - Edit
 if h1 <> 0 then // если найден дескриптор
  begin
  AssignFile(f, 'test.txt'); // открываем файл с текстом
  Reset(f);
  Timer1.Enabled:= True;//- врубаем таймер
  end;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if not Eof(f) then   // если не конец файла
  begin
   read(f, str); // читаем символ
   str1:= str1 + str; // добавляем в строку
   SendMessage(H1, wm_settext, 0, lparam(string(str1))); //посылаем строку в блокнот
 
  end
  else 
   begin
    Timer1.Enabled:= False; //текст кончился - останавливаем таймер
    CloseFile(f);
   end;
end;
 
end.