Terminar aplica��o no c�digo do .dpr

Question

Pessoal estou usando o m�todo [b:31ee1af4d4]Terminate[/b:31ee1af4d4] do objeto [b:31ee1af4d4]Application[/b:31ee1af4d4] antes de criar o formul�rio principal e alguns outros DataModules, por�m o sistema est� travando, pensei em utilizar o [b:31ee1af4d4]Halt(0)[/b:31ee1af4d4] mas n�o me livrou do problema... algum conselho?

Massuda · Answer

No DPR, basta n�o executar o Application.Run ou simplesmente sair com Exit.Use Application.Terminate de �dentro� do programa, depois que Application.Run � chamado, mas ainda n�o retornou....

Bruno Belchior · Answer

Eu usei o Application.Terminate mas antes do Run... Quer dizer que n�o funciona?...

Massuda · Answer

[quote:3f16d9c4bd=�Bruno Belchior�]Quer dizer que n�o funciona?[/quote:3f16d9c4bd]Fiz alguns testes e pelo que vi, deveria funcionar (embora eu prefira simplesmente n�o executar o Application.Run).

Qual � o c�digo no seu DPR?

Michael · Answer

[quote:328e429794=�Bruno Belchior�]Eu usei o Application.Terminate mas antes do Run... Quer dizer que n�o funciona?[/quote:328e429794]

O m�todo [b:328e429794]Run [/b:328e429794]do objeto [b:328e429794]Application [/b:328e429794]inicia o loop de mensagens da aplica��o. Se vc n�o quer que o aplicativo inicie, � melhor, como o [b:328e429794]Massuda [/b:328e429794]sugeriu, simplesmente n�o chamar a rotina, pois vc estar� economizando processamento. Sem chamar [b:328e429794]Run[/b:328e429794], a aplica��o n�o inicia propriamente dita.

J� fiz isso uma vez e meu c�digo foi mais ou menos assim:

if AlgumaCoisaQueBloqueieOInicioDaAplicacao then
...
else
begin
  Application.Initialize;
  ...
  Application.Run;
end;

[]�s

Bruno Belchior · Answer

A quest�o � que tenho um componente de auditoria na minha aplica��o (semelhante ao TUserControl), ent�o quando crio o DataModule onde o componente (n�o visual) est� contido, o formul�rio de auditoria aparece, digitando corretamente a senha e usu�rio tudo volta ao normal, mas se o usu�rio cancelar o login a aplica��o deve fechar, ent�o chamo Application.Terminate, mas como n�o chamei Application.Run ent�o esta travando a aplica��o...

Application.Initialize;
// Na Linha abaixo � chamado o FrmLogin...
Application.CreateForm(TDtMdlAuditoriaEscolar, DtMdlAuditoriaEscolar); 
Application.CreateForm(TFrmPrincipal, FrmPrincipal); 
Application.Run;

Massuda · Answer

Pelo que testei, o problema � que seu programa est� criando o form principal e provavelmente o form n�o deve funcionar corretamente no caso do usu�rio n�o estar autorizado a utilizar o programa.

Uma alternativa seria ter algo no DtMdlAuditoriaEscolar que indique se o login do usu�rio foi ou n�o aceito e assim criar ou n�o o form principal do programa e dar o Application.Run (isso tem a vantagem de evitar que o form principal pisque na tela).

Bruno Belchior · Answer

Mesmo tendo dado um Application.Terminate do DtmdlAuditoria quando vou conferir com a propriedade Terminated ela me retorna False...

if Application.Terminated = False the
  Application.Run; // Sempre entra aqui...

Massuda · Answer

[quote:6f8b35e2bf=�Bruno Belchior�]...quando vou conferir com a propriedade Terminated ela me retorna False...[/quote:6f8b35e2bf]Application.Terminated tem seu valor alterado pelo loop de mensagens do programa, que � iniciado quando voc� executa Application.Run; logo, no momento que voc� est� testando, Application.Terminated est� com o valor default, que � False.