Отправить текст в окно

[Shouldercannon]

Как с помошью SendKey.pas можно отправить exec close.cfg или что-либо другое в окно данного вида?

[Alex Cones]

Если окно позволяет вводить текст от руки, то можно:

procedure TForm1.Button1Click(Sender: TObject);
 var
   wnd: HWND;
   I: Integer;
   Str: string;
 begin
   wnd := FindWindow(Nil, 'SOURCE DEDICATED SERVER');
   if wnd <> 0 then
   begin
     wnd := FindWindowEx(wnd, 0, 'Edit', nil);  
    Str := 'Текст, который необходимо ввести';
     for i := 1 to Length(s) do
       SendMessage(wnd, WM_CHAR, Word(Str[I]), 0);
    PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);
   end;
 end;

[Shouldercannon]

Да окно позволяет вводить текст от руки. Вставил ваш код, вместо 'Текст, который необходимо ввести' написал say Hello. Реакции ноль в окно ничего не добавляется, а программа повисает.

[Stilet]

Реакции ноль в окно ничего не добавляется, а программа повисает.

Нужно по другому. Через WriteConsoleInput - это надежнее должно быть.

[Shouldercannon]

Можно пример?

[Stilet]

Можно пример?

У меня к сожалению его нет.

[Shouldercannon]

очень жалко

[Shouldercannon]

Ну может кто-нибудь знает как? Срочно нужно. Помогите пожалуйста.

[JTG]

Установи JEDI (http://jcl.delphi-jedi.org/ http://jvcl.delphi-jedi.org/), там есть всё, в частности JvCreateProcess, у него есть метод WriteLn, который пишет в консоль.

Если нужно winapi - это делается пайпами (pipes), гугли "перенаправление ввода вывода"

[Shouldercannon]

Давайте с помощью JVLC. А компонент JvCreateProcess по умолчанию запускает cmd.exe? Просто мне надо чтобы моя программа запеленговала заголовок нужного мне окна на подобии cmd.exe и после нажатия на кнопку отсылала туда содержимое Edit