Mega Code Archive

 

Categories / Delphi / Files

 

Bir klasörün özelliginin degistirilmesi

Asagidaki kod örneginde, bir klasörün "Hidden" özelligi degistirilmektedir. Function DirectoryHide(Const FileString : String): Boolean; Var Attributes : Integer; Begin Result := False; Try If Not DirectoryExists(FileString) Then Exit; Attributes := faDirectory + faHidden + faSysFile; FileSetAttr(FileString,Attributes); Result := True; Except End; End; --- Function DirectoryUnHide(Const FileString : String): Boolean; Var Attributes : Integer; Begin Result := False; Try If Not DirectoryExists(FileString) Then Exit; Attributes := faDirectory; FileSetAttr(FileString,Attributes); Result := True; Except End; End;