[Hunter US]

да спасибо!! А вот как вбивать команды в процесс xrEngiene???

Код:

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);

Я так понял эту строчку нужно изменить??? Просто прописать дуда процесс в памяти?
Подскажите пожалуйста плиз..