Impedir o aplicativo de ser executado mais de uma vez

Delphi

31/03/2004

Provavelmente esse tópico já deve ter sido discutido aqui no forum mas não conseguir encontrar nada; então fica a pergunta: Como posso garantir que meu aplicativo seja executado uma única vez?

:?:


Tatuweb

Tatuweb

Curtidas 0

Respostas

Spider

Spider

31/03/2004

coloque + ou - assim no DPR

var
  Hwnd: Thandle; //variavel de controle da aplicacao

begin
  Hwnd := FindWindow (nil,´Minha Aplicacao´); // procura aplicacao
  if Hwnd= 0 then // se nao encontrou
  begin 
    application.Title:=´Minha Aplicacao´; // nomeia a aplicacao
    Application.Initialize; // seque normalmente
    Application.CreateForm(TFrm_Principal, Frm_Principal);
    Application.Run;
  end
  else // se encontrou
     SetForegroundWindow (Hwnd); //manda foco para aplicacao
end.



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

31/03/2004

Colega,

CreateMutex! Veja o detalhamento neste tópico: http://delphiforum.icft.com.br/forum/viewtopic.php?t=36544


GOSTEI 0
POSTAR