// OpenConsole   = 2                     ; 0=None, 1=Open, 2=Minimized
// DebugFlags    = 19                    ; 1/2/4/8=Trouble/Success/Export/Import
// DebugFlags:=Val(ReadIni('DebugFlags'));
// OpenConsole(Val(ReadIni('OpenConsole')));
{
Show/hide device console.
}
procedure OpenConsole(Mode:Integer);
var b:Boolean;
 procedure ShowWin(WinName:String);
 begin
  b:=WinShow(WinName);
  b:=WinDraw(WinName+'|top=317|left=0|width=600|height=317');
  if Mode=1 then b:=WinSelect(WinName) else b:=WinHide(WinName);
 end;
begin
 if Mode>0 then ShowWin(ParamStr('Console '+DevName))
end;
