program FactuGES; uses Forms, Windows, SysUtils, uFactuGES_App, uPantallaPrincipal in 'uPantallaPrincipal.pas' {fPantallaPrincipal}, uMenuUtils in 'Utiles\uMenuUtils.pas', uSplash in 'uSplash.pas' {SplashScreen}, uAcercaDe in 'uAcercaDe.pas', uNavPaneController in 'uNavPaneController.pas', uNavPaneUtils in 'Utiles\uNavPaneUtils.pas', uMainMenuController in 'uMainMenuController.pas', uClienteUtils in 'Utiles\uClienteUtils.pas'; {$R *.res} var Version : String; begin Application.Initialize; ReportMemoryLeaksOnShutdown := True; // ˇˇˇFallo en Delphi 2007!!! // Tengo que ponerlo a false porque si no el formulario principal no se puede poner por encima de los formularios hijos. // Luego, en el formulario principal cambio los paramátros para obligar a que aparezca el icono en la barra de tareas. Application.MainFormOnTaskbar := False; Application.Title := AppFactuGES.AppName; { fActualizacion := TfActualizacion.Create(Application); try if fActualizacion.HayConfiguracion then fActualizacion.Actualizar; Version := fActualizacion.DarVersion; finally FreeAndNIL(fActualizacion); end;} Application.CreateForm(TfPantallaPrincipal, fPantallaPrincipal); Application.Run; Application.Terminate; end.