[Main]
Title=RStudio 5.4
Type=script
Selected=True
Level=5
Author=Bryan Heilbrunn
version=3
Description=Installs RStudio 5.4
date=2012-May-22
NoWarning=False
Download_Level=0
History002=Initial Release
History003=Updated embedded CMD file to get the License key onto one line of the key.ini file
History003=Updated the Read INI code to remove extra spaces in the license key

[Interface]
pBevel1=pBevel1,1,12,0,3,251,197
pTextLabel1="Create Shortcuts : ",1,1,10,009,164,18,12,Bold
CheckBox_Desktop=Desktop,1,3,20,40,170,18,True
CheckBox_QuickLaunch="Quick Launch",1,3,20,59,170,18,True
CheckBox_StartMenu="Start Menu",1,3,21,78,170,18,True
TextBox_StartMenuFolder="Start Menu folder:",1,0,20,120,200,60,"HD Tasks\Recover"
pBevel2=pBevel2,1,12,260,4,290,197
pTextLabel2="License : ",1,1,269,9,164,18,12,Bold
//-
TextBox_LicenseVal=License:,1,0,280,49,150,21,"Not Loaded Yet"
pButton_import1=Registry,1,8,440,49,50,20,LoadLicense_REG,0,True,False,_LoadLicense_REG_,True
pButton_import2=INI,1,8,495,49,50,20,LoadLicense_INI,0,True,False,_LoadLicense_INI_,True
//-
pTextLabel3="Click a button to import your License Key.  Either #$qRegistry#$q to load from your local registry or INI to load from the key.ini file created during the GetFiles step.  If you don't select either, no key will be set in the registry and you will need to add it yourself.",1,1,280,124,250,80,8,
pBevel3=pBevel3,1,12,0,207,251,108
pTextLabel4="Options :",1,1,10,215,230,18,12,Bold
pBevel4=pBevel4,1,12,260,209,289,107
pTextLabel5="If you need to retrieve your License Information from a registry then click the button below and it will create a file named #$qGetKeyFromReg.cmd#$q.  Run that on the system where the software is installed and it will create the needed key.ini file.",1,1,268,213,269,77,8,Normal
pButton2=Create,1,8,352,284,80,25,CreateGetRegKeyCMD,0,False,False,_CreateGetRegKeyCMD_,True
pCheckBox_DeleteDownloads="Delete downloaded files when completed",1,3,20,248,225,18,False
ScrollBox_RunFromWhere="Run from RAM",1,4,19,280,140,21,"Run from RAM","Run from CD"
//-
pInstallStorageBox=%GlobalTemplates%\Apps\R-Studio,1,13,6,340,320,20,dir
pInstallStorageLabel="Storage Directory: (for downloaded and key file)",1,1,8,324,296,18,8,Bold
pInstallStorageButton=Explore,1,8,334,338,55,24,Process-OpenStorageDir,_Process-OpenStorageDir,False,_Process-OpenStorageDir_,False

[Process-OpenStorageDir]
If,%pInstallStorageBox%,Equal,"",Exit,""
If,Not,ExistDir,%pInstallStorageBox%,DirMake,%pInstallStorageBox%
System,FILEREDIRECT,OFF
ShellExecuteEx,Open,explorer.exe,/e#$c#$q%pInstallStorageBox%#$q
System,FILEREDIRECT,ON
//-

[CreateGetRegKeyCMD]
ExtractFile,%ScriptFile%,Folder,GetKeyFromReg.cmd,%pInstallStorageBox%
System,FILEREDIRECT,OFF
ShellExecuteEx,Open,explorer.exe,/e#$c#$q%pInstallStorageBox%#$q
System,FILEREDIRECT,ON

[Variables]
%ProgramTitle%="R-Studio 5.4"
%ProgramEXE%=RStudio32.exe
%ProgramFolder%=R-Studio
//-
%RegKeyToRead%="Software\R-TT\R-Studio\00000000"
//-
%LicenseKey%="Not Loaded Yet"
//-
%ExtractDir%=%GlobalTemp%\Apps\RStudio5.4

