Returnet til console

Det letteste er at indsætte {$APPTYPE CONSOLE} i starten af dpr filen.

Derefter kan man skrive til stdout (konsol outputtet) ved hjælp af WriteLn og Write, hvor man ikke angiver noget fil.

if ParamStr(1) = '/hej' then
begin
  WriteLn('Hej med dig');
end; 

Man kan desuden læse fra konsollen med Read og ReadLn på samme måde.

var
  S: String;

begin
  Write('Hvad hedder du? ');
  ReadLn(S);
  WriteLn('Hej '+S);

Hvis man ikke vil have at konsollen skal være der hele tiden kan man bruge API kaldene AllocConsole() og FreeConsole()
Eks:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AllocConsole;
  WriteLn('Hej verden');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  FreeConsole;
end;

Dette er en stund siden, men du kan bruke dette:

program Project1;

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

{$R *.res}

begin
  if ParamStr(1) = '/hej' then
  begin
    AllocConsole;
    Writeln('hej med dig');
    Readln;
    FreeConsole;
    Halt;
  end;
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Mvh
DiZpel

[Redigeret d. 12/07-05 17:47:34 af DiZpel]

Hei.

Jeg har et lite tips som kanskje hjelper. Du kan jo lage et konsoll program som sjekker om ParamStr(1) = '/hej'. Hvis det er det, print 'hej med dig'. Hvis ikke, bruk WinExec eller ShellExec for å starte ditt GUI program.

Mvh
DiZpel