GUI Anwendung mit Consolen-Ausgabe

[marabu]

Hallo Christian,

ein gesondertes Konsolenprogramm wird wohl nicht notwendig sein:

Delphi-Quellcode:

uses
  Windows;

var
  hIn: THandle;
  hOut: THandle;
  c: char;
  iRead, iWritten: cardinal;
  s: string;

begin
  AllocConsole;

  hIn := GetStdHandle(STD_INPUT_HANDLE);
  hOut := GetStdHandle(STD_OUTPUT_HANDLE);
  
  FlushFileBuffers(hIn); 

  s := '';
  repeat
    ReadFile(hIn, c, 1, iRead, nil);
    if c = #13
      then Break
      else s := s + c;
  until false;

  WriteFile(hOut, s[1], Length(s), iWritten, nil);

  FreeConsole;
end.

Grüße vom marabu