[ros.pro]

Доброго времени суток, уважаемые форумчане!
Не могу решить такую траблу:

есть открытое окно notepad.exe(открываю через shellexecute)
надо в окно передать текст.
Вопрос: как это реализовать?

зы: открыть блокнот с параметром через shellexecute не предлагать.

Заранее спасибо!

[ART]

Ищешь окошко и посылаешь месседж

[Pyro]

вроде WM_SETTEXT

[ros.pro]

Сообщение от ART

Ищешь окошко и посылаешь месседж

в том то и дело, что не могу найти окно(showmessage не показывается):

PHP код:

ShellExecute(Handle, 'open', PChar('notepad.exe'), nil, nil, SW_SHOW);
  cmd := FindWindow(nil,'Безымянный - Блокнот');
  if cmd <> 0 then
  begin
    showmessage('aa');
  end; 


[Bargest]

Он вполне может не успеть открыться к моменту вызова FindWindow.

[ros.pro]

Сообщение от Bargest

Он вполне может не успеть открыться к моменту вызова FindWindow.

действительно... не успел открыться...

[ros.pro]

Сделал вот так:

PHP код:

procedure TForm1.FormCreate(Sender: TObject);
var command:string;
    cmd:HWND;
    i:integer;
begin
  Application.ProcessMessages;
  command := 'dir';
  ShellExecute(Handle, 'open', PChar('notepad.exe'), nil, nil, SW_SHOW);
  sleep(80);
  cmd := FindWindow(nil,'Безымянный - Блокнот');
  if cmd <> 0 then
  begin
    cmd := FindWindowEx(cmd, 0, 'Edit', nil);
    for i:=0 to length(command) do
    begin
      SendMessage (cmd, WM_CHAR, Word(command[i]), 0);
    end;
  end;
end; 


Вопрос: Как еще кроме sleep(80), решить проблему позднего открывания блокнота?