Clipper/FiveWin - Sr.

Sr. Ramirez, no quiero entrar en polemica pero me parece una falta de respeto su respuesta y la forma de dirigirse a mi colega Mulato.
Si no tiene una respuesta concreta a la preguntas que se hacen en este foro lo mejor es quedarse Callado, y no contestar con expresiones como \" a lo mejor \", que solo hacen suponer que usted nunca ha aplicado esa solución es sus desarrollos.
Dicho lo anterior aqui te dejo el codigo fuente de lo que \" a lo mejor \" se puede hacer.
Como todo un \"experto\" que me imagino que eres, no hace falta que te explique que es lo que hace el codigo.
Este codigo es funcional para Clipper Puro y duro, asi como para Fw en todas sus versiones, no le he probado con Harbour.
*FUNCTION Protec( nAction )
#INCLUDE \"FIVEWIN.CH\"
#INCLUDE \"FileIO.CH\"
FUNCTION Protec()
LOCAL nHandle := 0
LOCAL cBuffer := space( 32 )
cFile := cGetFile(\"*.*\")
nAction := 0
nHandle := FOpen( cFile, FO_READWRITE + FO_SHARED )
//DEFAULT nAction := 1
if nHandle != -1
if FRead( nHandle, @cBuffer, 32 ) == 32
if nAction == 0 // Proteger
if SubStr( cBuffer, 1, 1 ) <> Chr( 26 )
cBuffer := Chr( 26 ) + SubStr( cBuffer, 1, 31 )
endif
else // Desproteger
if SubStr( cBuffer, 1, 1 ) == Chr( 26 )
cBuffer := SubStr( cBuffer, 2, 31 ) + Chr( 0 )
endif
endif
FSeek( nHandle, 0 )
FWrite( nHandle, cBuffer, 32 )
endif
FClose( nHandle ) %0