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;
|
ファイルの属性を取得する