API tools faq
paste
Advertisement
juliomzt

MUINSISideasSERIALMultipleTextBoxsBGImage

juliomzt
Jun 4th, 2012
180
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
NullSoft Installer 16.65 KB | None | 0 0
raw download clone embed print report
  1. /*////////////////////////////////////////////////////////////////////////////////////////////////////
  2.  
  3.     Ejemplo de instaladores con clave de acceso, el usuario deberá introducir una clave para
  4.     poder instalar el programa, ademàs de mostrar un mensaje de error al introducir una clave incorrecta.
  5.  
  6.     CODIFICADO POR JULIO CHINCHILLA
  7.  
  8. ///////////////////////////////////////////////////////////////////////////////////////////////////*/
  9.  
  10.  
  11. ;-----------------------------------------
  12. ;Definición del directorio de instalción
  13.    InstallDir "$WINDIR\..\Municipalidad DB"
  14.  
  15.   ; definición de variables para versiones, y compilaciones
  16.   !define VERSION_MAYOR "1" #Version del programa
  17.   !define VERSION_MENOR "0" #Versión menor
  18.   !define VERSION_DESPLEGAR "1" #Versión a desplegar
  19.   !define VERSION_DE_REVISION "2" #Versión de revisión
  20.   !define VERSION_DE_COMPILACION "10" #Versión de Compilación
  21.   !define VERSION_ARCHIVO "1" #Versión de Archivo
  22.   !define NAMEPRG "Registro Municipal" #Nombre del programa
  23.   !define PRODUCTID "1010" #identificación del programa
  24.   !define COMPANY_NAME "Intranet" #Definición de compañía
  25.   !define PRODUCT_PUBLISHER "${COMPANY_NAME}® Guatemala"
  26.   !define ANHO "2007"
  27.   !define IDPRG IdSS01
  28.  
  29.   !define PRODUCT_WEB_SITE "http://www.winamp.com"
  30.  
  31.   ;Algunas defeniciones para el registro
  32.   !define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\Uninst.exe"
  33.   !define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${NAMEPRG}"
  34.   !define PRODUCT_UNINST_ROOT_KEY "HKLM"
  35.  
  36.   ;Definición del tema a escoger
  37.   !define OMUI_THEME "CD-Clean"
  38.  
  39.   ;archivo de inclusión de interface
  40.   !include "MUI.nsh"
  41.   !include "FileFunc.nsh"
  42.  
  43. ;-------------------------------------------------------
  44. ;Definición para imagen que irá arriba de la instalación
  45.  
  46.    !define MUI_HEADERIMAGE
  47.    !define MUI_HEADERIMAGE_RIGHT
  48.    !define MUI_HEADERIMAGE_BITMAP "MUI Orange Vista Theme\${OMUI_THEME}\header-r.bmp"
  49.  
  50. ;----------------------------------------------------------
  51. ;Definición para imagen que irá arriba de la desinstalación
  52.    !define MUI_HEADERIMAGE_UNBITMAP "MUI Orange Vista Theme\${OMUI_THEME}\header-r-un.bmp"
  53. ;----------------------------------------------------------------------------------
  54. ;Definición de imagen que se desplegará en la página de bienvenida en la instalciòn
  55.   !define MUI_WELCOMEFINISHPAGE_BITMAP "MUI Orange Vista Theme\${OMUI_THEME}\wizard.bmp"
  56.  
  57. ;-------------------------------------------------------------------------------------
  58. ;Definición de imagen que se desplegará en la página de bienvenida en la desinstalciòn
  59.   !define MUI_UNWELCOMEFINISHPAGE_BITMAP "MUI Orange Vista Theme\${OMUI_THEME}\wizard-un.bmp"
  60. ;-----------------------------------
  61.  
  62. ;Definición del icono del instalador
  63. !define MUI_ICON "MUI Orange Vista Theme\${OMUI_THEME}\installer-nopng.ico"
  64. ;--------------------------------------
  65.  
  66. ;Definición del icono del desinstalador
  67. !define MUI_UNICON "MUI Orange Vista Theme\${OMUI_THEME}\uninstaller-nopng.ico"
  68. ;---------------------------------------------------
  69. ;Configuración para mensaje al abandonar instalación
  70.   !define MUI_ABORTWARNING
  71.   !define MUI_ABORTWARNING_TEXT "¿ Está seguro que desea salir de la instalación ?"
  72. ; ---------------------------------------------------------------------------------
  73. ;       CONFIGURACIONES ESPECIALES AÑADIDAS
  74. ;----------------------------------------------------------------------------------
  75.   !define MUI_WELCOMEPAGE_TITLE "BIENVENIDO !"
  76.   !define MUI_WELCOMEPAGE_TEXT "Este asistente le guiará paso paso para instalar este programa, en esta computadora sólo siga las instrucciones y procedimientos.\n\n Derechos Reservados Intranet Guatemala"
  77.   !define MUI_FINISHPAGE_NOREBOOTSUPPORT
  78.   !define MUI_LICENSEPAGE_RADIOBUTTONS
  79. ; ----------------------------------------------------------------------------------
  80.  
  81.   Var STARTMENU_FOLDER
  82.  
  83.   Name "DBIntranet"
  84.   OutFile "SetupDB-${OMUI_THEME}-BGI.exe"
  85.   ShowInstDetails show
  86.   XPStyle on
  87.  
  88. ;Configuración y ordenamiento de los macros que se van a despelgar
  89.  
  90.   ;Instalación ................
  91.  
  92.   !insertmacro MUI_PAGE_WELCOME
  93.   !insertmacro MUI_PAGE_LICENSE "Licenciaideas.rtf"
  94.   Page custom "SetCustom" "Validar"
  95.   !insertmacro MUI_PAGE_COMPONENTS
  96.   !insertmacro MUI_PAGE_DIRECTORY
  97.  
  98.   !define MUI_STARTMENUPAGE_REGISTRY_ROOT "HKCU"
  99.   !define MUI_STARTMENUPAGE_REGISTRY_KEY "Software\Modern UI Test"
  100.   !define MUI_STARTMENUPAGE_REGISTRY_VALUENAME "Start Menu Folder"
  101.   !insertmacro MUI_PAGE_STARTMENU Application $STARTMENU_FOLDER
  102.  
  103.   !insertmacro MUI_PAGE_INSTFILES
  104.   !insertmacro MUI_PAGE_FINISH
  105.  
  106.   ;Desinstalación................
  107.   !insertmacro MUI_UNPAGE_WELCOME
  108.   !insertmacro MUI_UNPAGE_CONFIRM
  109.   !insertmacro MUI_UNPAGE_INSTFILES
  110.   !insertmacro MUI_UNPAGE_FINISH
  111.  
  112.   !insertmacro MUI_LANGUAGE "Spanish"
  113.  
  114.   !insertmacro DriveSpace
  115.   !insertmacro GetRoot
  116.  
  117.   #LicenseData "LicenciaIntranet.txt"
  118.  
  119. ;---------------------------------------------------------------------------------------------------------
  120. ;   Configuración de la Viñeta de Versión en las Propiedades del archivo de instalación
  121. ;---------------------------------------------------------------------------------------------------------
  122.  
  123. VIProductVersion "${VERSION_MAYOR}.${VERSION_MENOR}.${VERSION_DE_REVISION}.${VERSION_DE_COMPILACION}"
  124.   VIAddVersionKey /LANG=${LANG_SPANISH} "FileDescription" "Data Base"
  125.   VIAddVersionKey /LANG=${LANG_SPANISH} "Diseño de Instalador" "Código de diseño de instalador realizado por Julio Francisco Chinchilla Valenzuela en NSIS"
  126.   VIAddVersionKey /LANG=${LANG_SPANISH} "LegalCopyright" "©Derechos Reservados ${COMPANY_NAME} ${ANHO}"
  127.   VIAddVersionKey /LANG=${LANG_SPANISH} "LegalTrademarks" "${COMPANY_NAME} es una marca registrada"
  128.   VIAddVersionKey /LANG=${LANG_SPANISH} "ProductName" "DB-Municipalidad"
  129.   VIAddVersionKey /LANG=${LANG_SPANISH} "InternalName" "DBIntranet"
  130.   VIAddVersionKey /LANG=${LANG_SPANISH} "OriginalFilename" "SetupDBIntranet"
  131.   VIAddVersionKey /LANG=${LANG_SPANISH} "CompanyName" "${COMPANY_NAME}"
  132.   VIAddVersionKey /LANG=${LANG_SPANISH} "FileVersion" "${VERSION_MAYOR}.${VERSION_MENOR}"
  133.   VIAddVersionKey /LANG=${LANG_SPANISH} "ProductVersion" "${VERSION_MAYOR}.${VERSION_MENOR}.${VERSION_DE_REVISION}.${VERSION_DE_COMPILACION}"
  134.  
  135.  
  136. ; otras configuraciónes no menos importantes
  137. RequestExecutionLevel admin
  138. SetDateSave on
  139. SetDatablockOptimize on
  140. CRCCheck on
  141. BrandingText "${COMPANY_NAME} - Derechos Reservados ${ANHO} - Hecho por Julio Chinchilla"
  142. Caption "Instalación de Base de Datos"
  143. CheckBitmap "Mui Orange Vista Theme\CheckBox.bmp"
  144. BGGradient E59A0F FFFFFF FFFFFF
  145. BGFont "Century Gothic" "75"
  146. SetFont /LANG=${LANG_SPANISH} "Microsoft Sans Serif" 9
  147.  
  148. ;****************************************************************************************************************
  149. ;******************************     INICIO DE FUNCIONES Y SECCIONES        **********************************
  150. ;****************************************************************************************************************
  151.  
  152. Var BMPTemp
  153. Var VSpaceGB
  154. Var VSpaceGBDec
  155.  
  156. Function .onInit
  157.  
  158. System::Call 'kernel32::CreateMutexA(i 0, i 0, t "${IDPRG}-${OMUI_THEME}") i .r1 ?e'
  159.  
  160.   Pop $R0
  161.  
  162.   StrCmp $R0 0 +3
  163.     MessageBox MB_OK|MB_ICONEXCLAMATION "Esta instalación ya se está ejecutando"
  164.     Abort
  165.    
  166. Call GetWindowsVersion
  167. Pop $R0
  168. Call Verificar_Registered_Owner
  169. Pop $R9
  170.  
  171. ${GetRoot} "$INSTDIR" $7
  172. ${DriveSpace} "$7\" "/D=F" $8
  173.  
  174. System::Int64Op $8 / 1074871567
  175. Pop $VSpaceGB
  176.  
  177. System::Int64Op $8 % 1074871567
  178. Pop $VSpaceGBDec
  179.  
  180. StrCpy $VSpaceGBDec $VSpaceGBDec 1
  181.  
  182. InitPluginsDir
  183. GetTempFileName $BMPTemp
  184. File /oname=$BMPTemp "MUI Orange Vista Theme\${OMUI_THEME}\InstallerBMP.bmp"
  185.  File /oname=$PLUGINSDIR\test.ini "CUSTOM_PAGES\CP_Serial.ini"
  186.   WriteINIStr $PLUGINSDIR\test.ini "Field 13" "Text" "$BMPTemp"
  187.   WriteINIStr $PLUGINSDIR\test.ini "Field 10" "Text" "Usuario: $R9"
  188.   WriteINIStr $PLUGINSDIR\test.ini "Field 11" "Text" "Sistema Operativo: Microsoft Windows $R0"
  189.   WriteINIStr $PLUGINSDIR\test.ini "Field 12" "Text" "Espacio en libre en disco $7\: $VSpaceGB.$VSpaceGBDec GB"
  190.  
  191.   HwInfo::GetSystemMemory
  192.  Pop $0
  193.   WriteINIStr $PLUGINSDIR\test.ini "Field 14" "Text" "Memoria Ram $0 MB"
  194.  
  195.   HwInfo::GetCpuNameAndSpeed
  196.  Pop $0
  197.   WriteINIStr $PLUGINSDIR\test.ini "Field 15" "Text" "$0"
  198.  
  199.   HwInfo::GetVideoCardName
  200.  Pop $0
  201.   WriteINIStr $PLUGINSDIR\test.ini "Field 16" "Text" "$0"
  202.  
  203.   HwInfo::GetVideoCardMemory
  204.  Pop $0
  205.   WriteINIStr $PLUGINSDIR\test.ini "Field 17" "Text" "$0 MB"
  206.   Pop $0
  207.  
  208. FunctionEnd
  209.  
  210. LangString TEXT_IO_TITLE ${LANG_SPANISH} "INTRODUZCA UNA CLAVE DE PRODUCTO VÁLIDA"
  211. LangString TEXT_IO_SUBTITLE ${LANG_SPANISH} "Clave proporcionada por ®Intranet Guatemala"
  212.  
  213. Function SetCustom
  214.  
  215.   Push $R0
  216.   Push $R1
  217.   Push $R2
  218.  
  219. !insertmacro MUI_HEADER_TEXT "$(TEXT_IO_TITLE)" "$(TEXT_IO_SUBTITLE)"
  220. !insertmacro MUI_INSTALLOPTIONS_DISPLAY "CUSTOM_PAGES\CP_Serial.ini"
  221.  
  222.     InstallOptions::initDialog /NOUNLOAD $PLUGINSDIR\test.ini
  223.     Pop $R0
  224.     InstallOptions::show
  225.     Pop $R0
  226.  
  227.   Pop $R2
  228.   Pop $R1
  229.   Pop $R0
  230.  
  231. FunctionEnd
  232.  
  233.  
  234. Function Validar
  235.  
  236.   ReadINIStr $R2 "$PLUGINSDIR\test.ini" "Field 2" "State" #Aquí se lee el TextField Número 2
  237.   ReadINIStr $R3 "$PLUGINSDIR\test.ini" "Field 3" "State" #Aquí se lee el TextField Número 3
  238.   ReadINIStr $R4 "$PLUGINSDIR\test.ini" "Field 4" "State" #Aquí se lee el TextField Número 4
  239.   ReadINIStr $R5 "$PLUGINSDIR\test.ini" "Field 5" "State" #Aquí se lee el TextField Número 5
  240.   ReadINIStr $R6 "$PLUGINSDIR\test.ini" "Field 6" "State" #Aquí se lee el TextField Número 6
  241.   ReadINIStr $R7 "$PLUGINSDIR\test.ini" "Field 7" "State" #Aquí se lee el TextField Número 7
  242.  
  243.   StrCmp $R2 "SERA" 0 incorrecta
  244.   StrCmp $R3 "1234" 0 incorrecta
  245.   StrCmp $R4 "PIO1" 0 incorrecta
  246.   StrCmp $R5 "5678" 0 incorrecta
  247.   StrCmp $R6 "INUT" 0 incorrecta
  248.   StrCmp $R7 "IL12" ADELANTE incorrecta
  249.  
  250.   incorrecta:
  251.      MessageBox MB_OK|MB_ICONEXCLAMATION "INGRESE EL CÓDIGO CORRECTO !"
  252.      Abort
  253.  
  254.   ADELANTE:
  255.          
  256. FunctionEnd
  257.  
  258. InstType "Completa"
  259. InstType "Estandar"
  260. InstType "Mínima"
  261.  
  262.  
  263.  
  264. SectionGroup /e "!Base de datos" SecCopyI
  265.  
  266. Section "!Oracle DB" SecCopyII
  267. SectionIn RO 1 2 3
  268.   SetOutPath "$INSTDIR"
  269.  
  270.   File "Licencia.rtf"
  271.   File "Licenciaideas.rtf"
  272.  
  273.   CreateDirectory "$INSTDIR\Oracle DB"
  274.  
  275.   WriteUninstaller "$INSTDIR\Uninst.exe"
  276.  
  277. #  CreateShortCut "$SMPROGRAMS\WINAMP\CLASIC'S SKINS\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0
  278.  
  279.   WriteUnInstaller "uninst.exe"
  280.  
  281. !insertmacro MUI_STARTMENU_WRITE_BEGIN Application
  282.  
  283.     ;Create shortcuts
  284.     CreateDirectory "$SMPROGRAMS\$STARTMENU_FOLDER"
  285.     CreateShortCut "$SMPROGRAMS\$STARTMENU_FOLDER\Uninstall.lnk" "$INSTDIR\Uninst.exe"
  286.  
  287.   !insertmacro MUI_STARTMENU_WRITE_END
  288.  
  289.  WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\Uninst.exe"
  290.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "${NAMEPRG}"
  291.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\Uninst.exe"
  292.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\Uninst.exe,0"
  293.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${VERSION_DESPLEGAR}"
  294.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
  295.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLUpdateInfo" "${PRODUCT_WEB_SITE}"
  296.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
  297.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Readme" "Leame.txt"
  298.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Contact" "E-Mail: ideasSolutions@yahoo.com - Tel: (502)78724339 / (502)55445619"
  299.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Comments" "De una buena impresión y agregue seguridad a sus aplicaciones, con instaladores de alta calidad desarrollados por ®ideas, Guatemala"
  300.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "NoModifiy" 0x000001
  301.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "NoRepair" 0x000001
  302.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "EstimatedSize" 0x2239c
  303.  
  304. SectionEnd
  305. SectionGroupEnd
  306.  
  307. SectionGroup /e "!Formularios" SecCopyIII
  308.    Section "!Programa en C++" SecCopyIV
  309.          SectionIn RO 1 2 3
  310.            CreateDirectory "$INSTDIR\Programa en C++"
  311.    SectionEnd
  312.    Section "Programa en JAVA" SecCopyV
  313.          SectionIn 1 2 3
  314.            CreateDirectory "$INSTDIR\Programa en Java"
  315.    SectionEnd
  316. SectionGroupEnd
  317.  
  318. Section "Algún elemento 1" SecCopyVI
  319.   SectionIn 1 2
  320.   CreateDirectory "$INSTDIR\Algún elemento 1"
  321. SectionEnd
  322.  
  323. Section "Algún elemento 2" SecCopyVII
  324.   SectionIn 1 2
  325.   CreateDirectory "$INSTDIR\Algún elemento 2"
  326. SectionEnd
  327.  
  328. Section "Algún elemento 3" SecCopyVIII
  329.   SectionIn 1
  330.   CreateDirectory "$INSTDIR\Algún elemento 3"
  331. SectionEnd
  332.  
  333. LangString Message1 ${LANG_SPANISH} "Elemento descriptivo de la Sección 1"
  334. LangString Message2 ${LANG_SPANISH} "Elemento descriptivo de la Sección 2"
  335. LangString Message3 ${LANG_SPANISH} "Elemento descriptivo de la Sección 3"
  336. LangString Message4 ${LANG_SPANISH} "Elemento descriptivo de la Sección 4"
  337. LangString Message5 ${LANG_SPANISH} "Elemento descriptivo de la Sección 5"
  338. LangString Message6 ${LANG_SPANISH} "Elemento descriptivo de la Sección 6"
  339. LangString Message7 ${LANG_SPANISH} "Elemento descriptivo de la Sección 7"
  340. LangString Message8 ${LANG_SPANISH} "Elemento descriptivo de la Sección 8"
  341.  
  342.  
  343. !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
  344.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyI}    $(Message1)
  345.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyII}   $(Message2)
  346.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyIII}  $(Message3)
  347.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyIV}   $(Message4)
  348.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyV}    $(Message5)
  349.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVI}   $(Message6)
  350.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVII}  $(Message7)
  351.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVIII} $(Message8)
  352. !insertmacro MUI_FUNCTION_DESCRIPTION_END
  353.  
  354.  
  355. Section "Uninstall"
  356.  
  357.   Delete "$INSTDIR\*.*"
  358.   RMDir  "$INSTDIR\Programa en C++"
  359.   RMDir  "$INSTDIR\Programa en Java"
  360.   RMDir  "$INSTDIR\Algún elemento 1"
  361.   RMDir  "$INSTDIR\Algún elemento 2"
  362.   RMDir  "$INSTDIR\Algún elemento 3"
  363.  
  364.   DeleteRegKey HKEY_LOCAL_MACHINE "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\${NAMEPRG}"
  365.   DeleteRegKey /ifempty HKCU "Software\${NAMEPRG}"
  366.   MessageBox MB_OK|MB_ICONINFORMATION "La base de datos oracle se encuentra a salvo!"
  367.   Exec 'Explorer "$INSTDIR\Oracle DB"'
  368. SectionEnd
  369.  
  370.  
  371. #---------------------------------------------------------------------------------------------------
  372. #------------------          FUNCIONES ADICIONALES (PLUS!) -----------------------------------------
  373. #---------------------------------------------------------------------------------------------------
  374.  
  375.  
  376. Function GetWindowsVersion
  377.  
  378.    Push $R0
  379.    Push $R1
  380.  
  381.    ClearErrors
  382.  
  383.    ReadRegStr $R0 HKLM \
  384.    "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
  385.  
  386.    IfErrors 0 lbl_winnt
  387.  
  388.    ; we are not NT
  389.    ReadRegStr $R0 HKLM \
  390.    "SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber
  391.  
  392.    StrCpy $R1 $R0 1
  393.    StrCmp $R1 '4' 0 lbl_error
  394.  
  395.    StrCpy $R1 $R0 3
  396.  
  397.    StrCmp $R1 '4.0' lbl_win32_95
  398.    StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98
  399.  
  400.    lbl_win32_95:
  401.      StrCpy $R0 '95'
  402.    Goto lbl_done
  403.  
  404.    lbl_win32_98:
  405.      StrCpy $R0 '98'
  406.    Goto lbl_done
  407.  
  408.    lbl_win32_ME:
  409.      StrCpy $R0 'ME'
  410.    Goto lbl_done
  411.  
  412.    lbl_winnt:
  413.  
  414.    StrCpy $R1 $R0 12
  415.  
  416.    StrCmp $R1 '3' lbl_winnt_x
  417.    StrCmp $R1 '4' lbl_winnt_x
  418.  
  419.    StrCpy $R1 $R0 3
  420.  
  421.    StrCmp $R1 '5.0' lbl_winnt_2000
  422.    StrCmp $R1 '5.1' lbl_winnt_XP
  423.    StrCmp $R1 '5.2' lbl_winnt_2003
  424.    StrCmp $R1 '6.0' lbl_winnt_vista lbl_error
  425.  
  426.    lbl_winnt_x:
  427.      StrCpy $R0 "NT $R0" 6
  428.    Goto lbl_done
  429.  
  430.    lbl_winnt_2000:
  431.      Strcpy $R0 '2000'
  432.    Goto lbl_done
  433.  
  434.    lbl_winnt_XP:
  435.      Strcpy $R0 'XP'
  436.    Goto lbl_done
  437.  
  438.    lbl_winnt_2003:
  439.      Strcpy $R0 '2003'
  440.    Goto lbl_done
  441.  
  442.    lbl_winnt_vista:
  443.      Strcpy $R0 'Vista'
  444.    Goto lbl_done
  445.  
  446.    lbl_error:
  447.      Strcpy $R0 ''
  448.    lbl_done:
  449.  
  450.    Pop $R1
  451.    Exch $R0
  452.  
  453. FunctionEnd
  454.  
  455. Function Verificar_Registered_Owner
  456.  
  457.    Push $R9
  458.    Push $R8
  459.  
  460.    ReadRegStr $R9 HKLM \
  461.    "SOFTWARE\Microsoft\Windows NT\CurrentVersion" RegisteredOwner
  462.  
  463.    IfErrors 0 StringCopy
  464.  
  465.    ReadRegStr $R9 HKLM \
  466.    "SOFTWARE\Microsoft\Windows\CurrentVersion" RegisteredOwner
  467.  
  468.    StringCopy:
  469.    StrCpy $R8 $R9 1
  470.  
  471.    Pop $R8
  472.    Exch $R9
  473.  
  474. FunctionEnd
  475.  
  476. Function .onGUIEnd
  477.  Delete $BMPTemp
  478.  
  479. FunctionEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!