Wie ermittele ich ob eine Console zugewiesen ist?

[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;