Цитата MKN:
вывести строки в ListBox - с 1ой по 4ую включительно ? »
|
Ну диапазон же...
IntCmp...
Код:
OutFile ListBoxHSCROLL_ExecDosTOWINDOW.exe
!include nsDialogs.nsh
Var Dialog
Var hcli
Var ListBox
Page custom MyPage leave
Function MyPage
nsDialogs::Create 1018
Pop $Dialog
nsDialogs::CreateControl /NOUNLOAD ${__NSD_ListBox_CLASS} ${__NSD_ListBox_STYLE}|${WS_HSCROLL} ${__NSD_ListBox_EXSTYLE} 0 20 100% 100u ""
Pop $ListBox
SendMessage $ListBox ${LB_SETHORIZONTALEXTENT} 2000 0 ; 2000 - количество пикселей, на которое список может прокручиваться.
GetFunctionAddress $0 MyFunction
ExecDos::exec /NOUNLOAD /ASYNC /TOFUNC `cmd /?` "" $0
Pop $hcli
nsDialogs::Show
FunctionEnd
Function leave
ExecDos::wait $hcli
FunctionEnd
Function MyFunction
Pop $2
IntOp $R0 $R0 + 1
IntCmp $R0 4 0 0 noAddString
System::Call "user32::OemToChar(tr2, t.r2)"
SendMessage $ListBox ${LB_ADDSTRING} 0 "STR:$2"
noAddString:
FunctionEnd
Section
SectionEnd