[Admin]

Пример передает текст "Test" в текстовое поле Блокнота.

Код:

var
 i: integer;
 Wnd: hWnd;
 TrayWnd, BtnWnd: hWnd; // для Button
 Control : array [0..127] of char;
 AText: string;
begin
 AText:=Edit5.Text;
 // найти окно самого приложения
 Wnd:=FindWindow(nil,PChar('Untitled - Notepad'));
  // в нем найти первое (по Z-порядку) дочернее окно и получить его класс
 Wnd:=GetWindow(Wnd,GW_CHILD);
  GetClassName(Wnd, Control, SizeOf(Control));
  // ищем нужный контрол
  while Control<>'Edit' do //  имя контрола
  begin
    Wnd:=GetWindow(Wnd, GW_HWNDNEXT);
    GetClassName(Wnd, Control, SizeOf(Control));
  end;
  // записать в него нужный текст
 SendMessage(Wnd, WM_SETTEXT, 0, Integer(PChar(AText)));
end;