Fórum Impedir o aplicativo de ser executado mais de uma vez #223493

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.