voce in HKEY_CURRENT_USER

[Romeo]

Ciao,

non riesco piu' a trovare l'esempio che mi permette di creare nuove variabili in hkey_current_user

Esempio, in key:

: EditWithPDFArchitech=1 (1)
...\Software\PdfCreator\Program ho varie variabili : LastSaveDirectory=c:\test (2)
: OpenOutputFile=1 (3)
: (4)
ma mi manca la variiabile: Pippo

Come faccio ad inserire la variabile Pippo come (4) variabile ?

Ho provato con RegCreateKey() e RegSetKey() ma canno qualcosa...

Grazie

Romeo/Zingoni

[Enrico Maria Giordano]

Romeo,

Ciao,

non riesco piu' a trovare l'esempio che mi permette di creare nuove variabili in hkey_current_user

Esempio, in key:

: EditWithPDFArchitech=1 (1)
...\Software\PdfCreator\Program ho varie variabili : LastSaveDirectory=c:\test (2)
: OpenOutputFile=1 (3)
: (4)
ma mi manca la variiabile: Pippo

Come faccio ad inserire la variabile Pippo come (4) variabile ?

Ho provato con RegCreateKey() e RegSetKey() ma canno qualcosa...

Grazie

Romeo/Zingoni

Prova con questo esempio. E' un po' vecchio ma potrebbe funzionare.

Code: Select all  Expand view  RUN

#include "Fivewin.ch"


#define HKEY_CURRENT_USER 2147483649

#define REG_DWORD 4


FUNCTION MAIN()

    LOCAL hKey := 0

    IF ! ISWINNT(); RETURN NIL; ENDIF

    REGCREATEKEY( HKEY_CURRENT_USER, "Test", @hKey )
    REGSETVALUE( hKey, "TestValue", 0, REG_DWORD, L2BIN( 1 ), 4 )
    REGCLOSEKEY( hKey )

    RETURN NIL


DLL32 FUNCTION REGCREATEKEY( hKey AS LONG, cSubKey AS LPSTR, @nHandle AS PTR ) AS LONG;
      PASCAL FROM "RegCreateKeyA" LIB "advapi32.dll"

DLL32 FUNCTION REGSETVALUE( hKey AS LONG, cValueName AS LPSTR, nReserved AS LONG, nType AS DWORD, cData AS LPSTR, nData AS DWORD ) AS LONG;
      PASCAL FROM "RegSetValueExA" LIB "advapi32.dll"

DLL32 FUNCTION REGCLOSEKEY( hKey AS LONG ) AS LONG;
      PASCAL FROM "RegCloseKey" LIB "advapi32.dll"

EMG