Tema: Obtener una ruta en Red
Ver Mensaje Individual
  #13
Antiguo 1 de mayo de 2015, 03:33
Roger
Forero Activo
Última Actividad 04.02.2021 13:03
Posts Posts: 236
Likes enviados Enviados: 26
Likes recibidos Recibidos: 60
Predeterminado
0
Likes

None...

Inactivo Inactivo
Josber
Cuando pego tus codigos a un boton
Código COBOL:
  1. 01 PATH-ARCHIVO PIC X(400).
  2.  01 RUTA PIC X(400).
  3. * ---- VARIABLE PARA EL NOMBRE DEL ORDENADOR
  4. *
  5.  01  RESULT             PIC S9(009) COMP-5 IS GLOBAL EXTERNAL.
  6.  01  COMPUTERNAME       PIC X(032)         IS GLOBAL EXTERNAL.
  7.  01  COMPNAME           PIC X(032)     VALUE SPACE.
  8.  01  LENCOMPNAME            PIC S9(009) COMP-5.
  9. *
  10. *
  11.  01  POW-PCMLIST            OBJECT REFERENCE POW-CLISTITEM.
  12.  01  WK-IDX             PIC S9(9) COMP-5 VALUE 0.
  13. *
  14. *
  15.  01  HWINDOW            PIC S9(009)     COMP-5 VALUE ZERO.
  16.  01  FOLDER             PIC S9(009)     COMP-5 VALUE 38.
  17. *
  18.  01  WDSPTITLE          PIC X(040).
  19.  01  WNULL          PIC X(001)  VALUE LOW-VALUES.
  20. *
  21.  01  PIDL           PIC S9(009)     COMP-5 VALUE ZERO.
  22.  01  PSZPATH            PIC X(512)  VALUE SPACE.
  23.  01  SELFOLDER          PIC X(512)  VALUE SPACE.
  24.  PROCEDURE DIVISION.
  25. *
  26. * ----- * SACAMOS EL NOMBRE DEL ORDENADOR
  27. *
  28.        MOVE 32 TO LENCOMPNAME.
  29. *   
  30.        CALL "GetComputerNameA" WITH STDCALL LINKAGE 
  31.             USING
  32.                BY REFERENCE COMPNAME
  33.            BY REFERENCE LENCOMPNAME
  34.             RETURNING RESULT
  35.        END-CALL.
  36.     
  37.      INSPECT COMPNAME REPLACING ALL LOW-VALUES BY SPACE.
  38.        CANCEL "GetComputerNameA".

me bota error LNK2001:unresolved external symbol _GETCOMPUTERNAMEA@8
Funciones exe:Fatal error LNK 1120: 1 unresolved externals

inserte en el proyecto advapi32.lib ¿Cual es el problema?
Roger is offline   Responder Con Cita