unit utestattr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetFileAttrstr(filename:string):string;
var   attrs    : Integer;
begin
   // Get the file attributes
    attrs := FileGetAttr(fileName);
    result:='';
    // Display these attributes
    if attrs and faReadOnly > 0
    then result:='File is read only';

    if attrs and faHidden > 0
    then result:=result+'File is hidden';

    if attrs and faSysFile > 0
    then result:=result+#13#10+'File is a system file';

    if attrs and faVolumeID > 0
    then result:=result+#13#10+'File is a volume ID';

    if attrs and faDirectory > 0
    then result:=result+#13#10+'File is a directory';

    if attrs and faArchive > 0
    then result:=result+#13#10+'File is archived';

    if attrs and faSymLink > 0
    then result:=result+#13#10+'File is a symbolic link';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  fileName : string;
  f: Textfile;
  fatr:integer;
begin
  if OpenDialog1.Execute then
  begin

    fileName:=OpenDialog1.FileName;
    Memo1.Text:= GetFileAttrstr(fileName);
    fatr:= FileGetAttr(fileName);
    FileSetAttr(fileName, fatr xor faReadOnly);
    // Try to open a text file for writing to
    AssignFile(f, OpenDialog1.FileName);
    Append(f);
    Writeln(f, '');
    Writeln(f, 'Ось тут я дописую що хочу. і атрибути мені пофігу.');
    { insert code here that would require a Flush before closing the file }
    Flush(f);  { ensures that the text was actually written to file }
    CloseFile(f);

    // Make the file read only and system
    FileSetAttr(fileName, fatr);
  end;
end;

end.