Ausgabe in DOS-Box

[Christian Seehase]

Moin Sabelrider,

meinst Du das so:

Delphi-Quellcode:

program Project1;

uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  Application.Initialize;
  if paramcount > 0 then begin
    Application.ShowMainform := false;
    AllocConsole;
    WriteLn('HALLO');
    ReadLn;
    FreeConsole;
    exit;
  end;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Erstellt mit "Neues Anwendung", dann Projekt\Quelltext anzeigen. Anschliessend den IF Block eintragen, und die Unit Windows mit aufnehmen.
Zum Testen dann unter Start\Parameter einen Parameter eintragen.