[ZaxBoys66]

Name "NSIS archive folder"

Page instfiles

OutFile "NSIS archive folder.exe"
InstallDir "$EXEDIR\NSIS archive folder"

SetCompressor /SOLID lzma

!define RUNASADMIN

!ifndef RUNASADMIN
RequestExecutionLevel 'admin' ;Require admin rights on NT6+ (When UAC is turned on)
!else
RequestExecutionLevel 'admin'
!endif

!include "FileFunc.nsh"
!include "LogicLib.nsh"
!include "TextFunc.nsh"
!include "WordFunc.nsh"

!insertmacro GetSize

Function .onInit
File "/oname=$TEMP\7za.exe" "7za\7za.exe"
FunctionEnd

var /global InSize
var /global OutSize
var /global SZ_1
var /global SZ_2
var /global SZ_3

Section "Program" P1

DetailPrint "Compressored filder..."

Setoutpath "$INSTDIR"

WriteINIStr "$INSTDIR\CatsSoft © 2015.url" "InternetShortcut" "URL" "http://portableroapps.blogspot.com/"

${If} ${FileExists} "$INSTDIR\CatsSoft © 2015.url"
nsExec::ExecToLog '"$TEMP\7za.exe" a "archive.7z" "$INSTDIR"'
${EndIf}
Delete "$TEMP\7za.exe"

${GetSize} "$INSTDIR" "/M=*.* /S=0K" $SZ_1 $SZ_2 $SZ_3
StrCpy $InSize 1024
StrCpy $InSize $SZ_1 / 1024
StrCpy $0 0
StrCpy $InSize $SZ_1
StrCpy $1 $InSize

IntCmp $1 1024 +3 +1 +3
StrCpy $1 "$1.0 KB"
Goto +12
IntOp $1 $1 * 100
IntOp $1 $1 / 1024
StrCpy $2 $1 "" -1
StrCpy $3 $1 1 -2
StrCpy $1 $1 -2
IntCmp $2 5 +1 +2 +1
IntOp $3 $3 + 1
StrCmp $3 10 +1 +3
StrCpy $3 0
IntOp $1 $1 + 1
StrCpy $1 "$1.$3 MB"
/*
How can pass here and GB
*/
StrCpy $OutSize $1

Messagebox MB_OK|MB_USERICON 'Size folder: $OutSize'

SectionEnd