Wie zeigt/versteckt man eine Konsolenfenster-App?

Question

Ich habe eine kleine Konsole App. Ich möchte sein Fenster ausblenden, wenn es von meinem Hauptprogramm aufgerufen wird (mit -Hide als Befehlszeilenparameter) und es anzeigen, wenn der Benutzer es startet (kein Befehlszeilenparam).

This question schlägt vor, dass die Verwendung von {$ APPTYPE GUI} anstelle von {$ APPTYPE CONSOLE} das Fenster verdeckt. Und tatsächlich funktioniert es. Aber wie mache ich das Fenster sichtbar, wenn es vom Benutzer ausgeführt wird?

Zweck: Ich möchte, dass mein Hauptprogramm still mit der Konsolen-App im Hintergrund interagiert (Konsole ist unsichtbar). Wenn der Benutzer die Konsolen-App also alleine startet, möchte ich ihn nur warnen: "Diese Konsolen-App macht x-Aufgabe. Sie können es nicht manuell starten ".

Answer 1

1. Lassen Sie das Programm als Konsolenanwendung in Ruhe. Machen Sie es nicht zu einer GUI-Anwendung, da dies bedeutet, dass Benutzer keine direkte Konsole erhalten, wenn sie direkt gestartet werden.
2. Wenn Sie das Programm von Ihrer Hauptanwendung aus starten, geben Sie CreateProcess ein und übergeben Sie dabei die CREATE_NO_WINDOW-Flagge. Dieses Flag stellt sicher, dass kein Konsolenfenster erstellt wird.

Answer 2

Ich benutze diese Methode in meiner app

function ExecuteDosCommand(CommandA : String) : string; 
var myStartupInfo : TStartupInfo; 
myProcessInformation : TProcessInformation; 
S : string; 
begin 
    myStartupInfo.dwFlags   := STARTF_USESHOWWINDOW; 
    myStartupInfo.wShowWindow  := SW_HIDE; 
    myStartupInfo.lpReserved  := nil; 
    myStartupInfo.cbReserved2  := 0; 
    myStartupInfo.lpReserved2  := nil; 
    myStartupInfo.lpTitle   := nil; 
    myStartupInfo.lpDesktop   := nil; 
    CreateProcess(nil,Pchar(CommandA),nil,nil,False,CREATE_DEFAULT_ERROR_MODE, 
       nil,nil,myStartupInfo ,myProcessInformation); 

    with myProcessInformation do 
    result := 'hProcess : THandle >> '+ IntToStr(hProcess )+#13+ 
      'hThread  : THandle >> '+ IntToStr(hThread )+#13+ 
      'dwProcessId : DWORD >> '+ IntToStr(dwProcessId)+#13+ 
      'dwThreadId : DWORD >> '+ IntToStr(dwThreadId )+#13; 
end;