Arquivo aberto

Boa Tarde,

Como faço para checar se um arquivo executavel esta aberto, em delphi .


Obrigado