Ветеран
Сообщения: 1216
Благодарности: 486
|
Профиль
|
Отправить PM
| Цитировать
Цитата wolkow70:
как на собственную страницу поместить просмотр текстового документа? »
|
Вот так:
читать дальше »
Код:
!include "MUI2.nsh"
!include "FileFunc.nsh"
Page custom Help
!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "Russian"
InstallDir "$PROGRAMFILES\LICENSE"
OutFile "Basic.exe"
Var TextPage
Var Dialog
Var Label
!define LoadRTF "!insertmacro macro_LoadRTFfunc"
!define __NSD_RichEdit_CLASS "RichEdit20A"
!define __NSD_RichEdit_STYLE ${DEFAULT_STYLES}|${WS_TABSTOP}|${WS_VSCROLL}|${ES_AUTOHSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}
!define __NSD_RichEdit_EXSTYLE ${WS_EX_WINDOWEDGE}|${WS_EX_CLIENTEDGE}
!insertmacro __NSD_DefineControl RichEdit
!macro macro_LoadRTFfunc file hwnd
Push `${file}`
Push ${hwnd}
System::Store Sr0r1
SendMessage $0 1077 0 0x7fffffff
System::Get "(i, i.R0, i.R1, i.R2) iss"
Pop $2
System::Call "*(i 0, i 0, k r2) i .r3"
System::Call "user32::SendMessage(ir0, i1097, i2, ir3)i.s"
Pop $4
Push $4
ClearErrors
FileOpen $1 "$1" r
${Do}
Pop $0
${IfThen} "$0" != "$4" ${|}${Break}${|}
System::Call "kernel32::ReadFile(ir1, iR0, iR1, iR2, i0)"
Push 0
System::Call "$2"
${Loop}
FileClose $1
System::Free $3
System::Free $2
System::Store L
!macroend
Function Help
nsDialogs::Create 1018
Pop $Dialog
${NSD_CreateLabel} 0 0 100% 12u "Вы можете ознакомиться с информацией об устанавливаемой программе"
Pop $Label
${NSD_CreateRichEdit} 0 13u 100% 100% ""
Pop $TextPage
${LoadRTF} "$EXEDIR\test.rtf" $TextPage
nsDialogs::Show
FunctionEnd
Section "Main"
SectionEnd
|
-------
Спасибо ВСЕМ за то, что тратите свое время, что бы ПОМОЧЬ МНЕ.
Отправлено: 15:04, 10-05-2012
| #2688
|