commencer
FormSplashScreen : = TFormSplashScreen.Create (application) ;
essai
FormSplashScreen.Show ;
Application.Initialize ;
FormSplashScreen.Update ;
Sommeil (3000) ;
Application.CreateForm (TFormMain, FormMain) ;
Application.CreateForm (TFormOptions, FormOptions) ;
Application.CreateForm (TForm1, Form1) ;
finalement
FormSplashScreen.Hide ;
FormSplashScreen.Free ;
extrémité ;
Application.Run ;
extrémité.
|