Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как определить путь к "\Program Files\" в XP? [D7, XP]

Тоха © (2006-06-29 11:25:00)
Вот приспичило. Подскажыте плиз как определить путь к "\Program Files\" в XP?если не трудно то с римерчиком.
Для меня WinAPI тёмный и злой лес. %(

Тоха (2006-06-29 13:25:00) [1]

> PSPF2003

Спсибо, попробую. Риально в реестре все валяется.
Век живу - век учусь.

Loginov Dmitry (2006-06-29 13:23:00) [2]
> Как определить путь к "\Program Files\" в XP?

Очень просто:

procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
begin
SetLength(S, 255);
ExpandEnvironmentStrings('%ProgramFiles%', PChar(S), 255);
Caption := S;
end;

PSPF2003 (2006-06-29 11:56:00) [3]
А разве по реестру нельзя?

RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\', False);
ReadString('ProgramFilesDir');

DrPass (2006-06-29 11:49:00) [4]

> Amoeba © (29.06.06 11:44) [2]

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

Amoeba (2006-06-29 11:44:00) [5]

> Плохиш © (29.06.06 11:29) [1]
> http://www.swissdelphicenter.ch/de/showcode.php?id=233

Путь к "\Program Files\" это не покажет, а покажет всего лишь путь к папке, где хранятсь ярлыки из соответствующего раздела меню "Пуск".

Кроме того, папок "\Program Files\" запросто может быть и больше одной, т.е. не только одна единственная папка на логическом диске C:.

Плохиш (2006-06-29 11:29:00) [6]
http://www.swissdelphicenter.ch/de/showcode.php?id=233

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »