Цитата MKN:
Вопрос : каким образом занести в одну (или несколько) переменную - ВСЕ полученные в цикле, данные ? »
|
Ты снова меня удивляешь простыми вопросами
Код:
Function .onInit
call test
MessageBox MB_OK|MB_ICONINFORMATION "$R0"
quit
FunctionEnd
Function test
StrCpy $R0 ""
System::Call 'kernel32::GetLogicalDrives()i.r0'
StrCpy $2 0
StrCpy $4 65 ; 'A'
loop:
IntOp $3 $0 & 1
${If} $3 <> 0
IntFmt $3 "%c:\" $4
System::Call 'kernel32::GetDriveType(tr3)i.r5'
DetailPrint "$3=$5"
StrCpy $R0 "$R0 $3"
${EndIf}
IntOp $4 $4 + 1
IntOp $0 $0 >> 1
StrCmp $0 0 "" loop
FunctionEnd