Aplicativo já em execução

[Rodrigo Miss 1]

Coloque issu no codigo do Projeto...

 

var  Mutex : THandle;{$R *.res}  begin  Mutex:= CreateMutex(nil, true, 'MinhaAplicacao');  if Mutex <> 0 then	  begin	  if GetLastError = Error_Already_Exists then		  begin		  Application.MessageBox('O sistema já está em execução!','MeuSistema', mb_Ok + mb_IconInformation);		  exit;		  end;	  end;  Application.Initialize;  Application.Title := 'Rodrigo';  Application.CreateForm(TForm1, Form1);  Application.Run;end.

[orc 0]

e para os esquecidinhos e ligeirinhos não esqueçam de Declarar no Uses a biblioteca Windows

 

 

Coloque issu no codigo do Projeto...

 

var
  Mutex : THandle;

{$R *.res}
  begin
  Mutex:= CreateMutex(nil, true, 'MinhaAplicacao');
  if Mutex <> 0 then
	  begin
	  if GetLastError = Error_Already_Exists then
		  begin
		  Application.MessageBox('O sistema já está em execução!','MeuSistema', mb_Ok + mb_IconInformation);
		  exit;
		  end;
	  end;

  Application.Initialize;
  Application.Title := 'Rodrigo';
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.