Instalar Fontes no Windows 7 de 32 bits
Enviado: 22 Jan 2015 10:39
Bom dia Senhores, o que estou fazendo mal? Não está instalando a Fonte no windows 7 de 32 bits.
Obg. abs.
#Include "FiveWin.ch"
FUNCTION Main ()
INSTFONTS()
RETURN NIL
FUNCTION INSTFONTS()
Local lInstala := .F.
IF .NOT. MsgYesNo( "Instalar Fontes da NF-e no Windows?", ;
"Instalar Fontes da NF-e no Windows " )
RETURN NIL
ENDIF
IF FILE( "C:\INST_NFE\GERAPNFE.EXE" ) .OR. ;
FILE( "C:\INST_NFE\GERAONFE.EXE" ) .OR. ;
FILE( "C:\INST_NFE\GERANFE.EXE" ) // PLENOIND
lInstala := .T.
ENDIF
IF lInstala
CopyFile( "C:\INST_NFE\fontes\Code128bWin.ttf", GetWinDir() + "\Fonts\Code128bWin.ttf", .T. )
AddFontResource( "C:\INST_NFE\fontes\Code128bWin.ttf" )
IF FILE( GetWinDir() + "\Fonts\Code128bWin.ttf" )
MSGWAIT( "As Fontes da NF-e Foram Instalados Com Sucesso..." )
ELSE
MSGWAIT( "As Fontes da NF-e Nao Foram Instaladas..." )
lInstala := .F.
ENDIF
ENDIF
RETURN NIL
// FIM
Obg. abs.