ANTICHAT — форум по информационной безопасности, OSINT и технологиям

 procedure TFormMain.Button1Click(Sender: TObject);
var
  hWnd,hChild: THandle;
begin
// Ещем окно с классом 'Notepad'
  hWnd:= FindWindowA('Notepad',nil);
  if hWnd<>0 then begin
    hChild:= FindWindowExA(hWnd,0,'Edit',nil);       // Ищем текстовое поле
    if hChild<>0 then begin
      SendMessage(hChild, WM_CHAR, Word('-'), 0);    // Посылаем символ "-"
      PostMessage(hChild, WM_KEYDOWN, VK_RETURN, 0); // Переводим строку
    end;
    PostMessage(hWnd, WM_KEYDOWN, VK_F5, 0); // Посылаем главному окну о нажатии клавиши F5
  end else
    ShowMessage('Notepad not found');
end;

if (hWnd == IntPtr.Zero)
            {
                MessageBox.Show("Процесс не найден", "FlyBird(Ошибка)");
                return;
            }
            IntPtr hEdit = FindWindowEx(hWnd, IntPtr.Zero, "Edit", "");
            if (hEdit == IntPtr.Zero)
            {
                MessageBox.Show("Not found child", "Error");
                return;
            }

            IntPtr t1 = (IntPtr)ComBoxSelectItem_1;
            IntPtr nul = IntPtr.Zero;

            //PostMessage(hWnd, WM_KEYUP, t1, nul);
            PostMessage(hWnd, WM_KEYDOWN, t1, nul);