Wie ermittele ich ob eine Console zugewiesen ist?

[MaBuSE]

Hallo

wenn ich mit WriteLn('Test'); einen Text ausgebe. Bekomme ich in einer {$APPTYPE GUI} Anwendung einen Fehler (EA Fehler 105).
Das ist auch soweit verständlich. Es gibt ja keine Console zugewiesen ist zu der WriteLn schreiben könnte.
Ich weise also mit AllocConsole eine Konsole zu und kann nun mit WriteLn in diese Console schreiben.
Wenn ich nun mit FreeConsole; die Konsole von der Anwendung trenne, kann ich natürlich nicht mehr mit WriteLn arbeiten -> Fehler (EA-Fehler 6)

Meine Frage: "Wie erkenne ich ob gerade eine Konsole zugewiesen ist?"

Mein Lösungsansatz war:

Delphi-Quellcode:

...
function isAllocConsole: Boolean;
begin
  Result := False;
  try
    {$I-}
    Write(#0#8);  // Write('');  funktioniert nicht, da nix ausgegeben wird :-(
    {$I+}
    Result := (IOResult = 0);
  except
  end;
end;
...
  if isAllocConsole then WriteLn('DP RuLeZ');
...

Aber mit #0 wird trotzdem ein Leerzeichen auf den Bildschirm ausgegeben. Das dann mit DEL (#8) wieder gelöscht wird.
Das ist aber keine gute Lösung, da bei z.B. einer Ausgabeumleitung in eine Datei viele #0#8 enthalten wären

Weiß jemand eine bessere Lösung?

[Olli]

Wie wäre es mit GetConsoleWindow() und einem Test auf 0 als Rückgabewert?!

[Muetze1]

Moin!

Im Normalfall setzen beide Funktionen die globale Variable IsConsole entsprechend.

Ich möchte hier gleich auch nochmal auf einen Fehler Hinweisen in diesem Zusammenhang: Bei meinem Projekt habe ich auch nachträglich eine Konsole angelegt und das hatte aber sehr merkwürdige Nebeneffekte. Zum einen wurden Fenster und Klassen nicht mehr ordentlich und sauber abgeräumt und zum anderen funktionierte das minimieren des Hauptfenster nicht mehr (MDI App).

Es ist also Vorsicht geboten.

MfG
Muetze1

[Motzi]

Oder alternativ GetStdHandle()?

[MaBuSE]

Zitat von Muetze1:

Im Normalfall setzen beide Funktionen die globale Variable IsConsole entsprechend.

Da muß ich Dir widersprechen!!!

isConsole ist bei {APPTYPE GUI} immer FALSE !!!

Auszug aus der system.pas:

Delphi-Quellcode:

...
  IsConsole: Boolean;       { True if compiled as console app }
...

in der Delphi Hilfe steht:

Zitat:

Wenn das Modul als Konsolenanwendung gelinkt wurde, ist die Variable IsConsole true. Dies gilt sowohl für eine ausführbare Datei als auch für eine gemeinsam genutzte Bibliothek.

[Olli]

Zitat von Motzi:

Oder alternativ GetStdHandle()?

Igitt, da muß man ja noch einen Parameter übergeben ... muß man bei GetConsoleWindow() nicht, ätsch

@Mabuse: Du hast vollkommen recht mit dem Flag, da dieses bereits von der RTL vor dem Aufruf der Main (begin end. in der DPR) gesetzt wird. Es entspricht dem Flag in der EXE.

[MaBuSE]

Zitat von Olli:

Wie wäre es mit GetConsoleWindow() und einem Test auf 0 als Rückgabewert?!

Leider ist diese Funktion nicht in der Windows.pas definiert

Aber es klappt

Delphi-Quellcode:

function GetConsoleWindow:THandle; external kernel32 name 'GetConsoleWindow';

function isAllocConsole: Boolean;
begin
  Result := GetConsoleWindow <> 0;
end;

[MaBuSE]

Danke für alle Antworten