Был когдато расширенный компонент DIR , может кто поможет зделать его заново ?

Вот я две точки доделал , но никак не получу %ProgramFiles% ,возвращает пустую строку.

Посмотрите может я гдето накосячил ?

hiDir.pas


Dir.ini

Byuik, здарова! Вместо ReadDirKey(_Data,'ProgramFiles'); надо написать ReadDirKey(_Data,'ProgramFilesDir');
------------ Дoбавленo в 07.57:
anyway...

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;

Quest, Vanchila, спасибо , разобрался и понял в чём моя ошибка , теперь я понял почему отказались от расширенного компонента.
Вопрос снят. Тему в корзину.
------------ Дoбавленo в 11.29:
Ой забыл добавить , всё решается банально

Может кому тоже пригодится...