Simple RegSetValue question

Simple RegSetValue question

Bild des Benutzers rahzan
rahzan
Di, 30/04/2002 - 18:49

In the code below the regsetvalueex call results in an access viol error. Any guesses on the problem will be appreciated?

use dfwin
implicit none
integer hKey , hNewOrOld, pathLen
integer(LONG) retval
character(100) path
retVal=RegCreateKeyEx(HKEY_CURRENT_USER, &
'Environment'C, 0,'REG_SZ'C, &
REG_OPTION_NON_VOLATILE, KEY_ALL_ACCESS, &
NULL, loc(hKey), &
loc(hNewOrOld))

path='c:\hh'
pathLen=len_trim(path)+1
path(pathLen:pathLen)=char(0)
retVal=RegSetValueEx(hKey, 'HedgeHog'C, 0, &
REG_SZ, loc(path), loc(pathLen))

retVal=RegCloseKey(hKey)

RSS Oben
5 Beiträge / 0 neu
Letzter Beitrag
Nähere Informationen zur Compiler-Optimierung finden Sie in unserem Optimierungshinweis.
Bild des Benutzers james@elementyl.com
  • Zum Verfassen von Kommentaren bitte anmelden.
james@elementyl.com
Mi, 01/05/2002 - 00:11

Eliminate the LOC on the last actual argument in the RegSetValueEx, it isn't expecting an address.

James

Oben
Bild des Benutzers rahzan
  • Zum Verfassen von Kommentaren bitte anmelden.
rahzan
Mi, 01/05/2002 - 15:13

Thank you James,
I don't know how I missed that, but a related question:

As you can see the arg "lpValueName" ('HEDGEHOG'C) is supposed to be a "Pointer to a string"
and the arg. "lpData" (=path) is supposed to be a "Pointer to a buffer". Now I don't know what a "buffer" is but is _looks like that it is a string as well.

Yet, I cannot seem to put in an explicit specification like 'c:h'C. (fials on compile: mismatch arg type)

Any idea why?

Thanks again,
TimH

Oben
Bild des Benutzers james@elementyl.com
  • Zum Verfassen von Kommentaren bitte anmelden.
james@elementyl.com
Mi, 01/05/2002 - 16:49

Should work if you put it inside a LOC.

James

Oben
Bild des Benutzers Steve Lionel (Intel)
  • Zum Verfassen von Kommentaren bitte anmelden.
Steve Lionel (Intel)
Mi, 01/05/2002 - 19:51

Because the "buffer" for RegSetValueEx can be of any type, what you must pass from Fortran is the address of the buffer, or loc(buffer). The value name ("HEDGEHOG"C) is just a string that can be passed directly.

Steve

Steve
Oben

Melden Sie sich an, um einen Kommentar zu hinterlassen.