Einzelnen Beitrag anzeigen

Amateurprofi

Registriert seit: 17. Nov 2005
Ort: Hamburg
1.057 Beiträge
 
Delphi XE2 Professional
 
#1

Zeichen für Datei-Attribute

  Alt 4. Aug 2024, 03:59
Gibt es eine Funktion, die für ein Datei-Attribut den/die Buchstaben/Zeichen liefert, die Windows für dieses Attribut verwendet.
Für die gängigen Attribute sind die mir bekannt, aber für einige bin ich nicht fündig geworden.
Ich weiß, dass für einige (viele) Werte keine Konstanten definiert sind.
Die Frage ist, was zum Beispiel im Explorer angezeigt wird, wenn eine Datei solche Attribute hat.
Könnte ich vielleicht herausfinden, indem ich für eine Datei diese Attribute setze.
Allein: Wollen hätte ich gern gewollt, aber dürfen hab ich mich nicht getraut.

In der nachstehenden Tabelle sind die mir nicht bekannten Zeichen = '?' gesetzt - um die geht es mir.

Code:
   FileAttributes:Array[0..31] of TFileAttribute=
      ((Bit:0; Attribute:1;         Text:'R'; LongText:'ReadOnly')
      ,(Bit:1; Attribute:2;         Text:'H'; LongText:'Hidden')
      ,(Bit:2; Attribute:4;         Text:'S'; LongText:'System')
      ,(Bit:3; Attribute:8;         Text:'?'; LongText:'Unknown')
      ,(Bit:4; Attribute:16;        Text:'D'; LongText:'Directory')
      ,(Bit:5; Attribute:32;        Text:'A'; LongText:'Archive')
      ,(Bit:6; Attribute:64;        Text:'?'; LongText:'FutureUse')
      ,(Bit:7; Attribute:128;       Text:'N'; LongText:'Normal')
      ,(Bit:8; Attribute:256;       Text:'T'; LongText:'Temporary')
      ,(Bit:9; Attribute:512;       Text:'P'; LongText:'SparseFile')
      ,(Bit:10; Attribute:1024;      Text:'?'; LongText:'ReparsePoint')
      ,(Bit:11; Attribute:2048;      Text:'C'; LongText:'Compressed')
      ,(Bit:12; Attribute:4096;      Text:'?'; LongText:'OffLine')
      ,(Bit:13; Attribute:8192;      Text:'?'; LongText:'NotContentIndexed')
      ,(Bit:14; Attribute:16384;     Text:'E'; LongText:'Encrypted')
      ,(Bit:15; Attribute:32768;     Text:'?'; LongText:'IntegrityStream')
      ,(Bit:16; Attribute:65536;     Text:'?'; LongText:'Virtual')
      ,(Bit:17; Attribute:131072;    Text:'?'; LongText:'NoScrubData')
      ,(Bit:18; Attribute:262144;    Text:'?'; LongText:'RecallOnOpen')  //EA
      ,(Bit:19; Attribute:524288;    Text:'?'; LongText:'Pinned')
      ,(Bit:20; Attribute:1048576;   Text:'?'; LongText:'Unpinned')
      ,(Bit:21; Attribute:2097152;   Text:'?'; LongText:'Unknown')
      ,(Bit:22; Attribute:4194304;   Text:'?'; LongText:'RecallOnDataAccess')
      ,(Bit:23; Attribute:8388608;   Text:'?'; LongText:'Unknown')
      ,(Bit:24; Attribute:16777216;  Text:'?'; LongText:'Unknown')
      ,(Bit:25; Attribute:33554432;  Text:'?'; LongText:'Unknown')
      ,(Bit:26; Attribute:67108864;  Text:'?'; LongText:'Unknown')
      ,(Bit:27; Attribute:134217728; Text:'?'; LongText:'Unknown')
      ,(Bit:28; Attribute:268435456; Text:'?'; LongText:'Unknown')
      ,(Bit:29; Attribute:536870912; Text:'?'; LongText:'Unknown')
      ,(Bit:30; Attribute:1073741824; Text:'?'; LongText:'Unknown')
      ,(Bit:31; Attribute:2147483648; Text:'?'; LongText:'Unknown'));
Gruß, Klaus
Die Titanic wurde von Profis gebaut,
die Arche Noah von einem Amateur.
... Und dieser Beitrag vom Amateurprofi....
  Mit Zitat antworten Zitat