Einzelnen Beitrag anzeigen

jus

Registriert seit: 22. Jan 2005
343 Beiträge
 
Delphi 2007 Professional
 
#1

Starten wahlweise mit und ohne GUI

  Alt 5. Jun 2018, 23:47
Ich hätte eine konzeptionielle Frage und zwar habe ich ein Programm das einerseits in einer Batchdatei mit Parameter aufgerufen wird, wo kein Fenster aufpoppen soll, und falls kein Parameter mitgegeben wird, soll es mit GUI gestartet werden. Derzeit löse ich so:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  case paramcount of
    1: begin
         showmessage('Zuwenige Parameter. Programm wird fortgesetzt.');
       end;
    else
    begin
      Mach_Was_ohne_GUI(paramstr(2)); //Parameter wurde angegeben
      Halt;
    end;
  end;
end;
Falls ein Parameter angegeben wurde, wird es ausgeführt und danach das Programm in FormCreate brutal mit "Halt" beendet. Funktionert eigentlich auch zufriedenstellend. Doch vermutlich gibt es elegantere Lösungen. Wie könnte man es besser machen?

lg,
jus
  Mit Zitat antworten Zitat