[Process]
StrFormat,REPLACE,%ScrollBox_RunFromWhere%," ","",%runfrom%
If,Not,%runfrom%,Equal,Rundefault,Call,VariableToMacro,%runfrom%,True
//-
set,%StorageDir%,%pInstallStorageBox%
set,%ProgramPathLive%,%PE_PROGRAMS%\%ProgramFolder%
//-
if,%SourceArch%,Equal,X64,set,%ProgramEXE%,RStudio64.exe
//-
set,%LicenseKey%,%TextBox_LicenseVal%
//-
Run,%ScriptFile%,Create_Directories
Run,%ScriptFile%,GetDownloadFile
Run,%ScriptFile%,Install_File
Run,%ScriptFile%,WRITE_REG_KEY
Run,%ScriptFile%,CreateShortCuts

[Create_Directories]
Echo,"Making new directories.."
DirMake,%Target_Prog%\%ProgramFolder%
DirMake,%StorageDir%
DirMake,%ExtractDir%

[GetDownloadFile]
echo,"Downloading PowerPack File..."
WebGetIfNotExist,"http://www.r-tt.com/downloads/rs64_en_5.exe",%StorageDir%\rs64_en_5.exe

[Install_File]
echo,"Copy Needed Files..."
ShellExecute,hide,cmd.exe, "/c %Tools%\7z.exe e -y -o#$q%Target_Prog%\%ProgramFolder%#$q #$q%StorageDir%\rs64_en_5.exe#$q  #$qTemplates\%ProgramEXE%#$q"

[CreateShortCuts]
echo,"Creating Shortcuts..."
If,%CheckBox_StartMenu%,Equal,True,Add_Shortcut,StartMenu,%TextBox_StartMenuFolder%,"%ProgramPathLive%\%ProgramEXE%",%ProgramTitle%
If,%CheckBox_Desktop%,Equal,True,Add_Shortcut,Desktop,,"%ProgramPathLive%\%ProgramEXE%",%ProgramTitle%
If,%CheckBox_QuickLaunch%,Equal,True,Add_Shortcut,QuickLaunch,,"%ProgramPathLive%\%ProgramEXE%",%ProgramTitle%

[CLEAN_UP]
echo,"Clean up..."
DirDelete,%ExtractDir%
if,%pCheckBox_DeleteDownloads%,Equal,True,FileDelete,%StorageDir%\rs64_en_5.exe

[LoadLicense_INI]
if,Not,ExistFile,"%pInstallStorageBox%\Key.ini",Message,"Cannot find %pInstallStorageBox%\Key.ini.#$xRead directions below to create it.", ERROR
else, Begin
IniRead,"%pInstallStorageBox%\Key.ini",LicenseKey,#$ql3#$q,%LicenseKey%
if,%LicenseKey%,Equal,,set,%LicenseKey%,"N/A"
StrFormat,Replace,%LicenseKey%,hex:,,%LicenseKey%
StrFormat,Replace,%LicenseKey%,"  ",,%LicenseKey%
StrFormat,CTRIM,%LicenseKey%,#$q,%LicenseKey%
ScriptInterface,Write,Value,,,TextBox_LicenseVal,%LicenseKey%
System,REFRESHINTERFACE
end

[LoadLicense_REG]
if,ExistRegKey,"HKCU","%RegKeyToRead%","l3",RegRead,"HKCU","%RegKeyToRead%","l3",%LicenseKey%
else,set,%LicenseKey%,"N/A"
StrFormat,Replace,%LicenseKey%,hex:,,%LicenseKey%
StrFormat,CTRIM,%LicenseKey%,#$q,%LicenseKey%
ScriptInterface,Write,Value,,,TextBox_LicenseVal,%LicenseKey%
System,REFRESHINTERFACE

[WRITE_REG_KEY]
echo,"Updating Registry..."
if,not,%LicenseKey%,Equal,"Not Loaded Yet",begin
RegHiveLoad,HOLD_DEFAULT,%RegDefault%
RegWrite,HKLM,0x3,"HOLD_DEFAULT\Software\R-TT\R-Studio\00000000","l3",%LicenseKey%
RegHiveUnload,HOLD_DEFAULT
end

