Página 3 de 3 PrimerPrimer 1 2 3
Resultados 21 al 25 de 25

Tema: Llamada a Advapi32.lib

  1. #21
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Hoy a las 10:40

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    Predeterminado

    A ver chavales, a mi este código me funciona en PowerCOBOL v10.1

    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  01  HKCU-BL                             BINARY-LONG VALUE H"80000001". *> Binario Nativo, Integer
    5.  
    6.  01  Reserved                            PIC 9(9)   COMP-5 VALUE 0.    *> Reserved
    7.  01  NULO                                PIC 9(9)   COMP-5 VALUE 0.    *> NULO
    8.  01  REG_OPTION_NON_VOLATILE             PIC 9(9)   COMP-5 VALUE 0.    *> dwOptions
    9.  01  KEY_ALL_ACCESS                      PIC 9(9)   COMP-5 VALUE 983103.  *> samDesired    HEX F003F
    10.  01  lpSecurityAttributes                PIC 9(9)   COMP-5 VALUE 0.    *> lpSecurityAttributes
    11.  01  hregkey                             PIC 9(9)   COMP-5 VALUE 0.    *> phkResult
    12.  01  neworused                           PIC 9(9)   COMP-5 VALUE 0.    *> lpdwDisposition recibe 1 La clave no existía y fue creada , recive 2 si existía y simplemente se                       abrió sin cambiarla    
    13.        
    14.  01 subkey                               PIC X(80) value "Software\PruebaSOFT" & X"00".                      *> lpSubKey  
    15.      
    16.  01 retval                               PIC S9(9)   COMP-5.               *> retorno de la func
    17.  PROCEDURE       DIVISION.
    18.      CALL "RegCreateKeyExA" WITH stdcall LINKAGE    
    19.              USING  BY VALUE         HKCU-BL
    20.                     BY REFERENCE     subkey
    21.                     BY VALUE         Reserved
    22.                     BY VALUE         NULO                              
    23.                     BY VALUE         REG_OPTION_NON_VOLATILE
    24.                     BY VALUE         KEY_ALL_ACCESS
    25.                     BY VALUE         lpSecurityAttributes
    26.                     BY REFERENCE     hregkey
    27.                     BY REFERENCE     neworused
    28.              RETURNING retval
    29.    
    30.      DISPLAY "Resultado de la funcion: " , RETVAL
    31.      DISPLAY "Resultado neworused:     " , neworused
    32.      


    Y para marearos más aún, este también

    COBOL Código:
    1.  ENVIRONMENT     DIVISION.
    2.  DATA            DIVISION.
    3.  WORKING-STORAGE SECTION.
    4.  01  INT IS TYPEDEF                      BINARY-LONG.
    5.  
    6.  01  HKCU                                TYPE INT VALUE H"80000001".
    7.  01  Reserved                            TYPE INT VALUE 0.    *> Reserved
    8.  01  NULO                                TYPE INT VALUE 0.    *> NULO
    9.  01  REG_OPTION_NON_VOLATILE             TYPE INT VALUE 0.    *> dwOptions
    10.  01  KEY_ALL_ACCESS                      TYPE INT VALUE 983103.  *> samDesired    HEX F003F
    11.  01  lpSecurityAttributes                TYPE INT VALUE 0.    *> lpSecurityAttributes
    12.  01  hregkey                             TYPE INT VALUE 0.    *> phkResult
    13.  01  neworused                           TYPE INT VALUE 0.    *> lpdwDisposition recibe 1 La clave no existía y fue creada , recive 2 si existía y simplemente se                       abrió sin cambiarla    
    14.        
    15.  01 subkey                               PIC X(80) value "Software\PruebaSOFT" & X"00".                      *> lpSubKey  
    16.      
    17.  01 retval                               TYPE INT.               *> retorno de la func
    18.  PROCEDURE       DIVISION.
    19.      CALL "RegCreateKeyExA" WITH stdcall LINKAGE    
    20.              USING  BY VALUE         HKCU
    21.                     BY REFERENCE     subkey
    22.                     BY VALUE         Reserved
    23.                     BY VALUE         NULO                              
    24.                     BY VALUE         REG_OPTION_NON_VOLATILE
    25.                     BY VALUE         KEY_ALL_ACCESS
    26.                     BY VALUE         lpSecurityAttributes
    27.                     BY REFERENCE     hregkey
    28.                     BY REFERENCE     neworused
    29.              RETURNING retval
    30.    
    31.      DISPLAY "Resultado de la funcion: " , RETVAL
    32.      DISPLAY "Resultado neworused:     " , neworused
    33.      

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  2. #22
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    738
    Última visita
    Ayer a las 16:30

    Agradecimientos
     
    Recibidos
    405
    Enviados
    333

    Citaciones y menciones
     
    Mentioned
    65 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    36
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Cita Iniciado por Kuk Ver Mensaje
    A ver chavales, a mi este código me funciona en PowerCOBOL v10.1
    A mí no me funciona ese código, será por ser PWC9 y tener un pequeño fallo tocawebs el compilador, no sé si a otros les funcionará

    Un salu2.-

    0 Not allowed!

  3. #23
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    738
    Última visita
    Ayer a las 16:30

    Agradecimientos
     
    Recibidos
    405
    Enviados
    333

    Citaciones y menciones
     
    Mentioned
    65 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    36
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Vale @Kuk, ahora comprendo lo de big y little_endian, en ambos casos, les "da la vuelta", pensaba que sólo lo hacía en el caso de big_endian y que con el otro, lo almacenaba tal y como estaba, de todas maneras, sigo sin verle la utilidad al tema de darles la vuelta a los valores, supongo que alguna tendrá, por supuesto.

    Un saludo y mil gracias.-

    0 Not allowed!

  4. #24
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Ubicación
    Madrid
    Edad
    38
    Mensajes
    2,157
    Última visita
    Hoy a las 10:40

    Agradecimientos
     
    Recibidos
    957
    Enviados
    827

    Citaciones y menciones
     
    Mentioned
    71 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    15 Post(s)
    Poder de Reputación
    10

    Predeterminado

    @Josber, es al revés en Big-Endian es tal cual, en Little-Endian se le da la vuelta.

    Las razones... pues aquí se citan por lo que veo: architecture - What is the advantage of little endian format? - Software Engineering Stack Exchange

    0 Not allowed!
    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el botón en el editor y escribiendo su nick.

  5. #25
      Super Moderador
    Avatar de Josber

    Registrado
    febrero de 2015
    Ubicación
    Alicante
    Mensajes
    738
    Última visita
    Ayer a las 16:30

    Agradecimientos
     
    Recibidos
    405
    Enviados
    333

    Citaciones y menciones
     
    Mentioned
    65 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    8 Post(s)
    Poder de Reputación
    36
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0

    Predeterminado

    Cita Iniciado por Kuk Ver Mensaje
    @Josber, es al revés en Big-Endian es tal cual, en Little-Endian se le da la vuelta.

    Las razones... pues aquí se citan por lo que veo: architecture - What is the advantage of little endian format? - Software Engineering Stack Exchange
    Es verdad, lo he puesto al revés pero, con tanto ver, mirar, probar ... al final, te haces la picha un lío , y sí, ahora que lo he leído, le veo más utilidad, no había pensado yo en ese tema, pero es correctísimo y muy lógico.

    Un salu2.-

    0 Not allowed!

Página 3 de 3 PrimerPrimer 1 2 3

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. iPhone SMS y tono de llamada
    Por Antorymixi en el foro Espacio "Offtop"
    Respuestas: 1
    Último Mensaje: 11.12.2018, 12:16
  2. Tono de llamada en Android
    Por bellacampen en el foro Espacio "Offtop"
    Respuestas: 4
    Último Mensaje: 13.11.2018, 11:17
  3. [Noticia] Diferentes tipos de librerías *.LIB que existen
    Por Kuk en el foro Componentes (DLL/OCX)
    Respuestas: 0
    Último Mensaje: 22.07.2016, 10:55
  4. [Componente] AdvApi32.lib - no funciona
    Por Kuk en el foro PowerCOBOL V3L10 (Win32)
    Respuestas: 2
    Último Mensaje: 30.07.2015, 10:27
  5. [Aporte] Llamada a SpellCheck de Word (correc. ortográfico)
    Por Rapinto en el foro Cocina PowerCOBOL + COM/OLE
    Respuestas: 0
    Último Mensaje: 12.03.2015, 01:54

Marcadores

Marcadores

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •