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 null’unità WinDos, che ci permettono di ricordare facilmente tali valori:
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:
Se il file C:\Funzio~1.txt è un file di sola lettura, viene convertito in un normale file d’archivio, altrimenti viene settato come file di sola lettura.
faArchive : file d’archivio (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 d’archivio, altrimenti viene settato come file di sola lettura.
A cura di: Il Totem