Dateiattribute setzen (aus der D3 Onlinehilfe)<\/p>\n
Delphi erm\u00f6glicht es Ihnen, die Attribute jeder beliebigen Datei zu jedem beliebigen Zeitpunkt zu setzen.
\nUm die Attribute einer Datei zu setzen,
\n\u00dcbergeben Sie den Dateinamen und die gew\u00fcnschten Attribute an die Prozedur FileSetAttr..
\n
\nBeispiel<\/p>\n
Der folgende Quelltext liest die Attribute einer Datei in eine Mengenvariable aus, setzt die Markierungsfelder des Dialogfelds Dateiattribute so, da\u00df sie die aktuellen Attribute anzeigen, und f\u00fchrt das Dialogfeld dann aus. \u00c4ndert und \u00fcbernimmt der Anwender Einstellungen des Dialogfelds, setzt der Quelltext die Dateiattribute so, da\u00df sie den ge\u00e4nderten Einstellungen entsprechen:<\/p>\n
[code lang=”delphi”]procedure TFMForm.Properties1Click(Sender: TObject);
\nvar
\n Attributes, NewAttributes: Word;
\nbegin
\n with FileAttrForm do
\n begin
\n FileDirName.Caption := FileList.Items[FileList.ItemIndex];\t{ Fenstertitel setzen }
\n FilePathName.Caption := FileList.Directory;\t{ Verzeichnisnamen anzeigen }
\n ChangeDate.Caption := DateTimeToStr(FileDateTime(FileList.FileName));
\n Attributes := FileGetAttr(FileDirName.Caption);\t{ Dateiattribute auslesen }
\n ReadOnly.Checked := (Attributes and faReadOnly) = faReadOnly;<\/p>\n
Archive.Checked := (Attributes and faArchive) = faArchive;
\n System.Checked := (Attributes and faSysFile) = faSysFile;
\n Hidden.Checked := (Attributes and faHidden) = faHidden;
\n if ShowModal <> then\t{ Dialogfeld ausf\u00fchren }
\n begin
\n NewAttributes := Attributes;\t{ mit den urspr\u00fcnglichen Attributen beginnen }
\n if ReadOnly.Checked then NewAttributes := NewAttributes or faReadOnly
\n else NewAttributes := NewAttributes and not faReadOnly;<\/p>\n
if Archive.Checked then NewAttributes := NewAttributes or faArchive
\n else NewAttributes := NewAttributes and not faArchive;
\n if System.Checked then NewAttributes := NewAttributes or faSysFile
\n else NewAttributes := NewAttributes and not faSysFile;
\n if Hidden.Checked then NewAttributes := NewAttributes or faHidden
\n else NewAttributes := NewAttributes and not faHidden;<\/p>\n
if NewAttributes <> Attributes then\t{ hat sich etwas ge\u00e4ndert… }
\n FileSetAttr(FileDirName.Caption, NewAttributes);\t{ …die neuen Werte schreiben }
\n end;
\n end;
\nend;
\n[\/code]<\/p>\n
[tags]Delphi, File[\/tags]<\/p>\n","protected":false},"excerpt":{"rendered":"
Dateiattribute setzen (aus der D3 Onlinehilfe) Delphi erm\u00f6glicht es Ihnen, die Attribute jeder beliebigen Datei zu jedem beliebigen Zeitpunkt zu setzen. Um die…<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"spay_email":""},"categories":[11],"tags":[75,99],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p71Tml-1L","_links":{"self":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/109"}],"collection":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/comments?post=109"}],"version-history":[{"count":0,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/posts\/109\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/media?parent=109"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/categories?post=109"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.nsonic.de\/blog\/wp-json\/wp\/v2\/tags?post=109"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}