Iniciar Procedure antes do sistema

24/02/2016

1

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?
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:

    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.

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

24/02/2016

Gabriel

Funcionou, Obrigado!!!!!!!!!!
Responder