[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), решить проблему позднего открывания блокнота?

[ros.pro]

И, забыл спросить, что писать вместо Edit:

PHP код:

FindWindowEx(cmd, 0, 'Edit', nil); 


чтобы вставить команду в консоль?

[NumLock]

Код:

uses
  ComObj,

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

procedure TForm1.FormCreate(Sender: TObject);
var
  WshShell: OleVariant;
begin
  WshShell:=CreateOleObject('WScript.Shell') ;;
  WshShell.Run('notepad', 1, False);
  Sleep(500);
  WshShell.SendKeys('hello, world', True);
  WshShell.SendKeys('{ENTER}', True);
  WshShell.SendKeys('Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms', True);
  WshShell.SendKeys('{ENTER}', True);
end;

[ros.pro]

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

Код:

uses
  ComObj,

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

procedure TForm1.FormCreate(Sender: TObject);
var
  WshShell: OleVariant;
begin
  WshShell:=CreateOleObject('WScript.Shell') ;;
  WshShell.Run('notepad', 1, False);
  Sleep(500);
  WshShell.SendKeys('hello, world', True);
  WshShell.SendKeys('{ENTER}', True);
  WshShell.SendKeys('Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms', True);
  WshShell.SendKeys('{ENTER}', True);
end;

ОГРОМНОЕ СПАСИБО! Очень интересный вариант!!!