Sicherheitsattribut Datei zurücksetzen

[Bernhard Geyer]

Wie kann ich die Dateieigentschaft "Die Datei stammt von einem anderen Computer. Der Zugriff wurde aus Sicherheitsgründen eventuell blockiert" programmiertechnisch zurücksetzen?
Möchte es vermeiden über einen eigene CopyFile-Routine das über einen Workaround zu realisieren.

[p80286]

Schleppt die Datei einen AlternateDatastream mit sich herum?
Bei den aktuellen Ws soll es den zwar nicht mehr geben, aber nachschauen schad' ja nicht.

Gruß
K-H

[Bernhard Geyer]

Ja, da gibt es einen ADS-Stream

[p80286]

Weg damit und gut ist.
(frag mich bitte nicht wie man es "richtig" macht, die drei mal die ich das gebraucht habe, hatte ich mir mit einer Kopie über einen FAT-Stick beholfen, weil mir der offizelle Weg zu aufwendig war.)

Gruß
K-H

[HolgerX]

Hmm..

da gibt es so eine schöne Unit:

http://www.michael-puff.de/Programmi...its/MpuADS.pas

Mit

Delphi-Quellcode:

procedure DeleteStream(const Filename: string; StreamName: string);
var
  adsr              : TMpuADS;
begin
  if length(StreamName) > 1 then begin
    if StreamName[1] = ':' then delete(StreamName,1,1);
    adsr := TMpuADS.Create(Filename);
    try
      try
        adsr.DeleteDataStream(StreamName);
      except
        on E: Exception do
          Writeln(E.Message);
      end;
    finally
      adsr.Free;
    end;
  end;
end;

und einem einfachem

DeleteStream(AFileName,':Zone.Identifier'); Würde das Problem mitd dem ADS von Internet-Files beseitigt werden.

[Bernhard Geyer]

Danke für die Tipps:

Ein Einfaches

DeleteFile(PChar(FFilename + ':' + StreamName)) löst das Problem.
Hätte hier erwartet das es irgendeine API-Funktion gibt, welche keiner kennt.