Не пойму, как использовать переменную %USERPROFILE%
К сожалению в элементе DIR её нету. Кстати, может не трудно добавить?
code_28178.txt

Редактировалось 4 раз(а), последний 2021-05-21 07:55:35

г. ость, с ума сойти.
Вот тут лучше:
code_28181.txt

Netspirit, оформи нормальным компонентом. Не забудь нижнюю точку добавить

nesco, была такая идея. Думаешь, стоит делать отдельный компонент только для одной функции? Может, запихнуть в какой-нибудь существующий?

В компонент Папки (Dir), по-моему было бы к месту.

Так переменные окружения - это не только папки... Может, ComputerInfo?
Хотя нет. Переменные окружения - это свойство программы. Наверное, лучше в Application.

Согласен, но что касается путей - то в папку.
Туда же можно добавить:
%ALLUSERSPROFILE%
%APPDATA%
%HOMEDRIVE%
%HOMEPATH% (чем от %USERPROFILE% отличается не знаю)
%SYSTEMDRIVE%

Это переменный системы. И только отдельным компонентом. Не заморачивайтесь, я сейчас нарисую его

Компонент Dir трогаться не будет
------------ Дoбавленo в 12.33:
Netspirit, подумай, можно ли сделать перечисление всех переменных окружения

nesco, http://msdn.microsoft.com/en-us/library/windows/desktop/ms683187(v=vs.85).aspx


При запуске твоей программы ей можно передать произвольный набор переменных как параметр функции CreateProcess. Правда, не знаю, разворачивает ли функция ExpandEnvironmentStrings переменные и из этого блока.
------------ Дoбавленo в 12.50:
[offtop]А компонент Dir стоило бы переделать на использование функции SHGetSpecialFolderPath, а не реестра.[/offtop]

Инициатива наказуема -- исправления в студию

А-а, хитрый. Как будет свободное время - попробую.

Заодно и вот это попробуй


PS Да, а куда воткнем компонент ExpandEnv, в какую вкладку

nesco, посмотри.
code_28183.txt
------------ Дoбавленo в 13.43:
Да, если компонент будет не только раскрывать переменные, то стоит назвать не ExpandEnv а, например, EnvVars.
Надо ещё добавить методы на основе функций GetEnvironmentVariable and SetEnvironmentVariable
------------ Дoбавленo в 13.44:
Ах, забыл добавить:

Работает. Осталось добавить