11MB pra imagem... mais 4MB pra componentes não é problema.
PROCEDURE PSETUPCapicom
ShellExecuteRunAs( hb_ProgName(), "/capicom" )
RETURN
FUNCTION InstalaCapicom()
LOCAL cPath := "c:\windows\system32\"
IF Len( Directory( "c:\windows\syswow64\*.*" ) ) != 0
cPath := "c:\windows\syswow64\"
ENDIF
hb_MemoWrit( cPath + "capicom.dll", ze_RawImage( "CAPICOM.DLL" ) )
hb_MemoWrit( cPath + "msxml5.dll", ze_RawImage( "MSXML5.DLL" ) )
hb_MemoWrit( cPath + "msxml5r.dll", ze_RawImage( "MSXML5R.DLL" ) )
RUN ( cPath + "regsvr32.exe " + cPath + "capicom.dll" )
RUN ( cPath + "regsvr32.exe " + cPath + "msxml5.dll" )
RETURN NIL
FUNCTION ShellExecuteRunAs( cFileName, cParameters, nShow )
wapi_ShellExecute( NIL, "RunAs", cFileName, cParameters,, hb_DefaultValue( nShow, WIN_SW_SHOWNORMAL ) )
RETURN NIL
PROCEDURE Main
PARAMETERS cParam
LOCAL xParam, nThreads := 2, cPath, oExeList
Set( _SET_CODEPAGE, "PTISO" )
cPath := hb_FNameDir( hb_ProgName() )
IF cParam != NIL
IF "/capicom" $ cParam
InstalaCapicom()
QUIT
ENDIF
ENDIF
25/06/2020 18:02 3.181.437 ze_resource.o
25/06/2020 18:02 11.119.650 jpa.reso
25/06/2020 18:02 6.544.816 jpa.exe