procedure FileRestore(CABNameFile, OriginalNameFile, NameFolder : String);
var i : integer;
begin
 for i := 65 to 90 do
   if FileExists(Chr(i) + ':\i386\' + CABNameFile) then 
    begin
      ExecuteFile('expand.exe ' + Chr(i) + ':\I386\' + CABNameFile + ' ' + NameFolder + OriginalNameFile, '', 0, 10000, true);
      ExecuteFile('expand.exe ' + Chr(i) + ':\I386\' + CABNameFile + ' %windir%\system32\dllcache\' + OriginalNameFile, '', 0, 10000, true);
      AddToLog('    ' + Chr(i) + ':\I386\');
      Break;
    end;
 SaveLog(GetAVZDirectory + 'SafeZone.log');
end;

begin
 ShowMessage('   Windows');
 FileRestore('ntfs.sys', 'ntfs.sys', '%windir%\system32\drivers\'); //  : cab-  
end.