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