Crear Instalador para registrar componente

269 views
Skip to first unread message

sscom

unread,
Jul 20, 2017, 5:49:54 PM7/20/17
to Comunidad de Visual Foxpro en Español
Hola a todos, espero puedan ayudarme en este problema, realize una aplicacion y un instalador con Setup Factory pero el problema es que la aplicacion lleva el control richtx32.ocx y no puedo registrarla, existe algun programa que haga un instalador y no se tenga problemas al registrar los controles? otra duda, este control, richtx32.ocx, que funciones tiene por lo siguiente, tengo un form con un olecontrol de calendario, olecalendar, al entrar a este form me dice que falta un .ocx al tratar de registrar richtx32.ocx me envia error y al desplegarme el form no me muestra el calendario, todo bien excepto el calendario, entonces el calendario es parte de este control?  gracias por su ayuda. 

ZeRoberto

unread,
Jul 20, 2017, 6:01:19 PM7/20/17
to publicesvfoxpro
Inno Setup?

ArchitecturesInstallIn64BitMode=x64

[Files]
Source: {syswow64}\*; DestDir: {syswow64}; Flags: onlyifdoesntexist
Source: {sys}\*; DestDir: {sys}; Flags: onlyifdoesntexist


[Run]

Filename: regsvr32.exe; Parameters: """{sys}\zlib1.dll"" /S"; StatusMsg: Registrando: zlib1.dll; Flags: RunHidden WaitUntilTerminated

Filename: regsvr32.exe; Parameters: """{syswow64}\actskin4.ocx"" /S"; StatusMsg: Registrando: actskin4.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Bassmod.dll"" /S"; StatusMsg: Registrando: Bassmod.dll; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\ChamaleonButton.ocx"" /S"; StatusMsg: Registrando: ChamaleonButton.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Calendar.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Calendar.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Codejock.TaskPanel.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Codejock.TaskPanel.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.CommandBars.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.CommandBars.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Controls.Unicode.v13.2.1.ocx"" /S"; StatusMsg: Registrando: Codejock.Controls.Unicode.v13.2.1.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Controls.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Controls.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.DockingPane.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.DockingPane.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.Markup.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.Markup.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.PropertyGrid.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.PropertyGrid.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.ReportControl.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.ReportControl.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.ShortcutBar.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.ShortcutBar.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.SkinFramework.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.SkinFramework.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Codejock.SyntaxEdit.v13.4.0.Demo.ocx"" /S"; StatusMsg: Registrando: Codejock.SyntaxEdit.v13.4.0.Demo.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\HookMenu.ocx"" /S"; StatusMsg: Registrando: HookMenu.ocx; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\MSCOMCTL.OCX"" /S"; StatusMsg: Registrando: MSCOMCTL.OCX; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\MSCOMCTL32.OCX"" /S"; StatusMsg: Registrando: MSCOMCTL32.OCX; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\Msvbvm50.dll"" /S"; StatusMsg: Registrando: Msvbvm50.dll; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\msvcr71.dll"" /S"; StatusMsg: Registrando: msvcr71.dll; Flags: RunHidden WaitUntilTerminated
Filename: regsvr32.exe; Parameters: """{syswow64}\zlib1.dll"" /S"; StatusMsg: Registrando: zlib1.dll; Flags: RunHidden WaitUntilTerminated

Saludos

integral

unread,
Jul 21, 2017, 12:21:16 AM7/21/17
to Comunidad de Visual Foxpro en Español

Amigo :

Que version del Setup Factory estas utilizando...

atte.,

INTEGRAL

HernanCano

unread,
Jul 21, 2017, 2:03:09 AM7/21/17
to Comunidad de Visual Foxpro en Español

FUNCTION OCXRegistrar(cActiveX)
local M.SelfRegisterDLL
DECLARE INTEGER DLLSelfRegister IN "vb6stkit.DLL" STRING lpDllName
lcFileOCX = SYS(5) + CURDIR() + cActiveX
** lcFileOCX = "C:\DBITECH\Toolbox6\DBITech\Component Toolbox 6.0\Components\ctlist.ocx"
liRet = DLLSelfRegister( lcFileOCX )
IF liRet = 0
   M.SelfRegisterDLL = .T.
   ** MESSAGEBOX( "Registrado OCX" )
ELSE
   M.SelfRegisterDLL = .F.
   MESSAGEBOX( "Error - No registrado OCX" )
ENDIF
return (M.SelfRegisterDLL)
ENDFUNC

function RegWinSck
declare integer DLLSelfRegister in [Vb6stkit.DLL] string lpDllName
return ( DLLSelfRegister([MSWINSCK.OCX]) = 0 )


    function RegXZip
    declare integer DLLSelfRegister in [Vb6stkit.DLL] string lpDllName
    return ( DLLSelfRegister([xZip.dll]) = 0 )

VB6STKIT-DLL

sscom

unread,
Jul 21, 2017, 12:32:07 PM7/21/17
to Comunidad de Visual Foxpro en Español
integral, estoy usando la version 9.5.0.0


HernanCano, este archivo que enviaste, que es? es un .dll o que es? gracias

HernanCano

unread,
Jul 21, 2017, 3:58:09 PM7/21/17
to Comunidad de Visual Foxpro en Español
Sí, amigo.
Es el que se menciona en la instrucción DECLARE INTEGER.

Funciona en WinXP, en Win7 y en Win10 (no recuerdo si lo he ejecutado en Win8).

Zarlu

unread,
Jul 21, 2017, 7:03:57 PM7/21/17
to Comunidad de Visual Foxpro en Español
Buenas tardes SSCOM
 
Yo uso "CreateInstal Free" y registro ocx sin problemas.
Es una sugerencia.....
 
 
 
Suerte
Zarlu
Chetumal. Quintana Roo, México
ima1.png

sscom

unread,
Jul 22, 2017, 12:35:28 AM7/22/17
to Comunidad de Visual Foxpro en Español
Gracias HernanCano y Zarlu, voy a probar con las dos opciones y les comento, gracias.
Reply all
Reply to author
Forward
0 new messages