Pascal/Turbo Pascal - Error 150 disk is write-protect

Cuando quiero volver a ejecutar un programa de archivos, en el RESET o REWRITE me arroja este error. No encuentro la vuelta. Espero que alguien me pueda ayudar pronto ya que debo rendir un examen y necesito saber si mi programa funciona correctamente.

Si lo que quieres es evitar que el Programa se detenga por ese tipo de errores, mira este ejemplo:

Var
Ch :Text;

Begin
Assign(Ch, 'C:\Autoexec.bat');
{$I-}
Reset(Ch);
{$I+}
If (IOResult>0) then
WriteLn('Archivo no encontrado')
Else
Begin
Close(Ch);
WriteLn('OK');
End; {If}
End.

La dirctiva de comnpilación "$I-" desactiva la detención del programa por errores al realizar operaciones con diskettes. El "$I+" vuelve a dejarle el contro al Sistema. En "IOResult" se almacenan los códigos de error generados.

Espero que sea lo que necesitabas. Saludos ;-)

Eso podria funcionar, pero ¿se podria escribir en la archivo aun cuando este protegido contra escritura?. Cecila revisaste que el disco no estuviera protegio contra escritura.

Si no fuera problema de Diskette, puede que el archivo esté protegido contra escritura, con lo que se podría probra con lo siguiente:

Var
OldAttr :Word;
Ch :Text;

Begin
Assign(Ch, 'C:\autoexec.bat');
{$I-}
GetFAttr(Ch, OldAttr);
SetFAttr(Ch, Archive);
Reset(Ch);
{$I+}
If (IOResult>0) then
WriteLn('Imposible abrir archivo')
Else
Begin
Close(Ch);
SetFAttr(Ch, OldAttr);
WriteLn('OK');
End; {If}
End.

Saludos ;-)