Execução Do Sistema

[wavrick]

Olá Gente,

Gostaria de sabe como eu faço para não deixa o minha aplicação abrir mais de uma vez, ex: eu já estou com o sistema aberto(em execução), e por um acaso eu abrir outro sem que tenha fechado o anterior, sem sei como eu faço para não deixar duas janelas do sistema aberta beleza, valeu.

[s3c]

Coloque no .dpr:

uses Windows, Dialogs;
var hMutex:THandle;
begin
  hMutex := 0;
  try
    hMutex := CreateMutex(nil, true, 'Caption da Aplicação');
    if GetLastError = ERROR_ALREADY_EXISTS then
    begin
      ShowMessage('Aplicação já está aberta !');
      CloseHandle(hMutex);  
    end
    else
    begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end;
  finally
    ReleaseMutex(hMutex);
  end;

[wavrick]

valeu cara , funcionou legal mermo