Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для kotkovets

Ветеран


Сообщения: 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