Das
IMHO nicht möglich, denn nur mit APPTYPE CONSOLE bleibt dein Programm in der schon geöffneten Konsole. Wenn du im nachhinein AllocConsole() aufrufst, bekommst du eine neue Konsole.
Was vielleicht funktionieren könnte ist folgendes:
Delphi-Quellcode:
{$APPTYPE CONSOLE}
...
if ParamStr(1) = '-H' then
begin
Halt(0);
end
else
FreeConsole; // Konsole schließen
...
Das führt, wenn es überhaupt funktioniert, zu flickern, da kurzfristig eine Konsole geöffnet wird.