Como executar um programa apenas uma vez.

Question

Ae, j� vi isso em algum lugar aki do f�rum, mas n�o encontrei o t�pico... :cry: Meu programa, ao ser iniciado, conecta-se ao banco de dados e abre algumas tabelas. Essa tarefa � um pouco demorada, uns...

Lucas Silva · Answer

[code:1:bb92738075]var handle : integer;{$R *.RES}begin  Application.Initialize;  Handle := FindWindow(�TfrmPrincipal�, nil);  if Handle > 0 then     begin     { J� est� aberto }    end;[/code:1:bb92738075]...

Tenil · Answer

Lucas, valew, mas ainda estou com dificuldades, algu�m poderia ser mais detalhado???

Ou ent�o me explicar este c�digo?

O que est� acontecendo agora e que o programa n�o abre de jeito nenhum.

Lucas Silva · Answer

No Source (project -> view source) do seu programa vc coloca

var handle : integer;
{$R *.RES}

begin
  Application.Initialize;
  //abre o projeto uma fez somente
  Handle := FindWindow(�TfrmPrincipal�, nil); // esse frmPrincipal � o form MDI pai..... o principal do projeto....
  if Handle > 0 then begin { J� est� aberto }
  end;
  if IsWindowVisible(Handle) then begin
  ShowWindow(Handle, SW_MAXIMIZE);
  SetForegroundWindow(Handle);
  Exit;
  end; 
  Application.CreateForm(TfrmPrincipal, frmPrincipal);
  Application.Run;
end.

Deu pra entender melhor?

Tenil · Answer

Lucas, entendi melhor, por�m, ainda estou com problemas.

Vc poderia me tirar mais uma d�vida? � o seguinte: Meus formul�rios s�o criados na seguinte seq��ncia.

DataModule
FormPrincipal -> Este chama o FormLogin. O FormLogin, ap�s sua execu��o � liberado Formlogin.free.

Vou posta o c�digo original, para que vc possa me ajudar, ok?

program SecBrunelli;

uses
  Forms,
  Windows,
  Dialogs,
  Principal in �Principal.pas� ,
  DataModule in �DataModule.pas� {DMPrincipal: TDataModule},

  { Mais alguns formul�rios... }

  Login in �..\comum\Login.pas� ;

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := �Secretaria Dep. Brunelli�;
  Application.CreateForm(TDMPrincipal, DMPrincipal);
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.Run;
end.

No evento OnCreate do FormPrincipal:

  FormLogin := TFormLogin.Create(Application);
  FormLogin.ShowModal;
  FormLogin.Free;

Mano, desculpe o inc�modo, � que quero realmente APRENDER. Acho que a melhor forma de fazer isto � debatendo com colegas (e estudar tamb�m, claro!). :wink:

Mais uma vez, obrigado.

Lucas Silva · Answer

[code:1:d9a0e4073b]program SecBrunelli; uses   Forms,   Windows,   Dialogs,   Principal in �Principal.pas� ,   DataModule in �DataModule.pas� {DMPrincipal: TDataModule},   { Mais alguns formul�rios... }   Login in �..comumLogin.pas� ; {$R *.RES} begin   Application.Initialize;   Handle := FindWindow(�TFormPrincipal�, nil);   if Handle > 0 then begin { J� est� aberto }   end;   if IsWindowVisible(Handle) then begin   ShowWindow(Handle, SW_MAXIMIZE);   SetForegroundWindow(Handle);   Exit;   end;   Application.Title := �Secretaria Dep. Brunelli�;   Application.CreateForm(TDMPrincipal, DMPrincipal);   Application.CreateForm(TFormPrincipal, FormPrincipal);   Application.Run; end.[/code:1:d9a0e4073b]Tenta esse c�digo ai, se n�o der certo me d� o toque que tem outro jeito.....

Tenil · Answer

FUNCIONOU!Por�m ainda tem um pequeno probleminha.  :? Depois que a pessoa loga, funciona normalmente, a janela � maximizada e pronto. Mas, quando ainda est� na janela de login FormLogin ainda est� abrindo outras c�pias...Valew...

Cebikyn · Answer

Coloque exatamente assim no seu DPR, deve resolver seu problema:

program SecBrunelli;

uses
  Forms,
  Windows,
  Dialogs,
  Principal in �Principal.pas� ,
  DataModule in �DataModule.pas� {DMPrincipal: TDataModule},

  { Mais alguns formul�rios... }

  Login in �..\comum\Login.pas� ;

{$R *.RES}

begin
  CreateMutex(nil, True, �XyZzWw�);
  if GetLastError = ERROR_ALREADY_EXISTS then
    Exit;

  Application.Initialize;
  Application.Title := �Secretaria Dep. Brunelli�;
  Application.CreateForm(TDMPrincipal, DMPrincipal);
  Application.CreateForm(TFormPrincipal, FormPrincipal);
  Application.Run;
end.

Tenil · Answer

Yes, funcionou, vc poderia me explicar estas linhas?

CreateMutex(nil, True, �XyZzWw�); 
if GetLastError = ERROR_ALREADY_EXISTS then 
  Exit;

Se n�o for abusade d+, claro!

Obrigado a todos.

Cebikyn · Answer

[b:0da2073ed5]CreateMutex:[/b:0da2073ed5] Cria um Mutex (�XyZzWw�, mas vc pode por qq texto, desde que seja �nico), que o Windows vai guardar at� que seu programa seja finalizado.

Saiba mais em:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dllproc/base/createmutex.asp

[b:0da2073ed5]GetLastError:[/b:0da2073ed5] Vai verificar se ocorreu algum erro na cria��o do Mutex, no caso verifica se j� existia (ERROR_ALREADY_EXISTIS), se j� existia, ent�o � porque seu programa est� rodando, ent�o paramos a execu��o do c�digo de inicializa��o (Exit;).

F�rum Como executar um programa apenas uma vez. #215483