lecojales,
Conseguiu resolver, para esse problema eu faço assim:
If isExeRunning("SucPocket")
oWnd:=FindWindow(0,"SucPocket")
If !(oWnd==0) // Aberto
MsgStop("Já se encontra em aberto!!!","SucPocket")
BringWindowToTop(FindWindow(0,"SucPocket"))
SetForegroundwindow(FindWindow(0,"SucPocket"))
Quit
EndIf
EndIf
SucPocket é o nome da janela do seu aplicado
Essa função faz o seguinte, quando vc executar novamente o seu programa ela mostrar uma mensagem e trás para frente o programa. No windows mobile eu deixei um atalho no menu iniciar para facilitar o acesso. Com isso esse tipo de problema eu não tenho.
Espero que lhe ajude.
Fivewin 8.12 + XHarbour Build 1.1.0 + WorkShop + vLib + SqlLib + MySQL 5.0.27 + xDev Studio + FWPPC
E-mail: leandrolopes@success.inf.br
Msn: leandroptu@ada.com.br
Paracatu/MG