[EncodedFile-AuthorEncoded-repair.ico]
lines=0
0=eJytVn9YU9cZfhWUyLC4R6ZTx2RTqWLVteocT7uqVMX6gA6dMH9VUUq181F+PDVUrImrkEws4FQUQYtRMSAz0GBQGBoVwo/EKAJRQIQgIOgloKjEijn7bhIQu+2/fXnee877vd/5zv3OPTf3AIMwGB4eoFYAuQDwBIiPIO6ItsGAnnyTeR9hHmxxVnPEGxtkB+92dISnpyemeXlh1owZ8Pb2xqI5czB/13vAzFB84uMDf39/BPj6Yt26dYhYvhzR0Svx5ebN2EXYGf4FwsPDIYyMhFAoRH04cGTbNpyh/g87wpGz6yvk7dyJ7N27UbJrN4YmO2LGMXe4Ktwx7tI0fJQ1Gx4xPphcMh+zq1diSVskuiUAd3wGLBlesJz/GIUxW3A2TgTNvtVgOYvx+uJqFB2IRpN8I9qzN+LZpU1g+SGw/OtLNP4zCs+uhENcEgWm3gF2LRqsKBqWayKqJxk7QqVYsPIU9XVUPaOWITRUh+PfxGNVz0G8n/gUockMS7JeYlF5BUJ1DN+KxYiNjUViYiKSkpKgionBxf2JyD12DKfT0nAmQ478tJMozD2LnOwc5OXloaDwCjSxEtzeF4vKE3/D9UOHUZ50GEWpSdCnHkbL8eNgyclg1NbJj6BVdRhllKvk3DkY5HJo806hOk+BGxcuoDo/D6asLLCTJ8HOpqP3rBws8xy4s9mw5OSAqS5Q/ZfALhciu+YMaopSYCqJx9Py78DK4vGi/CAsuiS8uH4U3WXfg904RqD5b59ARcN5aK4VoK7kB9wuzkftzXyU3c+GUX0eT3XpFHcGTH8OPYYsPL6mRPfVPJiL88ifiy6KZzcK0FKhRG+9Ci/vF6LGmAV9Uz6kqnt4cUEPmU6HZMZw9epVlJTfgFarhU5bCh35a0tKUEm8Qq9H3c2buFOpRZmuAhW3bqG6ogJVVVWoMtTgzt0a1NTUoIFQW3cPdffuob6+Ht1F1+j5XqfnS9Bo8Fp7jWotA9OW0z3zrR6M5nlyS4/XRTVouluB9oZqNNfVoa2hAYzmMRuqwKoNsFTW4FVtLRhpTxpvgrWW4tGDerx6dAc191upzidoMDZDR7U0NTXB+KAFxuZWPHzYisctTeDaWtD8sA3t7e3o4B7jEdcBZnyArvYWsM5GdD16hOedHFhbG/FOWF5waO94io7OLlhaX8PU3YvnT7vxqucF2DPCyx4873lJfQtevHxNnPrsR5h/7AUzM1gsFvxfbImzy6i3HD5z5woGyCNdhjk6DHMZaWWuPxs61GfRvI/6A1yXG5oVKX6uzkMcBjuPGD5qTWiIz6L5/bpfkLySI3tY+cXUnw8f+1eluviuVR9m04NSAm83NDQ85GrF4hmrtkdEKlVqa35Ha4A8MDCltCHpN3O+2iFc/avgrdsjIpQqqz7Kgb8hWVBgUGlDrDvZr8dsCw4O5jNY818eTv+FSE+RKwprY8d7jHd3Wh+xlQK2RkT4fEo6t2IoJUiX6RSFZXs8Jni4v6OM5AMKtFqbXjd8COmpekVhyZ4JEz3cp6r4gOtNR4/adG6qw58gl1n1iZMmuK9Tq5QRkaawMWN8jpFeZ/rckfTvK3SFhw5PmjTxtyFqlUqpNv0l+ZBVL63cMpR0eaVOc/DwggWLFy5Tkam50OVxPjc+nSu4oN7M6+mGKk1czGJf34WfkHy93tQU8ksfsohIVSivZxhLNeK9Cxf6Lvxj7l0TLXSTtqDJOWDk9gjlWlpB+enpH2hE0qAjR3w/3sI/B86k1RY4B7jRSo6m+jN2eL6viRZFR4u+WT+umdfvKpURND44eP1wWr/MHZ6/03xts1UreL1YrRziHIDg4LFL4Ez6L2Zr/uBttQ+9aAY3t+vqkW4Bbm6raOe4IPPbTYpDM2fNnGU1r8/902V+/oGBAQEBfm5uehovD0o9OG3yFN6mTZ/+nj8XyHGyVBlZgMIFUMiCUuOmlNVp4qJ+/8GUyZP9Oc6fwHUodLwMhVzfcbCE49oePDBWFRb+Q+jv/+67AVbz5/dPhoEzbNmSdtnQ1mw0Gm7d0pWXZ8akrPTzs29PhUKfMXrU6NHjloVsSStUXNYrFBkZipSVfbtbptDHeI0ZM3rsuHFjly5dE6IwGA365c79L0eQsXHnTG/Rrk2bNn722Zq1a6+0tNy/Hzi4f3hVR533h9Ei0d/37UtISIj/7kJx8d16g7OLXT9x7+DXVtmqH8jNXVFcf5/j/PoSnPjzdG+RffSBA7mqbJdTLVS9YmT/BKdle/fu3bxZItm/PzFXtdlPVl2dmS6T/cdLfkpGv1Pp1DlJ35A+M4t653Y5qcc3AuPV9C4TnMSAgx2D7MB/QZ/Gxw0mOA7w8z4+z1yCiMDE1g8tRH3g/UwdzN4+p9gOKOL+1QNGvFWD2D652H4PYr5LEEOtpjvnp+Bnof9na8P/eBd/sZkw7K18QmlBvq3nlJBAF7M5Lj/Txs1mJ0SJEgoy00I32HRBmFBijssUZ26w65KoKFGc3M5JF0okEsgbB+pheKfxjS6Nb6RVeaPHt51HVJiNMyYQmvaZrvSI+ziNP2+6kvBGj9ppenzR3JW5QSq2cqnEVHAxgeIFEhsXCwsuSpG5IaqPMzqOUTzrgZNQyOtkYZlpQomd20oFnQ9FjIVJxVFSMoFAGsaf44QCMXkpj6uZXzUaKRYtmOc4TwABzykDREudwpyihADvELEu0TKBhHLQpLYA16WuCWZKmWBfb9Ey1y5XStnVx5d2vSMe8DxEizs722JDzGH9PN5ikQ7kUgrY+4YvsNobzqzWz52ENgsD63Vle7ocmLiR9t48674cALUd/b6+d2DQT0FJHXjwFZgJvQT6Cg+ikhz+J8xw+jeLxp/teJzjKkotSMws0stMzmcYBSMPbOOG0HEc2OV3iQYmMzABAJ+5BqPW6yTeAQAAAAIAAAAmAAAAXggAAAAAAAABAAAAAAAAAAAAAAA

