DBR Delphi-Ecke

// Beim Rechnerstart wird auch die Datei "SFC.DLL" aus %SystemRoot%\System32
// geladen. Diese DLL implementiert verschiedene Schutz- und Prüfmechanismen
// um die Integrität der wichtigsten Systemdateien sicher zu stellen.
// Welche Dateien diesen besonderen Schutz genießen, kann man sich in einem
// TMemo anzeigen lassen (SFC = System File Check).

// Getestet mit D4 unter XP

type PROTECTEDFILE = packed record 
    FileName: packed array[0..pred(MAX_PATH)] of WideChar; 
    FileNumber: Cardinal; 
  end; 
 
function SfcIsFileProtected(RpcHandle: THandle; ProtFileName: PWideChar): 
  LongBool; stdcall; external 'sfc.dll'; 
 
function SfcGetNextProtectedFile(RpcHandle: THandle; var PF: 
  PROTECTEDFILE): LongBool; stdcall; external 'sfc.dll'; 
 
procedure TForm1.Button1Click(Sender: TObject); 
var PF: PROTECTEDFILE; 
begin 
  screen.cursor := crHourGlass; 
  Memo1.clear; 
  Memo1.Scrollbars := ssBoth; 
  Memo1.Lines.beginupdate; 
  PF.FileNumber := 0; 
  while SfcGetNextProtectedFile(0, PF) do 
    Memo1.Lines.Add(IntToStr(PF.FileNumber) + ': ' + PF.FileName); 
  Memo1.Lines.endupdate; 
  screen.cursor := crDefault; 
end;