Delphi - [решено] Нет доступа при копировании файлов в папку Windows\winsxs\Manife

Delphi - [решено] Нет доступа при копировании файлов в папку Windows\winsxs\Manife

Ветеран

Сообщения: 1158
Благодарности: 382

Народ, проблема такова , нужно скопировать файлы в папку Windows\winsxs\Manifests , но у меня выскакивает ошибка при копировании , отказано в доступе .
Хотя привилегии включены
SetPrivilege('SeBackupPrivilege', True);
SetPrivilege('SeRestorePrivilege', True);
+ манефест и запускаю от имени администратора .
С этими привилегиями у меня нет проблем при удалении файлов и папок и не нужно получать на их права . Ну вот столкнулся с проблемами при копировании. Использую функцию

Код:

 function CopyFiles(aSourceDir, aDestDir, aExt: string): Integer;

  procedure BuildFilesList(aPath, aBasePath, aExt: string; aOutTS: TStrings);
  var
    SR: TSearchRec;

    function ExpandRelativePath: string;
    var
      s: string;
    begin
      s := aPath + SR.Name;
      Delete(s, 1, Length(aBasePath));
      Result := s;
    end;

  begin
    ZeroMemory(@SR, SizeOf(SR));
    aPath := IncludeTrailingPathDelimiter(aPath);
    if aExt = EmptyStr then
      aExt := '*.*';
    try
      if (System.SysUtils.FindFirst(aPath + aExt, faAnyFile, SR) = 0) then
      begin
        repeat
          if (SR.Name <> '.') and (SR.Name <> '..') then
          begin
            if (SR.Attr and faDirectory) = faDirectory then
              BuildFilesList(IncludeTrailingPathDelimiter(aPath + SR.Name),
                aBasePath, aExt, aOutTS)
            else
              aOutTS.Add(ExpandRelativePath);
          end;
        until (System.SysUtils.FindNext(SR) <> 0);
      end;
    finally
      System.SysUtils.FindClose(SR);
    end;
  end;

var
  ts: TStringList;
  i, r: Integer;
begin
  Result := 0;
  r := 0;
  try
    ts := TStringList.Create;
    aSourceDir := IncludeTrailingPathDelimiter(aSourceDir);
    aDestDir := IncludeTrailingPathDelimiter(aDestDir);
    ForceDirectories(aSourceDir); // :D
    ForceDirectories(aDestDir); // (:
    BuildFilesList(aSourceDir, aSourceDir, aExt, ts);
    if ts.Count = 0 then
      Exit;
    for i := 0 to ts.Count - 1 do
    begin
      if FileExists(aSourceDir + ts[i]) then
      begin
        ForceDirectories(ExtractFileDir(aDestDir + ts[i]));
        if CopyFile(PChar(aSourceDir + ts[i]), PChar(aDestDir + ts[i]), False)
        then
          Inc(r);
      end;
    end;
  finally
    FreeAndNil(ts);
  end;
  Result := r;
end;

Как решить проблему ???

-------

UpdatePack 7 для интеграции обновлений в образ Windows 7 SP1 [X86\64]

UpdatePack 8.1 для интеграции обновлений в образ Windows 8.1 [X86\64]

UpdatePack 10 для интеграции обновлений в образ Windows 10 [X86\64]