Como saber se um programa está aberto?

if FindWindow(nil, ´Calculadora´) <> 0 then
    ShowMessage(´A Calculadora esta Aberta´)
  else
    ShowMessage(´A Calculadora não esta Aberta´);