Category: Files
Title: Set or change file attributes
Date added: 15.03.2006
Hits: 3038


procedure TForm1.Button1Click(Sender: TObject);
begin
  with OpenDialog1 do
    if Execute then
      if SetFileAttributes(PChar(Filename), FILE_ATTRIBUTE_HIDDEN) then
        Caption:='attribute was changed'
      else
        Caption:='attribute was not changed';
end;

1. How to find out total size of directory? (2053 Hits)

2. How to append one file to other? (2412 Hits)

3. How to move a file in the recycle bin? (1911 Hits)

4. How to convert Short filenames to Long filenames? (1368 Hits)

5. How to show the select directory dialog? (4295 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.