FoxPro/Visual FoxPro - Ejecutar unica instancia de un programa

Saludos a Todos.
En la semana pasada puse un post sobre como seria la mejor forma para que un programa sea ejecutada en una sola instancia, que no se repita la ejecucion del mismo programa. Al final decidí utilizar uno de los metodos, el mas simple......
Ahora por favor quisieran que Aprueben o Refuten esta Rutina.
...........................
FUNCTION F_INSTANCIAR
PUBLIC nHdlCorriendo
nHdlCorriendo=FCREATE("D:corriendo.txt")
IF nHdlCorriendo<0
SET SYSMENU OFF
_SCREEN.WindowStatE= 2
MESSAGEBOX("C U I D A D O !"+CHR(13)+CHR(13)+;
"USTED HA INTENTANDO EJECUTAR OTRA INSTANCIA DEL MISMO SISTEMA"+CHR(13)+;
"(Esta instancia se cerrara automaticamente)",(0+48),;
"DOBLE INICIO DEL SISTEMA",10000)
RELEASE WINDOWS
QUIT
ENDIF
RETURN salir
............................

Gracias por sus comentarios

El Letrero de "CUIDADO" podria asustar.

"Aviso"
"La aplicacion ya se esta ejecutando"
"Imposible ejecutar la aplicacion dos veces"

que tal.
ya suponia que estaba bien esta rutina.....
Sobre la advertencia CUIDADO!, es porque quiero poner un poco de miedo para que no se pongan a hacer travesuras con la PC.
.......
otra vez, Gracias por sus comentarios