exeUnicaVez( cTitle, lInicio ) -> lUnica
Revisa si el programa ya se está ejecutando y le da el foco.
Parámetros
cTitulo
Título de la ventana
lInicio
Indica si solamente se revisa solamente el inicio del
título de la ventana
Devuelve
lUnica
Devuelve si el programa solamente se está ejecutando
una vez
Descripción
Revisa en las tareas de windows si existe una con el título de
la ventana indicado, si es así le da el foco y devuelve .f., en
caso contrario devuelve .t..
Si lInicio es verdadero, solamente compara que el título de las
tareas comience con cTitulo, si es falso o no se envía, revisa
que sea identico.
Ejemplo
function main
local oWnd
IF exeUnicaVez( "Mi programa ", .t. )
define window oWnd title
"Mi programa " + dtoc( date() )
activate window oWnd
ENDIF
return nil