El Splash Screen se desaparece muy rápido

[[eduarcol]]

hola, te recomiendo una leidita a la guia de estilo para que entendamos mejor lo que preguntas

de momento se me ocurre debes agregar la unidad SysUtils en el uses.

otra cosa para que quieres que se tarde el splash??? no es una practica recomendada por eso no hay mucha info al respecto

[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