Geschützte Dateien (SFC) auflisten

[CalganX]

Nachtrag von himitsu:

jetzt dokumentiert

SfcGetNextProtectedFile > geschützte Dateien auflisten
SfcIsFileProtected > prüfen ob eine Datei geschützt ist


Diese Funktionen sind mir zufällig über'n Weg gelaufen und vorm Posten hab'sch dann noch den Thread eines altbekannten DP-Users entdeckt.


hier mal die wichtigsten Funktionen aus der Sfc.dll.

Delphi-Quellcode:

Type PROTECTED_FILE_DATA = packed Record
    FileName: packed Array[0..MAX_PATH-1] of WideChar;
    FileNumber: LongWord;
  End;

Function SfcGetNextProtectedFile(RpcHandle: THandle; Var ProtFileData: PROTECTED_FILE_DATA): LongBool; StdCall;
  External 'Sfc.dll' name 'SfcGetNextProtectedFile';

Function SfcIsFileProtected(RpcHandle: THandle; ProtFileName: PWideChar): LongBool; StdCall;
  External 'Sfc.dll' name 'SfcIsFileProtected';



Var ProtFileData: PROTECTED_FILE_DATA;

Begin
  ProtFileData.FileNumber := 0;
  While SfcGetNextProtectedFile(0, ProtFileData) do
    Memo1.Lines.Add(IntToStr(ProtFileData.FileNumber) + ': ' + ProtFileData.FileName);
End;

Wer selber Dateien schützen, oder daran was ändern will, der kann sich ja in den unter SfcGetNextProtectedFile weiterverlinkten Seiten zum Thema Installer umsehen...