Fórum Várias execuções !!! me ajudem... #151914

program Project1;

uses
  Windows,
  Forms,
  FormPrincipal in ´FormPrincipal.pas´ ,

{$R *.RES}

begin
  // Verifica se já tem uma cópia da aplicação aberta
  if FindWindow(´TFrmPrincipal´, nil) <> 0 then
     Application.Terminate;

  // Segue normalmente
  Application.Initialize;
  Application.CreateForm(TFrmPrincipal, FrmPrincipal);
  Application.Run;
end.