----------------------------------------------------------------------- "Delphi X-Files" " "Splash-окно" ----------------------------------------------------------------------- Сведения о программе, авторские права и т.д., лучше оформить в виде отдельной формы, которая должна отображаться при запуске программы. Алгоритм: 1. Создать форму (например, с именем SplashForm). 2. Объявляете ее свободной (availableForms). 3. В Progect Source добавляете следующий примерный код: program Splashin; uses Forms, Main in 'MAIN.PAS', Splash in 'SPLASH.PAS' {$R *.RES} begin try SplashForm := TSplashForm.Create(Application); SplashForm.Show; SplashForm.Update; Application.CreateForm(TMainForm, MainForm); SplashForm.Hide; finally SplashForm.Free; end; Application.Run; end. Форма SplashForm держится на экране пока выполняется событие OnCreate в главной форме. Но иногда она появляется и пропадает очень быстро, поэтому необходимо сделать задержку: procedure TSplashForm.Timer1Timer(Sender: TObject); begin Timer1.Enabled := False; end; procedure TSplashForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose := Not Timer1.Enabled; end; Перед SplashForm.Hide; ставите цикл: repeat Application.ProcessMessages; until SplashForm.CloseQuery; Все! Осталось установить на таймере период задержки 3-4 секунды. На последок, у такой формы желательно убрать Caption: SetWindowLong (Main.Handle,GWL_STYLE, GetWindowLong(Main.Handle, GWL_STYLE) AND NOT WS_CAPTION OR WS_SIZEBOX);