Fórum Abrir somente uma aplicação #308705

Ploblema classico..

Muitas soluçoes...

Mas no meu entendimento a melhor forma foi apresentada aqui no site pelo amigo e então sumido Cybeer.. Esta mesma solução , diga-se de passagem se encontra nas paginas do livro a ´Biblia´ de marco Cantu

Procure por Mutex

ta ai un exemplo de mutex isso ai vai no source do projeto

program Project1;

uses
Forms,
windows,
sysutils,
dialogs,
Unit1 in ´Unit1.pas´ ;

{$R *.res}
var
mu: tHandle;
begin
Application.Initialize;
mu:=CreateMutex(nil,True,PChar(Uppercase(ExtractFileName(Application.ExeName))));
if (mu = 0) or (GetLastError = error_Already_Exists) then
begin
ShowMessage(´A aplicação já esta rodando ´);
Application.Terminate;
end;
try
Application.Initialize;
Application.Title := ´..:: By Guilherme ::..´;
Application.CreateForm(TForm1, Form1);
Application.Run;
finally
ReleaseMutex (mu);
end;
Application.CreateForm(TForm1, Form1);
Application.Run;