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;
Ответов: 294
Рейтинг: 64
|
|||
карма: 0 |
|