Путь к папке Program files

← →
Mesha (2004-04-26 16:11) [0]

Подскажите функцию, которая определяет путь к папке Program files для сохранения файлов конфигурации своего приложения. Есть функция GetWindowsDirectory, которая позволяет определить каталог Windows для сохранения конфигураций. Но администратор закрыл это каталог на запись

← →
han_malign © (2004-04-26 16:14) [1]

может, все таки, лучше ExtractFilePath(ParamStr(0))?

← →
Тимохов © (2004-04-26 16:19) [2]

вот так получается my documents.
гляньте доку к SHGetSpecialFolderLocation - там будет, то что вам нужно.
VAR
kBuf: array [0..MAX_PATH] of Char;
kPIDL: PItemIDList;
BEGIN
SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, kPIDL);
SHGetPathFromIDList(kPIDL,@kBuf[0]);
Result := PChar(@kBuf[0]);
END;

ЗЫ. Настройки можно хранить в реестре.

← →
Mesha (2004-04-26 16:30) [3]

> [1] han_malign © (26.04.04 16:14)
> может, все таки, лучше ExtractFilePath(ParamStr(0))?

Нет, программа может запускаться с сервера.

> [2] Тимохов © (26.04.04 16:19)

А что такое SHGetSpecialFolderLocation ?

← →
Тимохов © (2004-04-26 16:35) [4]

> Mesha (26.04.04 16:30) [3]

У вас MSDN есть?
Нет? Очень плохо - обязательно купите и установите, в крайнем случае можете залезть на msdn.microsoft.com далее сслыка libriary.

> Нет, программа может запускаться с сервера.

Забудте про programm files - пишите в реестр.
Используйте класс делфи tregistry из модуля registry

← →
Тимохов © (2004-04-26 16:35) [5]

> Нет? Очень плохо - обязательно купите и установите, в крайнем
> случае можете залезть на msdn.microsoft.com далее сслыка
> libriary.

далее поиском по строке SHGetSpecialFolderLocation...

Mesha (26.04.04 16:30) [3]
Ну и что, будет UNC имя, и зачем тогда тебе папка Program files, в которой не будет твоей программы и также будет закрыть доступу, для хранения настроек пользователя выделена специальная папка, это не виндоус и не программые файлы.

А почему в Delphi не работают такие вещи как:
%systemroot%
%userprofile%
%windir%
и т.д.

> А почему в Delphi не работают такие вещи как:

Работают. Их надо правильно использовать. Например, читать про функцию ExpandEnvironmentStrings

Путь к папке Program files Найти похожие ветки