Sicherheitsattribut Datei zurücksetzen

[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.