El Splash Screen se desaparece muy rápido

[eddg]

ya tengo agregada esa UNIDAD de SysUtils en mi USES, he igual me dice


[Error] Project2.dpr(23): Undeclared identifier: 'sleep'


y quiero mostrar el splashscreen porque tengo alli publicidad y una imagen muy buena que quiero q vean los usuarios!

[[eduarcol]]

porq no colocas el dpr completo porq a mi me funciona lo que dices

[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.