[AuthorEncoded]
repair.ico=2216,2955
Logo=repair.ico

[EncodedFolders]
Folder

[Folder]
GetKeyFromReg.cmd=438,584

[EncodedFile-Folder-GetKeyFromReg.cmd]
lines=0
0=eJx9UVtLwzAUfg/kP5wVAvPBzb0KFUWLHXWbtHUqVkZsT7dgTEab6Qr+eNN1U7exJRAOOd/lXC4xnWnQeU6JyMFhPcd1HQem2mg4H/SjqD+8ndxfxT4lJRqoo8mj74Wey3qUNLDwYTgZeJTU9zins0/ZYtfwAKsxl64fXD8kkc7NFy8wCU/j2D6RWWRCJ2fr05DWGt7T/SiMKSlwCric68IAa7QYsL8aWOJrmXVqVLeiZNX+y51IUZVo4a9wsY1+x6ojlGiMTDXH7fRsI/YNuVAZdD+hK8B5tLH+Kp2dbz/wnp1dB+s6UrLqmKVZz0DqlEtAxd8kZih5Zd/lnKtSaNUMaXwVupTkuoCu3Vo8Crxh5PbgBqX4KN3EAcY4CAXtQ04nkGloN2LpoihQGSkUupb359D65EWr9S/douSkrnE1NWYhDC4OzcsWfqTPvexmK7/yQSMEaYHcYEbJnC9K/AGbscnheJwTdE8t8U6tdCvKzw1KTddLzk1hGAUjCGxggtCpjNjlC8vYTjIwAQDHtgk/2un8ngEAAAACAAAALQAAAGUBAAAAAAAAAQAAAAAAAAAAAAAA