[Vovka-x13]

Привет. Дайте пожалуйста пример как можно сделать следующее. предполагаю запускать программу при помощи creatprocces или shellexecut
после того как программа запустится необходимо передать в нее нажатия клавишь "таб" потом вставить текст в поле еще раз "таб" и ентр.

[lmikle]

Запускать через CreateProcess (в ответ ты получишь хэндл процесса). По хэндлу процесса найти главное окно этой программы (можно, конечно, искать по заголовку или классу окна) и послать в него соответсвующие команды через SendMessage.

[NumLock]

запускает процесс, перебирает все его не дочерние окна, у них дочерние, находит "нужное" и посылает ему сообщение:

PHP код:

...
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
...

function CALLBACKEnumChildProc(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
  arr: array [0..255] of Char;
  l: Integer;
  s: String;
begin
  l:=GetClassName(hwnd, arr, SizeOf(arr));
  s:=Copy(arr, 1, l);
  Form1.Memo1.Lines.Add('  '+s+'='+IntToStr(hwnd));
  if s='Edit' then
    SendMessage(hwnd, WM_SETTEXT, 0, Integer(PChar('hello world')));
  Result:=True;
end;

function CALLBACKEnumThreadWndProc(hwnd: HWND; lParam: LPARAM): Boolean; stdcall;
var
  arr: array [0..255] of Char;
  l: Integer;
begin
  l:=GetClassName(hwnd, arr, SizeOf(arr));
  Form1.Memo1.Lines.Add(Copy(arr, 1, l)+'='+IntToStr(hwnd));
  EnumChildWindows(hwnd, @CALLBACKEnumChildProc, 0);
  Result:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  startupinfoa: _STARTUPINFOA;
  processinformation: _PROCESS_INFORMATION;
begin
  ZeroMemory(@startupinfoa, SizeOf(_STARTUPINFOA));
  startupinfoa.cb:=SizeOf(_STARTUPINFOA);
  startupinfoa.dwFlags:=STARTF_USESHOWWINDOW;
  startupinfoa.wShowWindow:=SW_SHOW;
  CreateProcess(nil, PChar('c:\Windows\notepad.exe'), nil, nil, False, 0, nil, nil, startupinfoa, processinformation);
  WaitForInputIdle(processinformation.hProcess, INFINITE);
  EnumThreadWindows(processinformation.dwThreadId, @CALLBACKEnumThreadWndProc, 0);
  CloseHandle(processinformation.hProcess);
end;