Как найти путь к папке AppData в среде Delphi: современные методы

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

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

Проблема

При работе с функциями запуска процессов в Delphi, разработчики могут столкнуться с проблемой некорректной работы кода, связанного с передачей переменных окружения, например, при использовании функции WinExec.

Пример кода, который не работает:

begin
  Winexec(PAnsichar('%appdata%\TEST.exe'), sw_show);
end;

Подтвержденный ответ

В данном случае необходимо сначала разрешить переменные окружения, а затем использовать полученный путь для запуска приложения. Вот пример кода, который решает проблему:

uses
  ..., SysUtils;

function GetPathToTestExe: string;
begin
  Result := SysUtils.GetEnvironmentVariable('APPDATA');
  if Result <> '' then
    Result := IncludeTrailingPathDelimiter(Result) + 'TEST.exe';
end;

uses
  ..., Windows;

var
  Path: string;
begin
  Path := GetPathToTestExe;
  if Path <> '' then
    WinExec(PAnsiChar(Path), SW_SHOW);
end;

Альтернативный подход

Также можно использовать функцию ExpandEnvironmentStrings, которая позволяет разрешить переменные окружения:

uses
  ..., SysUtils, Windows;

function GetPathToTestExe: string;
var
  Path: array[0..MAX_PATH+1] of Char;
begin
  if ExpandEnvironmentStrings('%APPDATA%', Path, Length(Path)) > 1 then
    Result := IncludeTrailingPathDelimiter(Path) + 'TEST.exe'
  else
    Result := '';
end;

Современные методы

Современные подходы рекомендуют использовать SHGetFolderPath или SHGetKnownFolderPath, которые являются более надежными и официальными способами получения пути к папке AppData:

uses
  ..., SysUtils, Windows, SHFolder;

function GetPathToTestExe: string;
var
  Path: array[0..MAX_PATH] of Char;
begin
  if SHGetFolderPath(0, CSIDL_APPDATA, 0, SHGFP_TYPE_CURRENT, Path) = S_OK then
    Result := IncludeTrailingPathDelimiter(Path) + 'TEST.exe'
  else
    Result := '';
end;

Или использовать функцию GetHomePath из модуля SysUtils, которая внутренне использует SHGetFolderPath:

function GetPathToTestExe: string;
var
  Path: string;
begin
  Path := SysUtils.GetHomePath;
  if Path <> '' then
    Result := IncludeTrailingPathDelimiter(Path) + 'TEST.exe'
  else
    Result := '';
end;

Рекомендация

Однако, следует отметить, что WinExec устарел и рекомендуется использовать CreateProcess для запуска приложений:

uses
  ..., Windows;

var
  Path: String;
  si: TStartupInfo;
  pi: TProcessInformation;

Path := GetPathToTestExe;
if Path <> '' then
begin
  ZeroMemory(@si, SizeOf(si));
  si.cb := SizeOf(si));
  si.dwFlags := STARTF_USESHOWWINDOW;
  si.wShowWindow := SW_SHOW;

  if CreateProcess(nil, PChar(Path), nil, nil, FALSE, 0, nil, nil, @si, pi)
  begin
    //... обработка процесса
    CloseHandle(pi.hThread);
    CloseHandle(pi.hProcess);
  end;
end;

Современные библиотеки

Для Delphi 7 и более новых версий можно использовать современные библиотеки, такие как System.IOUtils, для получения пути к папке AppData:

function GetAppDataFolder: string;
begin
  Assert(System.IOUtils.TPath.HasValidFileNameChars(AppName, FALSE), 'Invalid chars in AppName: '+ AppName);
  Result:= Trail(Trail(System.SysUtils.GetHomePath)+ AppName);
end;

function Trail(CONST Path: string): string;
begin
  if Path= '' then EXIT('');
  Result:= IncludeTrailingPathDelimiter(Path)
end;

Интеграция с системными константами

Для получения пути к локальной папке AppData можно использовать следующие константы:

program Project1;
{$mode objfpc}{$H+}
uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes;
function SHGetKnownFolderPath(const rfid: TGuid; dwFlags: DWORD; hToken: THandle; out ppszPath: PWideChar): HRESULT; stdcall; external 'shell32.dll' name 'SHGetKnownFolderPath';
const
  localAppdataGuid: TGuid = '{F1B32785-6FBA-4FCF-9D55-7B8E7F157091}';
var
  ppszPath: PWideChar;
begin
  SHGetKnownFolderPath(localAppdataGuid, 0, 0, ppszPath);
  Writeln(string(ppszPath));
  Readln;
end.

Путь к другим папкам можно получить, используя соответствующие константы KNOWNFOLDERID.

Заключение

При работе с папкой AppData в среде Delphi важно использовать современные и рекомендованные методы, такие как SHGetFolderPath, SHGetKnownFolderPath, или CreateProcess. Это обеспечит корректную работу приложения и его совместимость с современными версиями операционных систем Windows.

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

Вопрос касается методов получения пути к папке AppData в среде разработки Delphi для запуска приложения, с акцентом на современные и рекомендуемые подходы.

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

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

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