[Sintaxis] Llamada a Advapi32.lib

[Josber]

A ver, he utilizado muchas veces la llamada a ésta API usando RegOpenKeyExA RegSetValueExA y RegCloseKey, aunque antes, siempre creaba a mano los valores necesarios en el registro de Windows para que no me diese ningún error, por lo que no tenía ningún problema, ahora quiero que si esas claves, no existen. crearlas, el problema es que cuando voy a usar RegCreateKeyEx, (me da igual usar esa que el Alias "RegCreateKeyExA", pasa lo mismo), al compilar, el "Linker" me tira el error

error LNK2001: unresolved external symbol _RegCreateKeyExA@20

Sé que esa función pertenece a esa librería, tengo el .lib incluido en el proyecto y también tengo incluido el parámetro ALPHAL(WORD), ¿alguna pista de qué puede pasar o faltar?, porque ya digo, con las otras llamadas a esa librería, no tengo ningún problema.

Muchas gracias

[fastpho]

Hola @Josber, prueba con la libreria de este link Labs/advapi32.lib at master · Aekras1a/Labs · GitHub , por que me pasaba algo parecido con la libreria winspool me daba el mismo error que a vos al compilar y @Kuk me paso un link donde hay varias librerias y funciono bien

Saludos...

[Josber]

Gracias @fastpho, he descargado esa librería y, aunque es un poco más grande que la mía (60k), sigue dando el mismo error

[fastpho]

@Josber, Podrias poner unas lineas de codigo para ver como llamas a la libreria


Saludos...

[Josber]

Sí claro @fastpho, sin problemas

*
 01  hkcu           PIC xxxx    VALUE x"01000080".
 01  currentuser redefines hkcu   PIC s9(9)   COMP-5.
 01  keyall             PIC xxxx    VALUE x"3F000000".
 01  allaccess REDEFINES keyall     PIC s9(9)   COMP-5.
 
 01  keywrite           pic xxxx    value x"00020006".
 01  kwrite    REDEFINES keywrite PIC s9(9)   comp-5.
 
 01  reg-sz             PIC s9(9)   COMP-5.
 01  handle             PIC s9(9)   COMP-5 VALUE 0. *> receives handle to the registry key
 01  len                PIC s9(9)   COMP-5 VALUE 0.
 01  res                PIC s9(9)   COMP-5 VALUE 0. *> Resultado de la operación
 01  SEC_ATTRIB         PIC S9(9)   COMP-5 VALUE 0. *> Descriptor de seguridad por defecto (0)
 01  NEW_OR_USED            PIC S9(9)   COMP-5.     *> receives flag for if the key was created or opened
 01  POW-ARG-KEY            PIC X(8192) VALUE SPACES.
 01  POW-ARG-NAME       PIC X(8192) VALUE SPACES.
 01  POW-ARG-VALUE      PIC X(8192).

     CALL "RegCreateKeyExA" WITH stdcall LINKAGE
          USING BY VALUE     handle
                BY VALUE     SEC_ATTRIB
                BY REFERENCE POW-ARG-KEY
                BY VALUE     NEW_OR_USED
                BY REFERENCE POW-ARG-NAME
         RETURNING res
     END-CALL.

Si falta algo, me lo dices
Mil gracias

[fastpho]

❞ @Josber, Podrias poner unas lineas de codigo para ver como llamas a la libreria Saludos...

Ejemplo de codigo en visual basic : vb6-winapi/registry.bas at master · mmcguill/vb6-winapi · GitHub

[Kuk]

@Josber, compañero le estás pasando 5 parámetros, pero es que esta función espera 8 y no 5: RegCreateKeyExA function (winreg.h) - Win32 apps | Microsoft Learn

De ahí lo de _RegCreateKeyExA@20. Son 4 bytes por parámetro, sea cual sea la propiedad (VALUE, REFERENCE etc.). 4 x 5 = 20

Lo que espera son 8 así que 8 x 4 = 32, si el error fuera _RegCreateKeyExA@32 entonces sí que podríamos pensar que hay algún problema con la librería. Pero mientras que la llamada no lleve cantidad correcta de parámetros, podría ser que tu librería fuera válida también.

[fastpho]

@Josber, lo compile y no da error , no lo quise correr para no tocar mi registro
Ejemplo

 01 HKEY_LOCAL_MACHINE                   PIC XXXX VALUE X"80000002".       *> hKey
 01 H_L_M redefines HKEY_LOCAL_MACHINE   PIC S9(9)   COMP-5. 
 01 subkey                               PIC X(8196).                      *> lpSubKey  
 01 Reserved                             PIC S9(9)   COMP-5 VALUE ZERO.    *> Reserved
 01 NULO                                 PIC X.                            *> lpClass
 01 REG_OPTION_NON_VOLATILE              PIC S9(9)   COMP-5 VALUE ZERO.    *> dwOptions
 01 KEY_ALL_ACCESS                       PIC S9(9)   COMP-5 VALUE 983103.  *> samDesired    HEX F003F
 01 lpSecurityAttributes                 PIC S9(9)   COMP-5 VALUE ZERO.    *> lpSecurityAttributes
 01 hregkey                              PIC S9(9)   COMP-5.               *> phkResult
 01 neworused                            PIC S9(9)   COMP-5.               *> lpdwDisposition recibe 1 La clave no existía y fue creada , recive 2 si existía y simplemente se abrió sin cambiarla
 01 retval                               PIC S9(9)   COMP-5.               *> retorno de la func

 
     MOVE "SoftwarePruebaSOFT" TO subkey.
     MOVE SPACES TO NULO
     CALL "RegCreateKeyExA" WITH stdcall LINKAGE
          USING BY REFERENCE     HKEY_LOCAL_MACHINE
                BY REFERENCE     subkey
                BY VALUE         Reserved 
                BY VALUE         NULO                              
                BY VALUE         REG_OPTION_NON_VOLATILE
                BY VALUE         KEY_ALL_ACCESS
                BY VALUE         lpSecurityAttributes
                BY REFERENCE     hregkey
                BY REFERENCE     neworused
         RETURNING retval
     END-CALL.
     DISPLAY "Resultado: " , RETVAL.
     DISPLAY "neworused" ,  neworused.

Saludos ...

[Josber]

Muchas gracias @fastpho, voy a probarlo y te digo algo.

Estuve mirando el primer ejemplo que "pillé" en Vb, y en ese ejemplo. sólo le pasaba esos parámetros, no se me ocurrió mirar más ejemplos, si es que algunas veces, tengo errores de novato, pero, lo dicho, compruebo y digo algo

Un salu2.-

[Kuk]

❞ Muchas gracias @fastpho, voy a probarlo y te digo algo. Estuve mirando el primer ejemplo que "pillé" en Vb, y en ese ejemplo. sólo le pasaba esos parámetros, no se me ocurrió mirar más ejemplos, si es que algunas veces, tengo errores de novato, pero, lo dicho, compruebo y digo algo Un salu2.-

Seguramente fuera un ejemplo para Windows 95 o algo así

Siempre verifica en la página de MS. Normalmente el Nº de parámetros no suele cambiar, pero hay casos que sí