Вверх ↑
Ответов: 294
Рейтинг: 64
#1: 2009-12-28 08:13:10 ЛС | профиль | цитата
Vanchila
И что, заработает?

Byuik
В твоем варианте, значение ProgramFilesDir ищется не там.
Оно не в HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders,
а в HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion.
А ReadDirKey читает по первому адрессу.

Можно так добавить:

procedure ReadDirKey1(var _Data:TData; const name:string);
var
reg:HKey;
begin
reg:=RegKeyOpenRead(HKEY_LOCAL_MACHINE,'Software\Microsoft\Windows\CurrentVersion');
dtString(_Data,RegKeyGetStr(reg,Name) + '\');
RegKeyClose(reg);
end;

procedure THIDir._var_ProgramFilesDir;
begin
ReadDirKey1(_Data,'ProgramFilesDir');
end;
карма: 0

0