Iniciar Procedure antes do sistema
24/02/2016
0
Boa tarde,
É possível fazer uma procedure que seja executada antes do sistema iniciar? Por exemplo:
Eu criei um procedure e gostaria que ela fosse executada antes do primeiro formcreate, ou seja, seria a primeira procedure que meu programa executará. Isso é possível? Se for, como seria?
É possível fazer uma procedure que seja executada antes do sistema iniciar? Por exemplo:
Eu criei um procedure e gostaria que ela fosse executada antes do primeiro formcreate, ou seja, seria a primeira procedure que meu programa executará. Isso é possível? Se for, como seria?
Gabriel
Curtir tópico
+ 0
Responder
Post mais votado
24/02/2016
Aperte CTRL + V em cima do seu Projeto:
Abrirá uma UNIT referente ao seu Project, no exemplo abaixo, o meu se chama FolhaPagamento:
Abrirá uma UNIT referente ao seu Project, no exemplo abaixo, o meu se chama FolhaPagamento:
program FolhaPagamento; uses Vcl.Forms, UFrm.Geral.Main in 'Forms\Geral\UFrm.Geral.Main.pas' , USystem.Connection in 'System\USystem.Connection.pas', USystem.SQL in 'System\USystem.SQL.pas', USystem.Control in 'System\USystem.Control.pas', UFrm.LogIn.LogIn in 'Forms\LogIn\UFrm.LogIn.LogIn.pas' , UFrm.Cad.Funcionario in 'Forms\Cadastros\UFrm.Cad.Funcionario.pas' , UExe.Funcionario in 'Exes\UExe.Funcionario.pas', UExe.Funcao in 'Exes\UExe.Funcao.pas', USystem.Classes in 'System\USystem.Classes.pas', UFrm.Cad.SelecionarFuncionario in 'Forms\Cadastros\UFrm.Cad.SelecionarFuncionario.pas' , UFrm.Cad.Funcao in 'Forms\Cadastros\UFrm.Cad.Funcao.pas' ; {$R *.res} // Aqui você simplesmente digita a procedure procedure Teste; var T: String; begin T := 'teste'; if T = 'teste' then raise Exception.Create('deu certo'); end; begin ReportMemoryLeaksOnShutdown := System.True; Application.Initialize; Application.MainFormOnTaskbar := True; Teste; // e aqui antes de criar o form principal (TFMain), você executa a procedure; Application.CreateForm(TFMain, FMain); Application.Run; end.
Rafael Bosco
Responder
Mais Posts
24/02/2016
Raylan Zibel
Você pode criar e chamar uma procedure/function direto no arquivo dpr, antes mesmo de criar os DataModules e Forms.
Responder
Clique aqui para fazer login e interagir na Comunidade :)