forums.silverfrost.com

[jjgermis]

Hallo,

is it possible to access the windows registry using FTN95. The reason
for this is to extract the initial paths for a program that is called from
the FTN95 source.

[PaulLaidler]

Johannes

You can access the Registry using Windows API functions such RegOpenKeyEx and RegQueryValueEx that are declared in win32api.ins and the equivalent MODULE.

The documentation for these functions is in
http://msdn.microsoft.com/library/en-us/sysinfo/base/registry_functions.asp

[Anonymous]

Hi Paul,

I could not find an example and tried out the program below. There was a similar
question in the forum. However, I get the error - Retrun type is expected

Since I am using free format there should not be any truncation problems. What
could be the possible problem in this case?

[Anonymous]

Hi Paul,

I assume that by using

[PaulLaidler]

Johannes

Does the following program compile OK for you?


include "win32api.ins"
end


I did have a sample program that accesses the registry. I will see if I can find it.

[jjgermis]

Hi Paul,

it is working!

If you could send your sample program that access the registry it will help me a lot!

Thanks

[PaulLaidler]

IMPLICIT NONE
STDCALL RegOpenKey'RegOpenKeyA'(VAL,STRING,REF):INTEGER
STDCALL RegQueryValueEx'RegQueryValueExA'(VAL,STRING,REF,REF,STRING,REF):INTEGER
STDCALL RegCloseKey'RegCloseKey'(VAL):INTEGER
INTEGER,PARAMETER::HKEY_LOCAL_MACHINE=Z'80000002'
INTEGER,PARAMETER::BUFSIZE=256
INTEGER hKey,res,cbValue
CHARACTER(LEN=BUFSIZE) processorName
cbValue = BUFSIZE
res = RegOpenKey(HKEY_LOCAL_MACHINE,"HARDWAREDESCRIPTIONSystemCentralProcessor",hKey)
IF(res /= 0) STOP "ERROR:Cannot open registry key"
res = RegQueryValueEx(hKey,"ProcessorNameString",CORE4(0),CORE4(0),processorName,cbValue)
IF(res /= 0)THEN
PRINT*,"ERROR:Cannot read processor name"
ELSE
PRINT*,processorName(1:LEN_TRIM(processorName))
ENDIF
res = RegCloseKey(hKey)
end

[jjgermis]

Hi Paul,

thanks. This helps a lot

From the example I could get the the desired result!

What I did not know was the following:
80000000 -> HKEY_CLASSES_ROOT
80000001 -> HKEY_CURRENT_USER
80000002 -> HKEY_LOCAL_MACHINE
80000003 -> HKEY_USERS

[dheller]

Please allow me to resurrect this topic, because I have a similar problem right now.

My code, in a nutshell, opens a subkey of HKCU, enumerates its underlying sub-subkeys, and checks them for a certain value.

[PaulLaidler]

I am not able to give you a quick response. I have added it to my "to do" list.

[PaulLaidler]

Here is a small program to get the number of sub keys under Plato3.
The answer is 26.

Note that I have modified the binding for RegQueryInfoKey to pass a REF rather than an INSTRING. Also this is FTN95 so the handles are 32 bit integers.

[dheller]

Works for me now, thanks for your quick help.