Как определить путь к " Program Files " в XP?

← →
Тоха © (2006-06-29 11:25) [0]

Вот приспичило. Подскажыте плиз как определить путь к "\Program Files\" в XP?если не трудно то с римерчиком.
Для меня WinAPI тёмный и злой лес. %(

← →
Плохиш © (2006-06-29 11:29) [1]

http://www.swissdelphicenter.ch/de/showcode.php?id=233

← →
Amoeba © (2006-06-29 11:44) [2]

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

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

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

← →
DrPass © (2006-06-29 11:49) [3]

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

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

← →
PSPF2003 © (2006-06-29 11:56) [4]

А разве по реестру нельзя?

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

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

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

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

> PSPF2003

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

Как определить путь к " Program Files " в XP? Найти похожие ветки