Mega Code Archive

 

Categories / Delphi / Files

 

File attributelarını deiştirmek

//kullanımı procedure TForm1.Button1Click(Sender: TObject); begin FileSetAttr('C:\windows\desktop\a.txt', faHidden); end; //diğer attribute'ler faReadOnly //salt okunur faHidden //gizli faSysFile //sistem dosyası faVolumeID //bi boka yaramıyo faDirectory //buda bi boka yaramıo faArchive //arşiv faAnyFile //salt okunur + gizli + sistem dosyası + arşiv //başka bi kullanımı FileSetAttr('C:\Autoexec.bat', faReadOnly + faHidden); //dosya attribute olayını boş bırakmak için if (FileGetAttr(FileName) and faReadOnly) > 0 then FileSetAttr(FileName, FileGetAttr(FileName) xor faReadOnly); //yeniden salt okunur olarak ayarlamak FileSetAttr(FileName, FileGetAttr(FileName) or faReadOnly);