setenvironmentVariable() de xH a H

setenvironmentVariable() de xH a H

Postby noe aburto » Sun Aug 09, 2020 5:59 pm

Saludos Foro

Esta función la usaba con xHarbour 1.2.3. y ahora con Harbour 3.0 me marca errores

Code: Select all  Expand view

#pragma BEGINDUMP

#include <windows.h>

HB_FUNC( SETENVIRONMENTVARIABLE )
{
   hb_retl( SetEnvironmentVariable( (LPCSTR) hb_parcx( 1 ),
                                     (LPCSTR) hb_parcx( 2 )
                                     ) ) ;
}
#pragma ENDDUMP
 


Warning W8065 MAUFUNC.PRG 166: Call to function 'hb_parcx' with no prototype in function HB_FUN_SETENVIRONMENTVARIABLE
Warning W8065 MAUFUNC.PRG 167: Call to function 'hb_parcx' with no prototype in function HB_FUN_SETENVIRONMENTVARIABLE
Warning W8065 MAUFUNC.PRG 168: Call to function 'hb_retl' with no prototype in function HB_FUN_SETENVIRONMENTVARIABLE
Error E2356 F:\Harbour\Include\hbapi.h 626: Type mismatch in redeclaration of 'hb_parcx'
Error E2356 F:\Harbour\Include\hbapi.h 686: Type mismatch in redeclaration of 'hb_retl'
Warning W8065 MAUFUNC.PRG 3693: Call to function 'hb_retl' with no prototype in function HB_FUN_VERCAPSLOCK
Warning W8065 MAUFUNC.PRG 3709: Call to function 'hb_retl' with no prototype in function HB_FUN_VERNUMLOCK
Warning W8065 MAUFUNC.PRG 3725: Call to function 'hb_retl' with no prototype in function HB_FUN_VERSCROLLOCK
Warning W8065 MAUFUNC.PRG 3741: Call to function 'hb_retl' with no prototype in function HB_FUN_VERINSERT

Lamentablemente respecto a funcione de xH y H, estoy perdido. Una ayuda....
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: setenvironmentVariable() de xH a H

Postby noe aburto » Sun Aug 09, 2020 7:22 pm

Solucionado

solo agregue:

define "hbapi.h"
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests