Hallo!
Ich habe mehrere Formulare in meinem Projekt, doch keins davon wird atomatisch beim Start erstellt. Stattdesen wird ein Object erstellt, der während der ganzen Sitzung da ist, bestimmte Kode ausführt und dann entscheidet welche Form erstellt und angezeigt werden soll. Damit sich das Programm nach dem erstellen dieses Object nicht gleich beendet wird, warte ich mit
while not Apllication.Terminated do
bis das Programm wirklich geschloßen werden soll. Irgendwan wird dann das erste Formular erstellt und sobald das Formular dann geschlossen wird, beenden sich das ganze Programm. Warum ist es so und was kann ich dagegen unternehmen?
Hier die Code:
Delphi-Quellcode:
program updater;
uses
Forms,
AppStart
in '
AppStart.pas',
frmUpdateFiles
in '
Unit1.pas',
frmUpdateReg
in '
Unit2.pas',
frmAnalyse
in '
Unit3.pas';
{$R *.res}
begin
Application.Initialize;
Start := TAppStart.Create;
// Diese TAppStart wird in einer anderen Unit deklariert.
while not Application.Terminated
do // Dieser Object analysiert den Stand einer bestimmten
begin // Anwendung und führt bei Bedarf automatisches Update durch.
Sleep(1);
// Je nach Fortschritt wird ein entsprechendes Formular geöffnet.
Application.ProcessMessages;
end;
Start.Free;
Application.Run;
end.