Este código fue tomado de la ayuda de Delphi7:
Código:
var
Attrs : Word;
begin
Attrs := FileGetAttr('MyFile.sys');
if Attrs and faHidden <> 0 then
FileSetAttr('MyFile.sys', Attrs – faReadOnly);
end;
Te recomiendo leer la
Guía de Estilo, para una mejor convivencia en el foro.