Buscar por:

Verificar se determinado programa está em execução (word, delphi, etc)

Código

  { Verifica o Delphi }

  if FindWindow('TAppBuilder', nil) > 0 then

    ShowMessage('O Delphi está aberto')

  else

    ShowMessage('O Delphi NÃO está aberto');

  { Verifica o Word }

  if FindWindow('OpusApp', nil) > 0 then

    ShowMessage('O Word está aberto')

  else

    ShowMessage('O Word NÃO está aberto');

  { Verifica o Excell }

  if FindWindow('XLMAIN', nil) > 0 then

    ShowMessage('O Excell está aberto')

  else

    ShowMessage('O Excell NÃO está aberto');

end;