Alternativ sollte auch das gehen:
Delphi-Quellcode:
begin
Application.Initialize;
Application.CreateForm(MainformOderWieEsAuchHeissenMag);
if MainformOderWieEsAuchHeissenMag.IsOk then begin
Application.Run;
end;
end;
Application.Run wird nur dann aufgerufen, wenn die im Create des Hauptformulars zu prüfenden Bedingungen für den Programmstart zutreffen, erst dann wird (wie mir scheint) das Formular angezeigt. Das MainForm bekommt eine Public-Variabel bIsOK vom Typ Boolean, der Du im FormCreate das Ergebnis Deiner Prüfung als boolschen Wert zuweist, damit muss Du die Prüfung nicht verlagern. Sinnvoller wäre aber, die Prüfung in eine eigene Funktion zu packen, die Du dann im FormCreate oder in der
DPR aufrufen kannst. Das ist abhängig davon, ob Du zur Prüfzeit schon Zugriff auf ein initialisiertes MainForm benötigst oder nicht.