Hola.
En Delphi 7 el
Library Path se almacena en el registro de Windows, en la clave
HKEY_CURRENT_USER\Software\Borland\Delphi\7.0\Library.
Entonces para leer y/o agregar rutas, bastan dos funciones:
Código Delphi
[-]
...
uses Registry;
function ReadSearchPath: string;
var
rg: TRegistry;
begin
rg := TRegistry.Create;
try
rg.RootKey := HKEY_CURRENT_USER;
if rg.OpenKey('\Software\Borland\Delphi\7.0\Library', False) then
begin
Result := rg.ReadString('Search Path');
rg.CloseKey;
end;
finally
rg.Free;
end;
end;
procedure SaveSearchPath(const Path: string);
var
rg: TRegistry;
begin
rg := TRegistry.Create;
try
rg.RootKey := HKEY_CURRENT_USER;
if rg.OpenKey('\Software\Borland\Delphi\7.0\Library', False) then
begin
rg.WriteString('Search Path', Path);
rg.CloseKey;
end;
finally
rg.Free;
end;
end;
Seguramente la clave debe cambiar bastante en XE8..., pero sería cosa de hurgar un poco en el registro para ver donde almacena esa información y probar...
Saludos