Fórum WinExec executar aplicativo uma vez apenas! #525662

var
  hCalcWindow: HWND;
begin
  // Localizar uma janela baseado apenas em seu título
  hCalcWindow := FindWindow(nil, 'Calculadora');
  // encontramos a janela?
  if hCalcWindow <> 0 then
    begin
     // Exibe (mostra a frente) a última janela usada com este nome
     SetForegroundWindow (hCalcWindow);
    end
  else
    begin
     // Abre a calculadora caso não houver nenhuma calculadora aberta
     WinExec('Calc.Exe', SW_NORMAL);
    end;
end;