El Splash Screen se desaparece muy rápido

[eddg]

codigo del proyecto:

program Project2;

uses
Forms,
Unit1 in '..\..\..\..\..\Archivos de programa\Borland\Delphi7\Projects\nuevo\Unit1.pas' {principal},
Unit9 in 'iconos\Unit9.pas' {splashscreen};

{$R *.res}

begin

SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;
sleep(3000);
Application.CreateForm(Tprincipal, principal);
Application.Initialize;
Application.Run;
end.


codigo del FORM PRINCIPAL

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ImgList, ToolWin, ComCtrls, ExtCtrls,
ActnMan, ActnCtrls, Menus, Unit2, dblookup, ShellCtrls, Grids, Outline,
DirOutln, Spin;

type
Tprincipal = class(TForm)
...etc...
procedure ToolButton8Click(Sender: TObject);
....etc...

private
{ Private declarations }
public
{ Public declarations }
end;

var
principal: Tprincipal;

implementation

uses Unit3, Unit5, Unit9;

{$R *.dfm}

procedure Tprincipal.ToolButton8Click(Sender: TObject);
begin
close;
end;
...etc...

end.

[[eduarcol]]

como te decia en el codigo del dpr no tienes SysUtils en el uses, agregalo y listo

[eddg]

Oye Hermano, no se como hacerlo entonces, dame una pista! no se COMO agregar el SysUtils al uses, dame un ejemplo! por favor...!

[[eduarcol]]

codigo del proyecto:

Código Delphi [-]
program Project2;

uses
Forms,
SysUtils,
Unit1 in '..\..\..\..\..\Archivos de programa\Borland\Delphi7\Projects\nuevo\Unit1.pas' {principal},
Unit9 in 'iconos\Unit9.pas' {splashscreen};

{$R *.res}

begin

SplashScreen := TSplashScreen.Create(Application) ;
SplashScreen.Show;
SplashScreen.Update;
sleep(3000);
Application.CreateForm(Tprincipal, principal);
Application.Initialize;
Application.Run;
end.

es sencillo fijat la linea resaltada

[eddg]

All Rights MAN, ahora sí! yo no pensaba que tambien debia estar en el Proyecto GENERAL, ahora Sí funciona! gracias Hermano!

Me gustaria saber si tienes algun E-Mail a donde pueda comunicarme con UD, ya que somos de Vzla.

[[xEsk]]

Hola, yo para los Splash Screen, me gusta mas usar un Timer, ya que te da mucho mas juego.

Por ejemplo, para los usuarios que no quieren ver tu Splash Screen, puedes programar que si le dan "click" al Splash este se cierre sin terminar su tiempo de espera...

Y así muchas cosas, hehehe... Eso si, la forma de implementar el Splash usando un TTimer seria algo distinta.

Saludos.

[[eduarcol]]

bueno llevas mucha razon, por eso le recomende que no es recomendable que lo hiciera asi, pero tiene razones de mercadeo