Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi geschützte Dateien auflisten (W2K+) (https://www.delphipraxis.net/86123-geschuetzte-dateien-auflisten-w2k.html)

himitsu 9. Feb 2007 12:54


geschützte Dateien auflisten (W2K+)
 
Liste der Anhänge anzeigen (Anzahl: 1)
Nachtrag zu
Code-Library -> Windows API / MS.NET Framework API -> Undokumentiert: SFC - geschützte Dateien auflisten (W2K+)


jetzt dokumentiert :angel:

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. :shock:


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 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]

Olli 9. Sep 2007 01:14

Re: geschützte Dateien auflisten (W2K+)
 
Da schaut man nach unbeantworteten Beiträgen und findet seine eignen Sünden von vor vier Jahren :lol:


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:32 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz