Fórum Verificar se aplicação está sendo executada. #367573

var
  hHandle: THandle;
  sExename: string;
begin
  // Supondo que o nome do main form seja Form1
  hHandle := FindWindow(´TForm1´, nil); 
  if hHandle = 0 then
  begin  
    // Teste.exe é o nome do executável            
    sExename := ExtractFilePath(Application.ExeName)+´Teste.exe´;
  end
  else
  begin
      // Executa o programa - se estiver no drive C
      if ShellExecute(Handle, PChar(´open´), PChar(sExename),
                    0, PChar(´C:\´), SW_SHOWMINNOACTIVE) <= 32 then
      ShowMessage(´Executável não encontrado´);

var
  hHandle: THandle;
  sExename: string;
begin
  // Supondo que o nome da classe do main form seja TForm1
  hHandle := FindWindow(´TForm1´, nil);
  if hHandle <> 0 then
  begin
    ShowMessage(´Executável já rodando.´);
  end
  else
  begin
      // Executa o programa (chamado Teste.exe) - do diretório desta aplicação
      sExename := ExtractFilePath(Application.ExeName)+´Teste.exe´;
      if ShellExecute(self.Handle, PChar(´open´), PChar(sExename),
                    0, PChar(´C:\´), SW_NORMAL) <= 32 then
      ShowMessage(´Executável não encontrado´);
   end;
end;