Быстрые функции для получения путей до папок

Папка Windows

function GetWindowsDirectoryP: string;
begin
    SetLength(Result, MAX_PATH);
    SetLength(Result, GetWindowsDirectory(@Result[1], Length(Result)));
end;

Папка пользователя

unit Winapi.ShlObj;
function GetUserProfile: string;
var buffer: array[0..MAX_PATH] of Char;
begin
    Result := '';
    if Succeeded( SHGetFolderPath(0, CSIDL_PROFILE, 0, 0, buffer)) then
        Result := StrPas(buffer);
end;

Рабочий стол пользователя

unit Winapi.ShlObj;
function GetUserProfile: string;
var buffer: array[0..MAX_PATH] of Char;
begin
    Result := '';
    if Succeeded( SHGetFolderPath(0, CSIDL_DESKTOP, 0, 0, buffer)) then
        Result := StrPas(buffer);
end;