Как получить доступ к папке "Мои документы" в Delphi на разных версиях Windows

Delphi , Файловая система , Директории

При работе с Delphi часто возникает необходимость обращения к стандартным папкам операционной системы Windows, в том числе и к папке "Мои документы". В этом обзоре мы рассмотрим, как получить путь к этой папке, учитывая различные версии Windows и возможности пользователя изменять структуру каталогов.

Использование CSIDL в Delphi

Для начала стоит упомянуть, что в Windows существует несколько стандартных каталогов, известных как "Common Shell Items" или "Special Folders". Они идентифицируются с помощью констант CSIDL_*. Одна из таких констант — CSIDL_PERSONAL, которая соответствует папке "Мои документы".

Вот пример кода на Object Pascal, который позволяет получить путь к папке "Мои документы" в Delphi:

uses
  ActiveX, ShlObj;

procedure TForm1.Button1Click(Sender: TObject);
var
  Allocator: IMalloc;
  SpecialDir: PItemIdList;
  FBuf: array[0..MAX_PATH] of Char;
begin
  if SHGetMalloc(Allocator) = NOERROR then
  begin
    SHGetSpecialFolderLocation(Form1.Handle, CSIDL_PERSONAL, SpecialDir);
    SHGetPathFromIDList(SpecialDir, @FBuf[0]);
    Allocator.Free(SpecialDir);
    // Путь к папке "Мои документы" находится в переменной FBuf
  end;
end;

Важность локализации и изменения пути

Необходимо помнить, что пути к стандартным папкам могут быть локализованы и изменены пользователем. Например, в некоторых версиях Windows путь к "Моим документам" может быть локализован или пользователем перемещен в другое место, например, C:\Documents.

Для корректной работы в разных локализациях и версиях Windows рекомендуется не добавлять имя папки как строгую константу, например, '\\Documents', так как это может быть неверно для целевой системы. Вместо этого следует использовать предоставляемые операционной системой пути.

Подтвержденный ответ: CSIDL_PERSONAL и CSIDL_MYDOCUMENTS

Согласно документации Microsoft, CSIDL_PERSONAL начиная с версии 6.0 Windows соответствует виртуальной папке "Мои документы". В предыдущих версиях это был физический каталог, например, C:\Documents and Settings\username\My Documents. Важно различать виртуальную папку в пространстве имен и физический каталог. Для доступа к виртуальной папке следует использовать SHGetFolderLocation.

Альтернативный ответ: Использование TPath.GetDocumentsPath

Если вы используете последнюю версию Delphi (XE5 или выше), то можете воспользоваться новыми класссами, которые не зависят от платформы. Включите System.IOUtils в список uses и используйте TPath.GetDocumentsPath для получения пути к папке "Мои документы".

uses
  System.IOUtils;

var
  DocsPath: string;
begin
  DocsPath := TPath.GetDocumentsPath;
  // Путь к папке "Мои документы" находится в переменной DocsPath
end;

Заключение

Для получения пути к папке "Мои документы" в Delphi можно использовать различные подходы, в зависимости от версии Delphi и операционной системы. Важно учитывать локализацию и возможность изменения пользователем стандартных путей. Используя предоставленные Microsoft константы и классы, можно обеспечить корректную работу приложения в различных условиях.

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

Вопрос касается получения доступа к папке 'Мои документы' в Delphi на разных версиях Windows, с учетом локализации и возможных изменений пользователя.

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

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

:: Главная :: Директории ::