Исправление ошибки записи в файл с ограничениями UAC в Delphi XE3

Delphi , ОС и Железо , Windows

Пользователи Delphi иногда сталкиваются с проблемой, когда программа, работающая в среде разработки, не может записать данные в файлы на системном диске C: из-за ограничений, связанных с контролем учетных записей пользователей (UAC). В данной статье мы рассмотрим, как решить проблему записи в файлы на системном диске без использования прав администратора.

Описание проблемы

Разработчики, работающие с Delphi XE3 под управлением Windows 8, могут столкнуться с ошибкой "Access denied", когда пытаются записать текст из компонента Memo в файл .txt, расположенный на диске C:. При этом программа работает корректно, если запущена в среде разработки (временный .exe находится на диске D:). После копирования программы на диск C:, ошибка начинает проявляться. Попытки создать манифест также не приводят к успеху. Пользователи не хотят запускать программу от имени администратора, так как это решает проблему, но не является предпочтительным решением.

Подход к решению

Для начала следует понять, что ограничения UAC предназначены для защиты системы и пользовательских данных. Они предотвращают запись в системные каталоги, такие как Program Files, чтобы избежать потенциально вредоносного поведения программ.

Альтернативные локации для записи файлов

Чтобы решить проблему, необходимо выбрать директорию, в которую программа имеет право на запись. Например, можно использовать папку Documents пользователя или другие специальные папки для хранения данных приложения. В Delphi для работы со специальными папками можно использовать функцию SHGetFolderPath.

uses
  SysUtils, ShlObj;

function GetSpecialFolderPath(const folder: TSHFolderEnum): string;
var
  pPath: PChar;
  hResult: HRESULT;
begin
  hResult := SHGetFolderPath(0, Ord(folder), TUserSid.CurrentSid, 0, pPath);
  try
    Result := pPath;
  finally
    SysFreeString(pPath);
  end;
end;

const
  TSFFolderEnum = (sfDesktop, sfFavorites, sfNetConnects, sfPrograms, sfStartMenu, sfRecent, sfSendTo, sfBitBucket, sfFlags, sfSysFolder, sfMyDocuments, sfMyMusic, sfMyPictures, sfMyVideos, sfDesktopDirectory, sfInternetCache, sfCookies, sfHistory, sfCommonAppData, sfWindows, sfAllUsersProfile, sfPrintHoodSystem, sfLocalAppData, sfAdminTools, sfCommonDocuments, sfCommonPictures, sfCommonMusic, sfCommonVideo, sfStartup, sfCommon, sfCommonOEMLinks, sfCDBurning, sfMyMusic15, sfProgramFilesCommon, sfProgramFilesCommonX86, sfProgramFilesCommonOEM, sfUserProfile, sfProgramFilesProgramDataCommon, sfCommonPrograms, sfWindowsOld, sfCommonAppDataLow, sfInternetCacheLow, sfInitialCache, sfSystemXDSLShare, sfSystemShare1023, sfUserProfiles, sfProgramDataCommon, sfProgramDataCommonX86, sfCommonProgramFiles, sfCommonProgramFilesX86, sfCommonProgramFilesCommon, sfCommonProgramFilesCommonX86, sfProgramFiles3, sfProgramFilesProgramData, sfProgramFilesProgramDataX86, sfCommonFilesCommon, sfOemLinks, sfUserProfileCommon, sfUserProgramData, sfUserProgramDataCommon, sfTemplates, sfSystem);

Используйте перечисление TSFFolderEnum для получения пути к нужной папке. Например, sfMyDocuments вернет путь к папке Documents пользователя.

Пример кода

uses
  ShlObj;

var
  Path: string;
begin
  Path := GetSpecialFolderPath(sfMyDocuments);
  // Теперь можно использовать переменную Path для записи файла
end;

Важные замечания

Использование глобальных переменных и файлов следует минимизировать до тех пор, пока это не станет действительно необходимым. Это связано с лучшими практиками разработки и безопасностью приложений.

Заключение

Изменение локации для записи файлов на допустимую, такую как Documents пользователя, является простым и эффективным решением проблемы записи в файлы на системном диске с ограничениями UAC. Это позволяет избежать необходимости запускать программу от имени администратора и обеспечивает безопасность системы.

Создано по материалам из источника по ссылке.

Пользователи Delphi XE3 сталкиваются с проблемой записи в файлы на системном диске из-за ограничений UAC и ищут способ решить эту проблему, не прибегая к запуску программы от имени администратора.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::