Procedure RecurseDirectoriesNT(fromPath: WideString);
    Function IsProtectedFile(Const aFileName: WideString): Bool;
    Begin
      Result := @SfcIsFileProtected <> Nil;
      If Not Result Then Exit;
      Result := SfcIsFileProtected(0, PWideChar(DWORD(PWideChar(aFileName)) + 8));
    End;
  Var
    aFindData: Win32_Find_DataW;
    fHndl: THandle;
    aStr, rStr: WideString;
  Begin
    aStr := FromPath + .;
    fHndl := FindFirstFileW(PWideChar(aStr), aFindData);
    If fHndl = INVALID_HANDLE_VALUE Then Exit;
    Repeat
      If (WideString(aFindData.cFileName) = '.') Or (WideString(aFindData.cFileName) = '..') Then Continue;
      If aFindData.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY = FILE_ATTRIBUTE_DIRECTORY Then
      Begin
        rStr := fromPath + aFindData.cFileName + '\';
        RecurseDirectoriesNT(rStr);
        If aFindData.dwFileAttributes And FILE_ATTRIBUTE_READONLY = FILE_ATTRIBUTE_READONLY Then
          SetFileAttributesW(PWideChar(rStr), FILE_ATTRIBUTE_NORMAL);
        RemoveDirectoryW(PWideChar(rStr));
        Continue;
      End;
      rStr := FromPath + aFindData.cFileName;
      If Not IsProtectedFile(rStr) Then
      Begin
        If aFindData.dwFileAttributes And FILE_ATTRIBUTE_READONLY = FILE_ATTRIBUTE_READONLY Then
          SetFileAttributesW(PWideChar(rStr), FILE_ATTRIBUTE_NORMAL);
        DeleteFileW(PWideChar(rStr));
      End;
    Until Not FindNextFileW(fHndl, aFindData);
    FindClose(fHndl);
  End;