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

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

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

hiDir.pas


Dir.ini