Application beenden vor erstem Erzeugen von Form

[BUG]

Zitat von Luckie:

Wollte gerade sagen, wenn ein Prozess terminiert wird, gibt Windows alle Ressourcen frei und schließt alle offenen Handles.

Sollte es.

Aber wer weiß, wie Windows 1337 mit Ressourcen umgeht? Oder ReactOS? Oder WINE?
Im besten Fall werden die sich an die API Dokumentation halten.

Also sollte man zumindest dafür sorgen, dass sich zumindest der Code, den man selbst kontrolliert, sich entsprechend der Spezifikation verhält.
Dabei kann er auch auf geringe Abweichung von der Spezifikation in den nicht kontrollierten Komponenten behandeln (vgl. strikte Sender und relaxte Empfänger in Netzwerk-Protokollen).


PS: Das ist allgemein gemeint, also direkt nicht an Luckie gerichtet. Das Zitat ist nur der Aufhänger.

[himitsu]

Die Message-Queue wird nicht zerstört ... sie wird einfach nur nicht mehr abgearbeitet, was Delphi in Application.Run und Application.ProgressMessages macht.

Konsolenanwendungen kommen ohne Message-Queue aus, da sie standardmäßig nichts mit "Fenstern" Machen.

[Chemiker]

Hallo,

Zitat:

Wenn ich feststelle, dass die Datei nicht vorhanden ist, soll CreateForm nicht aufgerufen und das Programm gleich beendet werden.

Was soll das für ein Vorteil bringen, ohne den Benutzer zu informieren, dass noch eine bestimmte Datei fehlt, das Programm ohne weiteren Kommentar zu beenden. Besser ist es doch das Form zu zeigen eine Fehlermeldung anzuzeigen und dann das Programm, ohne Klimmzüge sauber zu beenden.

Bis bald Chemiker

[Maya]

Zitat von Chemiker:

Hallo,

Zitat:

Wenn ich feststelle, dass die Datei nicht vorhanden ist, soll CreateForm nicht aufgerufen und das Programm gleich beendet werden.

Was soll das für ein Vorteil bringen, ohne den Benutzer zu informieren, dass noch eine bestimmte Datei fehlt, das Programm ohne weiteren Kommentar zu beenden. Besser ist es doch das Form zu zeigen eine Fehlermeldung anzuzeigen und dann das Programm, ohne Klimmzüge sauber zu beenden.

Bis bald Chemiker

Ich möchte für diesen Beitrag einen "Gefällt mir"-Button.

[Sir Rufo]

So sollte das sauber sein (unabhängig davon, ob das user-friendly oder sinnvoll ist)

Delphi-Quellcode:

if not SomethingMissing then
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end;

Denn jetzt verhält sich die Anwendung wie eine Konsolen-Anwendung, wenn die Anfangsbedingung nicht zutrifft.

[himitsu]

Und der Rest ist ja auch nicht schwer:

Delphi-Quellcode:

end
else
  MessageBox(0, 'da fehlt irgendwas', PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

Delphi-Quellcode:

end
else
  MessageBox(0, PChar('da fehlt ' + Fehlendes), PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

[Bummi]

einen hab ich noch

Delphi-Quellcode:

if 1=0 then
  begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
  end
else
  begin
      if Windows.AllocConsole then
      try
        WriteLn('Shit happens ...');
        write('> ');
        readln;
      finally
        FreeConsole;
      end;

  end;