Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.052 Beiträge
 
Delphi 12 Athens
 
#1

geschützte Dateien auflisten (W2K+)

  Alt 9. Feb 2007, 13:54
Nachtrag zu
Code-Library -> Windows API / MS.NET Framework API -> Undokumentiert: SFC - geschützte Dateien auflisten (W2K+)


jetzt dokumentiert

MSDN-Library durchsuchenSfcGetNextProtectedFile > geschützte Dateien auflisten
MSDN-Library durchsuchenSfcIsFileProtected > 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.dllname 'SfcGetNextProtectedFile';

Function SfcIsFileProtected(RpcHandle: THandle; ProtFileName: PWideChar): LongBool; StdCall;
  External 'Sfc.dllname '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 MSDN-Library durchsuchenSfcGetNextProtectedFile weiterverlinkten Seiten zum Thema Installer umsehen...



PS: ich find es schon interessant, welche Dateien alle geschützt werden ... was ja nicht gerade wenig sind und wovon ich nicht gerade alle als wirklich schützenswert empfinde -.-''

[edit=CalganX]Jetzt hier in der Code-Library. Mfg, CalganX[/edit]
Angehängte Dateien
Dateityp: zip windowsfileprotectionu_123.zip (196,7 KB, 8x aufgerufen)
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
  Mit Zitat antworten Zitat