|
Per rendere un file nascosto, o di sola lettura, o anche di sistema, esiste una semplice procedura: SetFAttr(file:text;attr:word) (il parametro file può essere anche di tipo file). Nel parametro attr vanno inseriti dei numeri che rappresentano il nuovo stato del file: fortunatamente, ci sono delle costanti definite nullunità WinDos, che ci permettono di ricordare facilmente tali valori:
faArchive : file darchivio (normali)
faReadOnly : sola lettura
faHidden : nascosto
faSysFile : di sistema
faAnyFile : qualunque file
faDirectory : cartella
Queste sono anche le costanti rappresentanti i valori restituiti dalla funzione GetFAttr(t:text). Ecco un esempio di come settare e analizzare il tipo di file:
var t:text;
(*...*)
Assign(t,C:Funzio~1.txt);
if GetFAttr(t)=faReadOnly then
SetFAttr(t,faArchive)
else
SetFAttr(t,faReadOnly);
(*...*)
Se il file C:\Funzio~1.txt è un file di sola lettura, viene convertito in un normale file darchivio, altrimenti viene settato come file di sola lettura.
|
|