Mostrar ventana con cuaderno de bitácora en programa automático

[[seoane]]

Se me ocurren varias posibilidades, la primera es hacer una aplicación de consola, con sus writeln , me parece que se ajusta bastante bien a lo que quieres. Es mas, nada te impide utilizar en la misma aplicación la consola y ventanas, por si mas adelante en tu aplicación necesitas ventanas.

Si la idea de la consola no te gusta, podemos recurrir a los mensajes. En el evento OnCreate posteamos un mensaje, y cuando lo recibamos la ventana ya se estará mostrando. Algo así:

Código Delphi [-]
const
  WM_TRABAJAR = WM_USER + 100;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Aqui inicializa tu aplicacion

  // Posteamos el mensaje
  PostMessage(Handle,WM_TRABAJAR,0,0);
end;

procedure TForm1.WMTRABAJAR(var Msg: TMessage);
var
  i: integer;
begin
  for i:= 1 to 3 do
  begin
    Memo1.Lines.Add('Hola');
    Application.ProcessMessages;
    Sleep(1000);
  end;
end;