[Error]

Здравствуйте, скажите как можно запустить команду из моего приложения в другом?

Код:

//Копируем в буфер
Clipboard.AsText:=Label26.Caption+M1.Lines.Text+M2.Lines.Text;

Далее нужно вставить в нужное окно данные из буфера.
Через WinSight узнаю код процесса требуемого приложения.

[MMM_Corp]

см. SendMessage

[Error]

Спасибо, а как через sendmessage передать данные не в TEdit, а под моргающий курсор, как, например, в CMD?

[BoRoV]

Вот для CMD:

Код:

var
  hWnd: THandle;
  cmd: string;
  i: integer;
begin
  hWnd := FindWindow('ConsoleWindowClass', nil);
  cmd := 'ping ya.ru' + #13;
  if hWnd <> 0 then
    for i := 1 to Length(cmd) do
      SendMessage(hWnd, WM_CHAR, Ord(cmd[i]), 0);
  ExitProcess(0);
end;

[Error]

Отлично, правда для меня малопонятно как другую программу задать в качестве цели.

[lmikle]

Код:

hWnd := FindWindow('ConsoleWindowClass', nil);

Поиск другой программы (ее окна) по имени класса. Можно еще искать по заголовку.

[Error]

COM1 - PuTTY не помогает. А можно вписать туда код процесса?