Thema: Delphi deletefile und Konsorten

Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#5

Re: deletefile und Konsorten

  Alt 13. Nov 2009, 16:19
Hallo zusammen,

nach Euren Anregungen (vielen Dank nochmals!)
bin ich auf folgendes gekommen:

vorhandene und teilweise versteckt dokumentierte Dateiattribute:
Code:
$00000001 FILE_ATTRIBUTE_READONLY
$00000002 FILE_ATTRIBUTE_HIDDEN
$00000004 FILE_ATTRIBUTE_SYSTEM
$00000010 FILE_ATTRIBUTE_DIRECTORY
$00000020 FILE_ATTRIBUTE_ARCHIVE
$00000040 FILE_ATTRIBUTE_DEVICE        // Do not Use!!!!
$00000080 FILE_ATTRIBUTE_NORMAL
$00000400 FILE_ATTRIBUTE_REPARSEPOINT
$00000100 FILE_ATTRIBUTE_TEMPORARY
$00000800 FILE_ATTRIBUTE_COMPRESSED
$00001000 FILE_ATTRIBUTE_OFFLINE
$00002000 FILE_ATTRIBUTE_NOT_CONTENT_INDEXED
$00004000 FILE_ATTRIBUTE_ENCRYPTED
$00010000 FILE_ATTRIBUTE_VIRTUAL
diese Attribute sind teilweise nicht in der Windows.Pas vorhanden was aber von Version zu Version unterschiedlich ist.

DeleteFile steigt nur bei FILE_ATTRIBUTE_HIDDEN aus. Alle anderen Attribute behindern den Löschvorgang nicht (XP SP3 Prof)

Da ich für meine Aufgabe auch das Dateidatum beachten muß
werde ich wie folgt vorgehen
Code:
GetFileAttributesEX(Dateiname,GetFileExInfoStandard, @DateiInfo);
if Dateidatumzulassig(DateiInfo) then begin
  if (DateiInfo.dwFileAttributes and FILE_ATTRIBUTE_HIDDEN) >0 then
    Setfileattributes(Dateiname,FILE_ATTRIBUTE_NORMAL);
  Deletefile(Dateiname);
end;
Vielen Dank nochmal für Eure Anregungen!

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat