Array
(
)

Tela de Splash antes de carregar qualquer coisa

Darkducke
   - 05 abr 2006

Galera é o seguinte, tenho um sistema q esta muito grande, nele tenho varias units q fazem xamadas a dll´s de terceiros, de varias impressoras fiscais, sintegra e outras coisas... meu problema é que quando executo o sistema até q aparece a tela de splash q é aquela q todo mundo sabe..
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
bla bla bla....
demora muito... axo q é na declaração das units na uses
varias units dessas fazem xamadas as dlls, e axo q isso q demora aparecer a tela de splash, queria uma maneira de fazer a tela de splash aparecer antes de tudo.. para poder ficar esperando com a tela de splash aparecendo jah... alguem tem alguma ideia? ow fazer a tela de splahs antes ou uma outra maneira de nao carregar tudo isso, alguma coisa???


program FMInfo;

{¬ToDo ´FMInfo.todo´}

uses
Forms,
F_Prin in ´F_Prin.pas´ {FPrin},
F_Grupos in ´F_Grupos.pas´ {FGRupos},
UDM in ´UDM.PAS´ {DM: TDataModule},
F_ICMS in ´F_ICMS.pas´ {FICMS},
F_Unidades in ´F_Unidades.pas´ {FUnit},
.....
outras declarações
.....

{$R *.res}

begin
FSplash := TFSplash.Create(Nil);
FSplash.Show;
FSplash.Update;
.............
crianção dos forumularios
.............
FSplash.Update;
FSplash.Hide;
FSplash.Free;
Application.Run;
end.

:?: :?: :?: :?: :?: :?:


Citação:
Título editado por Massuda

Removido: ´URGENTE´