Newsgroup: it.comp.lang.delphi
Titolo: [Delphi 6] modifica attributi file.

Salve devo scrivere una routine che al click di un pulsante mi cambi
l'attibuto "nascosto" di un file.
Mi spiego meglio, ho necessità di salvare il contenuto di un "Memo1" in un
file e renderlo nascosto. per salvare il Memo1 faccio così:
Memo1.Lines.SaveToFile('C:\save.txt'); ma ho notato che se il file
"save.txt" è già nascosto di partenza il programma mi da errore e non mi
salva il file, se invece lo salvo quando l'attributo "nascosto" non è
attivo, non ci sono problemi...
...ho provato ad usare il comando FileSetAttr(); ma non sono riuscito a
farlo andare... e cmq non ho ben capito come usarlo.
Qualche aiuto? (anche diversi dalle soluzioni che ho scelto)
:)

nessuno mi risponde? :(
"Void" <chie...@qui.ok> ha scritto nel messaggio
news:QPhI7.7288$5l.1...@news1.tin.it...
[cut]

Void wrote:

Prova ad usare le Api. Li c'è una funzione SetFileAttributes che fa al caso
tuo.
"
BOOL SetFileAttributes(
    LPCTSTR lpFileName, // address of filename
    DWORD dwFileAttributes  // address of attributes to set
);
Parameters
lpFileName
Points to a string that specifies the name of the file whose attributes are to
be set.
Windows 95: This string must not exceed MAX_PATH characters.
Windows NT: There is a default string size limit for paths of MAX_PATH
characters. This limit is related to how the SetFileAttributes function parses
paths. An application can transcend this limit and send in paths longer than
MAX_PATH characters by calling the wide (W) version of SetFileAttributes and
prepending "\\?\
" to the path. The "\\?\" tells the function to turn off path parsing; it lets
paths longer than MAX_PATH be used with SetFileAttributesW. This also works
with UNC names. The "\\?\" is ignored as part of the path. For example,
"\\?\C:\myworld\private" is seen as "C:\myworld\private", and "
\\?\UNC\bill_g_1\hotstuff\coolapps" is seen as "\\bill_g_1\hotstuff\coolapps".
dwFileAttributes
Specifies the file attributes to set for the file. This parameter can be a
combination of the following values. However, all other values override
FILE_ATTRIBUTE_NORMAL.
Value Meaning
FILE_ATTRIBUTE_ARCHIVE The file is an archive file. Applications use this
value to mark files for backup or removal.
FILE_ATTRIBUTE_HIDDEN The file is hidden. It is not included in an ordinary
directory listing.
FILE_ATTRIBUTE_NORMAL The file has no other attributes set. This value is
valid only if used alone.
FILE_ATTRIBUTE_OFFLINE The data of the file is not immediately available.
Indicates that the file data has been physically moved to offline storage.
FILE_ATTRIBUTE_READONLY The file is read-only. Applications can read the file
but cannot write to it or delete it.
FILE_ATTRIBUTE_SYSTEM The file is part of the operating system or is used
exclusively by it.
FILE_ATTRIBUTE_TEMPORARY The file is being used for temporary storage. File
systems attempt to keep all of the data in memory for quicker access rather
than flushing the data back to mass storage. A temporary file should be
deleted by the application as soon as it is no longer needed.
Return Values
If the function succeeds, the return value is nonzero.
If the function fails, the return value is zero. To get extended error
information, call GetLastError.
Remarks
You cannot use the SetFileAttribute function to set a file's compression
state. Setting FILE_ATTRIBUTE_COMPRESSED in the dwFileAttributes parameter
does nothing. Use the DeviceIoControl function and the FSCTL_SET_COMPRESSION
operation to set a file's compression state."
Magari prima controlli se il file è nascosto e se lo è, ne modifichi
l'attributo e poi lo rinascondi, se ti va.
Per vedere se il file è nascosto puoi usare  GetFileAttributes, sempre delle
Api. Ricorda che devi inserire tra le uses ShellApi (mi sembra sia questo il
nome della unit).
Ciao e buon divertimento.
    By Enri'S

     By Enri'S
grazie 1000 provo subito :)

     By Enri'S
il procedimento funziona, ma non riesco a dare + attributi insieme, cioè se
do' nascosto mi toglie gli altri, se do archivio mi toglie gli altri...
ho provato a compilare con una virgola tra gli attributi, ma vuole solo 1
parametro, ho provato a compilare con un "and" e lo compila, ma non cambia
gli attributi poi...
:(
sai/sapete come si fa?

Void wrote:

Prova ad usare or es: primo_attributo or secondo_attributo etc.
Ciao
        By Enri'S