Konsolenfenster im GUI-Mode unterdrücken

[DP-Maintenance]

Dieses Thema wurde von "Matze" von "Programmieren allgemein" nach "Object-Pascal / Delphi-Language" verschoben.
Delphi-Frage.

[himitsu]

http://fnse.de/S02/15S.gif
ja also, wie gesagt, ich hab 'ne GUI-Anwendung und möchte, falls diese von einer Konsole/Batchfile aus aufgerufen wird, in dieser einen Statustext ausgeben.

[Olli]

Zitat:

Zitat von himitsu

dieses hat mir auch gleich mal eine Lösug gegeben, wie ich automatisch rausbekommen kann ob GUI oder Konsole.

Ich verweise mal spontan auf meinen Beitrag der hier unter #10 abgespeichert ist. Den wirst du wohl uebersehen haben.

Warum gibst du deinen Statustext nicht einfach vor dem FreeConsole aus? Ab Vista (oder war's W2K3?) gibt es eine API um die Handles der Elternkonsole zu ermitteln. Mit viel Frickelei kann man die API fuer die vorigen Systeme nachbauen.

Aber um es nochmal zu wiederholen: die Konsole wird nicht vom Konsolenprogramm erzeugt, folglich kann das Konsolenprogramm auch nicht die Erstellung der Konsole verhindern. War das jetzt klar genug?

[OregonGhost]

Es gibt auf Sourceforge.NET das Projekt Console2. Dieses injiziert in Kindprozesse eine DLL, die unter anderem das Konsolenfenster unterdrückt und ausliest. Das, was in dieser DLL passiert, müsstest du ja auch in deinem eigenen Programm machen können, und dabei müsstest du auch herausfinden können, ob nun eine Konsole da ist oder nicht. Vielleicht ist das interessant für dich, schau mal in den (leider nur mittelmäßig kommentierten) Quellcode.

[himitsu]

die #10 hier ist mein Post :angel:

Zitat:

die Konsole wird nicht vom Konsolenprogramm erzeugt, folglich ...

das hab ich schon mitbekommen

und das Problem bei FreeConsole:
- erstmal müßte ich das Programm in eine ConsolenProgramm umwandeln > {$APPTYPE CONSOLE}
und dann darf ich auch wieder die Dateizugriffe prüfen/ändern (wegen Console=OEM und GUI=ANSI)
- dann sollte das Konsolenfenser ja nicht dableiben, wenn nicht von einer Konsole aus gestartet wurde
kein Ahnung wie ich das prüfen soll, aber FreeConsole gibt True zurück, wenn das "eigene" Konsolenfenster geschlossen werden konnte. (heißt von Konsole gestartet = False)

Hier kann man ja nur bis FreeConsole etwas ausgeben und später nicht mehr
und wenn das Konsolenfenstern wärend der Programmlaufzeit nicht angezeigt werden soll, muß dieses Fenster ja geich bei Programmstart geschlossen werden.

Delphi-Quellcode:

{$APPTYPE CONSOLE}
WriteLn('Programm gestartet');
FreeConsole;

Dieses wäre zwar eine Lösung (auch wenn sie nicht ganz optimal ist und erst seit XP funktioniert)

Delphi-Quellcode:

{$APPTYPE CONSOLE}
FreeConsole;
isConsole := AttachConsole(ATTACH_PARENT_PROCESS);

if isConsole then WriteLn('irgendwas');

@OregonGhost: werd mal reinsehn

[Olli]

Zitat:

Zitat von himitsu

die #10 hier ist mein Post :angel:

Dann hat die DP einen Bug. Wenn man antwortet, wird mein Beitrag exakt davor als #10 angezeigt.

Zitat:

Hier kann man ja nur bis FreeConsole etwas ausgeben und später nicht mehr und wenn das Konsolenfenstern wärend der Programmlaufzeit nicht angezeigt werden soll, muß dieses Fenster ja geich bei Programmstart geschlossen werden.

Logisch. Aber wo ist dabei das Problem? Du muesstest im PEB des Elternprozesses rumwuehlen um an diese Informationen zu gelangen (inkl. Handles). Das laesst sich nur mit den entsprechenden Rechten auf den Elternprozess bewerkstelligen, was aber leider die ganze Geschichte wieder unpraktikabel macht.

[himitsu]

PEB ... och nöööö :(

hab zwar och mal ein Programm gesehn, was wohl über 'nen Loader (wie z.B. bei UPX) gestartet wurde, welcher dann die entprechende Programmversion geladen hatte (dort war es 'ne DOS/Windows-Vesion oder so ... is schon lange her)

[Olli]

Konnte mir dieses SF.net-Projekt nur flüchtig ansehen, sieht aber gut aus. Die scheinen einen anderen Weg zu gehen, der ohne die internen Strukturen des Elternprozesses (sprich, in unserem Fall PEB) auskommt. Der Lösungsansatz ist kreativ, mit der Einschränkung, daß auch hier Kompromisse her müssen.

Ich hatte mir mal was anderes überlegt gehabt, aber dann wieder verworfen (also nie probiert). Man könnte ja on-the-fly eine Kopie der EXE erstellen und ausführen, welche man zuvor im Header so modifiziert, daß das Subsystem auf Konsole steht. Natürlich bedeutet es in jedem Fall auch Frickelei.

[himitsu]

Warum bin ich eigentlich nicht gleich draufgekommen AttachConsole als erstes aufzurufen? :gruebel:
(wozu FreeConsole ... AttachConsole sagt ja auch ob's erfolgreich war)

Das einzige Problem ist jetzt nur noch, daß AttachConsole erst ab XP verfügbar ist.
Und nachprogrammieren ist für mich etwas zu hoch ... hab mal reingeschaut und da werden Dinge aufgerufen, wo ich mit meinem Unwissen nicht rankomm.

Bei allem vor XP wird AttachConsoleDummy verwendet, welches einfach nur sagt daß es nicht ging
und ab XP funktioniert es so eigentlich perfekt. > es wird kine neue Konsole geöffnet und beim Programmstart blinkt auch Keine kurz auf. :angel:

Delphi-Quellcode:

{$APPTYPE GUI}

Uses Windows;

Function AttachConsoleDummy(dwProcessId: LongWord): LongBool;
  Begin
    Result := False;
  End;

Var AttachConsole: Function(dwProcessId: LongWord): LongBool; StdCall;
  ConsoleOutput: Boolean = False;




AttachConsole := GetProcAddress(GetModuleHandle('kernel32.dll'), 'AttachConsole');
If @AttachConsole = nil Then AttachConsole := @AttachConsoleDummy;

ConsoleOutput := AttachConsole(ATTACH_PARENT_PROCESS);




// und jetzt immer wenn zur Console verbunden wurde etwas reinschreiben
// > WriteLn erzeugt eine Exception, wenn keine Console vorhanden ist (darum ConsoleOutput)
If ConsoleOutput Then WriteLn('irgendwas');

Oder diese kleine Unit

Delphi-Quellcode:

Unit FSSystem;

Interface
  Var ConsoleOutput: Boolean = False;

  Procedure WriteConsole(S: String);

Implementation
  Uses Windows;

  Var AttachConsole: Function(dwProcessId: LongWord): LongBool; StdCall;

  Function AttachConsoleDummy(dwProcessId: LongWord): LongBool;
    Begin
      Result := False;
    End;

  Procedure WriteConsole(S: String);
    Begin
      If (S = '') or not ConsoleOutput Then Exit;
      UniqueString(S);
      CharToOemA(PAnsiChar(S), PAnsiChar(S));
      WriteLn(S);
    End;

Initialization
  AttachConsole := GetProcAddress(GetModuleHandle('kernel32.dll'), 'AttachConsole');
  If @AttachConsole = nil Then AttachConsole := @AttachConsoleDummy;

  ConsoleOutput := AttachConsole(ATTACH_PARENT_PROCESS);

End.

und im Programm dann jeweils einfach nur noch WriteConsole aufrufen

Delphi-Quellcode:

{$APPTYPE GUI}


WriteConsole('irgendwas');

[Assertor]

Hi,

ich habe gerade mal AttachConsole ausprobiert. Es gibt ein Problem, daß nach dem Ende der Anwendung der Prompt nicht angezeigt wird und man einmal Enter drücken muß. Es sieht also so aus wie ein ReadLn() am Ende, jedoch wird alles getippte direkt ausgeführt. Es fehlt tatsächlich nur der Prompt ($p$g) der Befehlszeile am Ende... OS Vista x32, Delphi 2009.

Ist dies jemanden schon aufgefallen und gibt es eine Lösung?

Gruß Assertor