02-05-2008, 10:11 PM
و عليكم السلام و رحمة الله و بركاته
أنظر للكود التالي
أنظر للكود التالي
كود :
[B]program [/B]Project1;
[B]uses
[/B]Forms,
Windows,
Unit1 [B]in [/B]'Unit1.pas' [COLOR=#000080][I]{Form1}[/I][/COLOR],
Unit2 [B]in [/B]'Unit2.pas' [COLOR=#000080][I]{SplashScreen}[/I][/COLOR];
[COLOR=#000080][I]{$R *.RES}
[/I][/COLOR][B]begin
[/B]SplashScreen := TSplashScreen.Create(Application);
[B]try
[/B]SplashScreen.Show;
Application.Initialize;
SplashScreen.Update;
Sleep(1000); Application.CreateForm(TForm1, Form1);
SplashScreen.Hide;
[B]finally
[/B]SplashScreen.Free;
[B]end[/B];
Application.Run;
[B]end[/B].
من تشبه بقوم فهو منهم