Имя пользователя:
Пароль:
 

Показать сообщение отдельно
MKN MKN вне форума

Ветеран


Сообщения: 2398
Благодарности: 573

Профиль | Отправить PM | Цитировать


может кому пригодится - конвертация размера файла из KB в MB :
Код: Выделить весь код
OutFile "Size_test.exe"
Var InSize
Var OutSize

Section
;задаём размер в KB, который надо конвертировать
;StrCpy $InSize 1024
StrCpy $InSize 2048
StrCpy $1 $InSize

IntCmp $1 1024 +3 +1 +3
StrCpy $1 "$1.0KB"
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"     

StrCpy $OutSize $1
MessageBox MB_ICONINFORMATION|MB_OK '$InSize KB  = $OutSize'
SectionEnd

Отправлено: 12:20, 13-03-2014 | #1084