david
49101ee5ae
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@147 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2
44 lines
1.3 KiB
ObjectPascal
44 lines
1.3 KiB
ObjectPascal
program FactuGES;
|
|
|
|
uses
|
|
Forms,
|
|
Windows,
|
|
SysUtils,
|
|
uFactuGES_App,
|
|
Dialogs,
|
|
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',
|
|
uBootStrap in 'uBootStrap.pas',
|
|
VCLFixPack in 'VCLFixPack.pas';
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
{Hay un problema con Windows 7 x64 y Delphi.
|
|
Windows no informa bien de la configuración regional.}
|
|
|
|
SetThreadLocale(LOCALE_USER_DEFAULT);
|
|
GetFormatSettings;
|
|
|
|
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.
|
|
|
|
uBootStrap.Initialize;
|
|
uBootStrap.Run; // <- Aquí dentro está Application.Run
|
|
uBootStrap.Terminate;
|
|
|
|
Application.Terminate; //<- No descomentar para así ver los Memory Leaks
|
|
end.
|
|
|