Thanks!
Mitch
Here's the code so far:
; ---------------------------
; header stuff here...
; ---------------------------
Page instfiles
Page custom PageReleaseNotes "" ""
; ------------------------------------------------------------------
; Reads in the Release Notes and displays at end of installtion
Var Dialog
Function PageReleaseNotes
nsDialogs::Create /NOUNLOAD 1018
Pop $Dialog
${If} $Dialog == error
Abort
${EndIf}
StrCpy $R1 ""
StrCpy $R2 ""
ClearErrors
StrCpy $R0 "Release Notes$\r$\n"
StrCpy $9 0
FileOpen $1 "$INSTDIR\icw\release_notes.txt" r
IfErrors ReadErr
ReadLoop:
FileRead $1 $2
IfErrors LoopErr
StrLen $5 $R0
${If} $5 >= 1000 ;; we're about to exceed register capacity
StrLen $5 $R1
${If} $5 > 0
StrCpy $R2 $R0
${Else}
StrCpy $R1 $R0
${EndIf}
StrCpy $R0 ""
${EndIf}
StrCpy $4 $R0
StrCpy $R0 "$4 $\r$\n $2"
IntOp $9 $9 + 1
GoTo ReadLoop
LoopErr:
StrCpy $4 $R0 ; make sure we grab that last line read in
StrCpy $R0 "$4 $\r$\n $2"
FileClose $1
ReadErr:
nsDialogs::CreateControl /NOUNLOAD ${__NSD_Text_CLASS} \
${DEFAULT_STYLES}|${WS_TABSTOP}|${ES_AUTOHSCROLL}|${ES_MULTILINE}|${WS_VSCROLL} \
${__NSD_Text_EXSTYLE} 0 0 100% 100% "$R1 $R2 $R3"
Pop $0
; Display the dialog
nsDialogs::Show
FunctionEnd