API tools faq
paste
Advertisement
juliomzt

MUINSISideasSERIALMultipleTextBoxs

juliomzt
Jun 4th, 2012
87
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
INI file 15.87 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 "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.  
  82.   Name "DBIntranet"
  83.   OutFile "SetupDB-${OMUI_THEME}.exe"
  84.   ShowInstDetails show
  85.  
  86. ;Configuración y ordenamiento de los macros que se van a despelgar
  87.  
  88.   ;Instalación ................
  89.  
  90.   !insertmacro MUI_PAGE_WELCOME
  91.   !insertmacro MUI_PAGE_LICENSE "Licenciaideas.rtf"
  92.   Page custom "SetCustom" "Validar"
  93.   !insertmacro MUI_PAGE_COMPONENTS
  94.   !insertmacro MUI_PAGE_DIRECTORY
  95.   !insertmacro MUI_PAGE_INSTFILES
  96.   !insertmacro MUI_PAGE_FINISH
  97.  
  98.   ;Desinstalación................
  99.   !insertmacro MUI_UNPAGE_WELCOME
  100.   !insertmacro MUI_UNPAGE_CONFIRM
  101.   !insertmacro MUI_UNPAGE_INSTFILES
  102.   !insertmacro MUI_UNPAGE_FINISH
  103.  
  104.   !insertmacro MUI_LANGUAGE "Spanish"
  105.  
  106.   !insertmacro DriveSpace
  107.   !insertmacro GetRoot
  108.  
  109.   #LicenseData "LicenciaIntranet.txt"
  110.  
  111. ;---------------------------------------------------------------------------------------------------------
  112. ;   Configuración de la Viñeta de Versión en las Propiedades del archivo de instalación
  113. ;---------------------------------------------------------------------------------------------------------
  114.  
  115. VIProductVersion "${VERSION_MAYOR}.${VERSION_MENOR}.${VERSION_DE_REVISION}.${VERSION_DE_COMPILACION}"
  116.   VIAddVersionKey /LANG=${LANG_SPANISH} "FileDescription" "Data Base"
  117.   VIAddVersionKey /LANG=${LANG_SPANISH} "Diseño de Instalador" "Código de diseño de instalador realizado por Julio Francisco Chinchilla Valenzuela en NSIS"
  118.   VIAddVersionKey /LANG=${LANG_SPANISH} "LegalCopyright" "©Derechos Reservados ${COMPANY_NAME} ${ANHO}"
  119.   VIAddVersionKey /LANG=${LANG_SPANISH} "LegalTrademarks" "${COMPANY_NAME} es una marca registrada"
  120.   VIAddVersionKey /LANG=${LANG_SPANISH} "ProductName" "DB-Municipalidad"
  121.   VIAddVersionKey /LANG=${LANG_SPANISH} "InternalName" "DBIntranet"
  122.   VIAddVersionKey /LANG=${LANG_SPANISH} "OriginalFilename" "SetupDBIntranet"
  123.   VIAddVersionKey /LANG=${LANG_SPANISH} "CompanyName" "${COMPANY_NAME}"
  124.   VIAddVersionKey /LANG=${LANG_SPANISH} "FileVersion" "${VERSION_MAYOR}.${VERSION_MENOR}"
  125.   VIAddVersionKey /LANG=${LANG_SPANISH} "ProductVersion" "${VERSION_MAYOR}.${VERSION_MENOR}.${VERSION_DE_REVISION}.${VERSION_DE_COMPILACION}"
  126.  
  127.  
  128. ; otras configuraciónes no menos importantes
  129.  
  130. BrandingText "${COMPANY_NAME} - Derechos Reservados ${ANHO} - Hecho por Julio Chinchilla"
  131. Caption "${COMPANY_NAME} Instalación"
  132. CheckBitmap "Mui Orange Vista Theme\CheckBox.bmp"
  133.  
  134. ;****************************************************************************************************************
  135. ;******************************     INICIO DE FUNCIONES Y SECCIONES        **********************************
  136. ;****************************************************************************************************************
  137.  
  138. Var BMPTemp
  139. Var VSpaceGB
  140. Var VSpaceGBDec
  141.  
  142. Function .onInit
  143.  
  144. System::Call 'kernel32::CreateMutexA(i 0, i 0, t "${IDPRG}-${OMUI_THEME}") i .r1 ?e'
  145.  
  146.   Pop $R0
  147.  
  148.   StrCmp $R0 0 +3
  149.     MessageBox MB_OK|MB_ICONEXCLAMATION "Esta instalación ya se está ejecutando"
  150.     Abort
  151.    
  152. Call GetWindowsVersion
  153. Pop $R0
  154. Call Verificar_Registered_Owner
  155. Pop $R9
  156.  
  157. ${GetRoot} "$INSTDIR" $7
  158. ${DriveSpace} "$7\" "/D=F" $8
  159.  
  160. System::Int64Op $8 / 1074871567
  161. Pop $VSpaceGB
  162.  
  163. System::Int64Op $8 % 1074871567
  164. Pop $VSpaceGBDec
  165.  
  166. StrCpy $VSpaceGBDec $VSpaceGBDec 1
  167.  
  168. GetTempFileName $BMPTemp
  169.  
  170. File /oname=$BMPTemp "MUI Orange Vista Theme\${OMUI_THEME}\InstallerBMP.bmp"
  171.  
  172. InitPluginsDir
  173.   File /oname=$PLUGINSDIR\test.ini "CUSTOM_PAGES\CP_Serial.ini"
  174.   WriteINIStr $PLUGINSDIR\test.ini "Field 13" "Text" "$BMPTemp"
  175.   WriteINIStr $PLUGINSDIR\test.ini "Field 10" "Text" "Usuario: $R9"
  176.   WriteINIStr $PLUGINSDIR\test.ini "Field 11" "Text" "Sistema Operativo: Microsoft Windows $R0"
  177.   WriteINIStr $PLUGINSDIR\test.ini "Field 12" "Text" "Espacio en libre en disco $7\: $VSpaceGB.$VSpaceGBDec GB"
  178.  
  179.   HwInfo::GetSystemMemory
  180.   Pop $0
  181.   WriteINIStr $PLUGINSDIR\test.ini "Field 14" "Text" "Memoria Ram $0 MB"
  182.  
  183.   HwInfo::GetCpuNameAndSpeed
  184.   Pop $0
  185.   WriteINIStr $PLUGINSDIR\test.ini "Field 15" "Text" "$0"
  186.  
  187.   HwInfo::GetVideoCardName
  188.   Pop $0
  189.   WriteINIStr $PLUGINSDIR\test.ini "Field 16" "Text" "$0"
  190.  
  191.   HwInfo::GetVideoCardMemory
  192.   Pop $0
  193.   WriteINIStr $PLUGINSDIR\test.ini "Field 17" "Text" "$0 MB"
  194.   Pop $0
  195.  
  196. FunctionEnd
  197.  
  198.  
  199. LangString TEXT_IO_TITLE ${LANG_SPANISH} "INTRODUZCA UNA CLAVE DE PRODUCTO VÁLIDA"
  200. LangString TEXT_IO_SUBTITLE ${LANG_SPANISH} "Clave proporcionada por ®Intranet Guatemala"
  201.  
  202. Function SetCustom
  203.  
  204.   Push $R0
  205.   Push $R1
  206.   Push $R2
  207.  
  208. !insertmacro MUI_HEADER_TEXT "$(TEXT_IO_TITLE)" "$(TEXT_IO_SUBTITLE)"
  209. !insertmacro MUI_INSTALLOPTIONS_DISPLAY "CUSTOM_PAGES\CP_Serial.ini"
  210.  
  211.     InstallOptions::initDialog /NOUNLOAD $PLUGINSDIR\test.ini
  212.     Pop $R0
  213.     InstallOptions::show
  214.     Pop $R0
  215.  
  216.   Pop $R2
  217.   Pop $R1
  218.   Pop $R0
  219.  
  220. FunctionEnd
  221.  
  222.  
  223. Function Validar
  224.  
  225.   ReadINIStr $R2 "$PLUGINSDIR\test.ini" "Field 2" "State" #Aquí se lee el TextField Número 2
  226.   ReadINIStr $R3 "$PLUGINSDIR\test.ini" "Field 3" "State" #Aquí se lee el TextField Número 3
  227.   ReadINIStr $R4 "$PLUGINSDIR\test.ini" "Field 4" "State" #Aquí se lee el TextField Número 4
  228.   ReadINIStr $R5 "$PLUGINSDIR\test.ini" "Field 5" "State" #Aquí se lee el TextField Número 5
  229.   ReadINIStr $R6 "$PLUGINSDIR\test.ini" "Field 6" "State" #Aquí se lee el TextField Número 6
  230.   ReadINIStr $R7 "$PLUGINSDIR\test.ini" "Field 7" "State" #Aquí se lee el TextField Número 7
  231.  
  232.   StrCmp $R2 "SERA" 0 incorrecta
  233.   StrCmp $R3 "1234" 0 incorrecta
  234.   StrCmp $R4 "PIO1" 0 incorrecta
  235.   StrCmp $R5 "5678" 0 incorrecta
  236.   StrCmp $R6 "INUT" 0 incorrecta
  237.   StrCmp $R7 "IL12" ADELANTE incorrecta
  238.  
  239.   incorrecta:
  240.      MessageBox MB_OK|MB_ICONEXCLAMATION "DEBE INGRESAR CORRECTAMENTE LA LICENCIA DEL PRODUCTO !"
  241.      Abort
  242.  
  243.   ADELANTE:
  244.          
  245. FunctionEnd
  246.  
  247. InstType "Completa"
  248. InstType "Estandar"
  249. InstType "Mínima"
  250.  
  251. SectionGroup /e "!Base de datos" SecCopyI
  252. Section "!Oracle DB" SecCopyII
  253. SectionIn RO 1 2 3
  254.   SetOutPath "$INSTDIR"
  255.  
  256.   File "Licencia.rtf"
  257.   File "Licenciaideas.rtf"
  258.  
  259.   CreateDirectory "$INSTDIR\Oracle DB"
  260.  
  261.   WriteUninstaller "$INSTDIR\Uninst.exe"
  262. #  CreateShortCut "$SMPROGRAMS\WINAMP\CLASIC'S SKINS\Uninstall.lnk" "$INSTDIR\uninst.exe" "" "$INSTDIR\uninst.exe" 0
  263.  
  264.   WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\Uninst.exe"
  265.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "${NAMEPRG}"
  266.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\Uninst.exe"
  267.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\Uninst.exe,0"
  268.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${VERSION_DESPLEGAR}"
  269.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
  270.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLUpdateInfo" "${PRODUCT_WEB_SITE}"
  271.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
  272.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Readme" "Leame.txt"
  273.   WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Contact" "E-Mail: ideasSolutions@yahoo.com - Tel: (502)78724339 / (502)55445619"
  274.   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"
  275.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "NoModifiy" 0x000001
  276.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "NoRepair" 0x000001
  277.   WriteRegDWORD ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "EstimatedSize" 0x2239c
  278.  
  279.  
  280. SectionEnd
  281. SectionGroupEnd
  282.  
  283. SectionGroup /e "!Formularios" SecCopyIII
  284.    Section "!Programa en C++" SecCopyIV
  285.          SectionIn RO 1 2 3
  286.            CreateDirectory "$INSTDIR\Programa en C++"
  287.    SectionEnd
  288.    Section "Programa en JAVA" SecCopyV
  289.          SectionIn 1 2 3
  290.            CreateDirectory "$INSTDIR\Programa en Java"
  291.    SectionEnd
  292. SectionGroupEnd
  293.  
  294. Section "Algún elemento 1" SecCopyVI
  295.   SectionIn 1 2
  296.   CreateDirectory "$INSTDIR\Algún elemento 1"
  297. SectionEnd
  298.  
  299. Section "Algún elemento 2" SecCopyVII
  300.   SectionIn 1 2
  301.   CreateDirectory "$INSTDIR\Algún elemento 2"
  302. SectionEnd
  303.  
  304. Section "Algún elemento 3" SecCopyVIII
  305.   SectionIn 1
  306.   CreateDirectory "$INSTDIR\Algún elemento 3"
  307. SectionEnd
  308.  
  309. LangString Message1 ${LANG_SPANISH} "Elemento descriptivo de la Sección 1"
  310. LangString Message2 ${LANG_SPANISH} "Elemento descriptivo de la Sección 2"
  311. LangString Message3 ${LANG_SPANISH} "Elemento descriptivo de la Sección 3"
  312. LangString Message4 ${LANG_SPANISH} "Elemento descriptivo de la Sección 4"
  313. LangString Message5 ${LANG_SPANISH} "Elemento descriptivo de la Sección 5"
  314. LangString Message6 ${LANG_SPANISH} "Elemento descriptivo de la Sección 6"
  315. LangString Message7 ${LANG_SPANISH} "Elemento descriptivo de la Sección 7"
  316. LangString Message8 ${LANG_SPANISH} "Elemento descriptivo de la Sección 8"
  317.  
  318.  
  319. !insertmacro MUI_FUNCTION_DESCRIPTION_BEGIN
  320.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyI}    $(Message1)
  321.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyII}   $(Message2)
  322.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyIII}  $(Message3)
  323.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyIV}   $(Message4)
  324.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyV}    $(Message5)
  325.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVI}   $(Message6)
  326.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVII}  $(Message7)
  327.   !insertmacro MUI_DESCRIPTION_TEXT ${SecCopyVIII} $(Message8)
  328. !insertmacro MUI_FUNCTION_DESCRIPTION_END
  329.  
  330.  
  331. Section "Uninstall"
  332.  
  333.   Delete "$INSTDIR\*.*"
  334.   RMDir  "$INSTDIR\Programa en C++"
  335.   RMDir  "$INSTDIR\Programa en Java"
  336.   RMDir  "$INSTDIR\Algún elemento 1"
  337.   RMDir  "$INSTDIR\Algún elemento 2"
  338.   RMDir  "$INSTDIR\Algún elemento 3"
  339.  
  340.   DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
  341.   DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
  342.  
  343.   MessageBox MB_OK|MB_ICONINFORMATION "La base de datos oracle se encuentra a salvo!"
  344.   Exec 'Explorer "$INSTDIR\Oracle DB"'
  345.  
  346. SectionEnd
  347.  
  348.  
  349. #---------------------------------------------------------------------------------------------------
  350. #------------------          FUNCIONES ADICIONALES (PLUS!) -----------------------------------------
  351. #---------------------------------------------------------------------------------------------------
  352.  
  353.  
  354. Function GetWindowsVersion
  355.  
  356.    Push $R0
  357.    Push $R1
  358.  
  359.    ClearErrors
  360.  
  361.    ReadRegStr $R0 HKLM \
  362.    "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
  363.  
  364.    IfErrors 0 lbl_winnt
  365.  
  366.    ; we are not NT
  367.    ReadRegStr $R0 HKLM \
  368.    "SOFTWARE\Microsoft\Windows\CurrentVersion" VersionNumber
  369.  
  370.    StrCpy $R1 $R0 1
  371.    StrCmp $R1 '4' 0 lbl_error
  372.  
  373.    StrCpy $R1 $R0 3
  374.  
  375.    StrCmp $R1 '4.0' lbl_win32_95
  376.    StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98
  377.  
  378.    lbl_win32_95:
  379.      StrCpy $R0 '95'
  380.    Goto lbl_done
  381.  
  382.    lbl_win32_98:
  383.      StrCpy $R0 '98'
  384.    Goto lbl_done
  385.  
  386.    lbl_win32_ME:
  387.      StrCpy $R0 'ME'
  388.    Goto lbl_done
  389.  
  390.    lbl_winnt:
  391.  
  392.    StrCpy $R1 $R0 12
  393.  
  394.    StrCmp $R1 '3' lbl_winnt_x
  395.    StrCmp $R1 '4' lbl_winnt_x
  396.  
  397.    StrCpy $R1 $R0 3
  398.  
  399.    StrCmp $R1 '5.0' lbl_winnt_2000
  400.    StrCmp $R1 '5.1' lbl_winnt_XP
  401.    StrCmp $R1 '5.2' lbl_winnt_2003
  402.    StrCmp $R1 '6.0' lbl_winnt_vista lbl_error
  403.  
  404.    lbl_winnt_x:
  405.      StrCpy $R0 "NT $R0" 6
  406.    Goto lbl_done
  407.  
  408.    lbl_winnt_2000:
  409.      Strcpy $R0 '2000'
  410.    Goto lbl_done
  411.  
  412.    lbl_winnt_XP:
  413.      Strcpy $R0 'XP'
  414.    Goto lbl_done
  415.  
  416.    lbl_winnt_2003:
  417.      Strcpy $R0 '2003'
  418.    Goto lbl_done
  419.  
  420.    lbl_winnt_vista:
  421.      Strcpy $R0 'Vista'
  422.    Goto lbl_done
  423.  
  424.    lbl_error:
  425.      Strcpy $R0 ''
  426.    lbl_done:
  427.  
  428.    Pop $R1
  429.    Exch $R0
  430.  
  431. FunctionEnd
  432.  
  433.  
  434. Function Verificar_Registered_Owner
  435.  
  436.    Push $R9
  437.    Push $R8
  438.  
  439.    ReadRegStr $R9 HKLM \
  440.    "SOFTWARE\Microsoft\Windows NT\CurrentVersion" RegisteredOwner
  441.  
  442.    IfErrors 0 StringCopy
  443.  
  444.    ReadRegStr $R9 HKLM \
  445.    "SOFTWARE\Microsoft\Windows\CurrentVersion" RegisteredOwner
  446.  
  447.    StringCopy:
  448.    StrCpy $R8 $R9 1
  449.  
  450.    Pop $R8
  451.    Exch $R9
  452.  
  453. FunctionEnd
  454.  
  455.  
  456. Function .onGUIEnd
  457.  Delete $BMPTemp
  458. 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!