[Kailon]

Сообщение от Hunter US

Ну нужно уже в запущенный процесс передать команду. Например работает cmd и туда кнопкой нужно прописать команду..
так сказать автоматизировать ввод команды вручную

Так пойдет?

Код:

var
  Wnd: HWND;
  Text: String;
  i: Byte;
begin
  Text := 'ping 127.0.0.1';
  Wnd := FindWindow('ConsoleWindowClass', nil);
  if Wnd <> 0 then
    for i := 1 to Length(Text) do
      SendMessage(Wnd, WM_CHAR, Ord(Text[i]), 0);