ファイルの属性を取得する

■ファイルの属性を取得する処理
procedure TForm1.Button1Click(Sender: TObject);
Var
 Ret : integer;
Const
 
FileName='C:\Windows\Calc.exe' ;
begin

 //属性を取得
 Ret :=FileGetAttr(FileName);

 Case Ret of
  faReadOnly : ShowMessage('下記のファイルは読み出し専用ファイルです' +#13#10+Filename) ;
  faHidden  : ShowMessage('下記のファイルは隠しファイルです'+#13#10+Filename) ;
  faSysFile : ShowMessage('下記のファイルはシステムファイルです'+#13#10+Filename) ;
  faVolumeID : ShowMessage('下記のファイルはボリュームファイルです'+#13#10+Filename);
  faDirectory: ShowMessage('下記のファイルはディレクトリファイルです'+#13#10+Filename);
  faArchive : ShowMessage('下記のファイルはアーカイブファイルです'+#13#10+Filename) ;
 else
  ShowMessage('予期せぬエラー');


end;



Delphi Tipsのページへ



ホーム