* Na primeira linha do programa inicial, o "Medical - Gestão de Clinicas Médicas" deve ser o teu _screen.caption
If Em_Execucao()
MESSAGEBOX("O programa já esta em Execução - Veja a Barra de Ferramentas", ;
16+0+0, "Arranque!!!")
Return
ENDIF

*********************
function Em_Execucao
Local lnWinHandle
Declare Integer FindWindow In Win32API;
Integer, String
lnWinHandle=FindWindow(0,"Medical - Gestão de Clinicas Médicas")
If lnWinHandle # 0
Return .T.
Else
Return .F.
EndIf
EndFunc