Fórum Inicializar Projeto #441797

program PROGRAMA

// DECLARAÇÃO DO USES

{$R *.res}

begin
  Application.Title := 'Título';
  Application.Run;
  Application.Terminate;
end.

unit UMInicializacao;

interface

  function inicia: boolean;

implementation

(*uses ...*)

function inicia: boolean;
begin
  Application.Title := 'Titulo';
  Application.Initialize;

//  Application.CreateForm(TCBancoDeDados, CBancoDeDados);
  CBancoDeDados :=  TCBancoDeDados.Create(Application);
  Direitos      := TCDireitos.Create;
  Configuracao  := TCConfiguracao.Create;
  
  traduzDevExpress;

  //Ler o arquivo de configuração
  if Configuracao.LerConfiguracao then
  begin
         //Verifica se existe usuário cadastrado,
        //se existir mostra o formulário de login,
        //caso contrário mostra o formulário principal
        if Direitos.ExisteUsuarioCadastrado then
        begin
          FLogin := TFLogin.Create(Application);
          if Flogin.MostraLogin then
            Application.CreateForm(TFPrincipal, FPrincipal);
        end
        else
        begin
          Application.CreateForm(TFPrincipal, FPrincipal);
        end;
      
  else
    MensagemDeDialogo('Arquivo de configuração não encontrado.', MB_OK);

  result := True;
end;

end.