Vb, Delphi, .net, framework, C++, Java, Pascal,Visual Studio, Asm, Ruby, C#, j#, Cs, Html, Php, Perl, Asp, xHtml Get Free Souce Code Here...

Changing attributes of files - Delphi

To read a file's attributes, pass the filename to the FileGetAttr function, which returns the file attributes of a file.For example, add a TButton  and TLabel components to the form and write the following code to the OnClick event of button.

if(attr and faHidden)<>0 then s:='Hidden';
if(attr and faReadOnly)<>0 then s:=s+'Read-Only';
if(attr and faSysFile)<>0 then s:=s+'System';
if(attr and faArchive)<>0 then s:=s+'Archive';
To set a file's attributes, pass the name of the file and the attributes you want to the FileSetAttr function.Each attribute has a mnemonic name defined in the SysUtils unit. For example, to set a file's system attribute, you would do the following:

Attributes := Attributes or faSystem;

You can also set or clear several attributes at once. For example, the clear both the read-only file and hidden attributes:

Attributes := Attributes and not (faReadOnly or faHidden);
Furthermore,To change file's attribute, you can use the following return values.The routine can be simplified.

     | Return Value | Attribute of File |  
     |   128        |   Normal          |
     |   1          |   Read Only       |  
     |   2          |   Hidden          |
     |   4          |   System          |
     |   32         |   Archive         |
Sample call: We use a code like the following:

FileSetAttr('C:\Autoexec.bat',3);{Hidden and Read-Only.        
                                   FileGetAttr returns 3 value}


Post a Comment