blob: 8ad27ed855123dd65e0323e62f6e71cda52cc35d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
with GNAT.Registry; use GNAT.Registry;
package body Windows_Default_Path is
function Get_Windows_Default_Path return String
is
Key : HKEY;
begin
Key := Open_Key (HKEY_LOCAL_MACHINE, "Software\Ghdl");
declare
Res : String := Query_Value (Key, "Install_Dir");
begin
return Res & "\lib\";
end;
exception
when Registry_Error =>
-- Do not write an error message, but return a useful default path.
return "{missing HKLM\Software\Ghdl\Install_Dir key}\lib\";
end Get_Windows_Default_Path;
end Windows_Default_Path;
|
