[MKN]

Изменяем стандартную страницу выбора компонентов PAGE_COMPONENTS без правки ресурсов

Код:

!define PRODUCT_NAME "COMPONENTSPRE"
!define PRODUCT_VERSION "1.0"
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "COMPONENTSPRE.exe"
InstallDir "$TEMP"
!include "MUI2.nsh"

!define SWP_SHOWWINDOW 0x00000040

!define MUI_PAGE_HEADER_TEXT "Текст 1"
!define MUI_PAGE_HEADER_SUBTEXT "Текст 2"
!define MUI_COMPONENTSPAGE_TEXT_TOP "Текст 3"

!define MUI_PAGE_CUSTOMFUNCTION_PRE COMPPRE
!define MUI_PAGE_CUSTOMFUNCTION_SHOW SETCTLPOS
!insertmacro MUI_PAGE_COMPONENTS

!insertmacro MUI_PAGE_INSTFILES
!insertmacro MUI_LANGUAGE "English"

Section "Section1" SEC01
SectionEnd

Section "Section2" SEC02
SectionEnd

Section "Section3" SEC03
SectionEnd

Function COMPPRE
SectionSetText ${SEC01} "Component1"
SectionSetText ${SEC02} "Component2"
SectionSetText ${SEC03} "Component3"
FunctionEnd

Function SETCTLPOS
FindWindow $R0 "#32770" "" $HWNDPARENT
GetDlgItem $0 $R0 1021
System::Call 'user32::DestroyWindow(ir0)'
GetDlgItem $0 $R0 1022
System::Call 'user32::DestroyWindow(ir0)'
GetDlgItem $0 $R0 1023
System::Call 'user32::DestroyWindow(ir0)'
GetDlgItem $0 $R0 1042
System::Call 'user32::DestroyWindow(ir0)'
GetDlgItem $0 $R0 1043
System::Call 'user32::DestroyWindow(ir0)'
GetDlgItem $0 $R0 1017
System::Call "user32::SetWindowPos(ir0,i0,i0,i30,i450,i180,i${SWP_SHOWWINDOW})"
GetDlgItem $0 $R0 1032
System::Call "user32::SetWindowPos(ir0,i0,i0,i52,i450,i158,i${SWP_SHOWWINDOW})"
FunctionEnd

[MKN]

Подскажите пожалуйста - как с помощью WMI вызова узнать версию файла шрифта ?
(вроде бы надо как то использовать Win32_FontInfoAction Version. Но как ? )

[kotkovets]

(вроде бы надо как то использовать Win32_FontInfoAction Version. Но как ? ) »

можно так в скрипте vbs:

Код:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_FontInfoAction",,48)
For Each objItem in colItems
    Wscript.Echo "ActionID: " & objItem.ActionID
    Wscript.Echo "Caption: " & objItem.Caption
    Wscript.Echo "Description: " & objItem.Description
    Wscript.Echo "Direction: " & objItem.Direction
    Wscript.Echo "File: " & objItem.File
    Wscript.Echo "FontTitle: " & objItem.FontTitle
    Wscript.Echo "Name: " & objItem.Name
    Wscript.Echo "SoftwareElementID: " & objItem.SoftwareElementID
    Wscript.Echo "SoftwareElementState: " & objItem.SoftwareElementState
    Wscript.Echo "TargetOperatingSystem: " & objItem.TargetOperatingSystem
    Wscript.Echo "Version: " & objItem.Version
Next

хотя версия не возвращается почему-то и там и там.. работает практически аналогично..
эксперементально на nsis

[MKN]

kotkovets,
А как натравить скрипт на конкретный TTF ? (рядом находящиеся не видит...)
И очень очень долго идёт обработка (у меня минуты три, а что находит - не понятно...)
Вот так после обработки :

Код:

===============root\CIMV2=====================
GlobalUserInterface.CompositeFont{A3051CD0-2F64-3813-A88D-B8DCCDE8F8C7}
Global User Interface
GlobalUserInterface.CompositeFont
=======
GlobalSerif.CompositeFont{A3051CD0-2F64-3813-A88D-B8DCCDE8F8C7}
Global Serif
GlobalSerif.CompositeFont
=======
GlobalSansSerif.CompositeFont{A3051CD0-2F64-3813-A88D-B8DCCDE8F8C7}
Global Sans Serif
GlobalSansSerif.CompositeFont
=======
GlobalMonospace.CompositeFont{A3051CD0-2F64-3813-A88D-B8DCCDE8F8C7}
Global Monospace
GlobalMonospace.CompositeFont
=======
===================end======================
Готово

Может WMI вообще не пригоден для работы с шрифтами ? И может использовать API FontResource функции ? Правда никто не знает как...

[kotkovets]

А как натравить скрипт на конкретный TTF ? »

по ходу только трассируется по умолчанию шрифт..
я не спец по vbs..
спроси в другой теме..
попробую перевести на nsis , ну если узнаешь как на VBS делать..

[Waterclo]

MKN, спасибо всё получилось, как я хотел.

!insertmacro MsgBox $0 " Текст сообщения " " Заголовок " 0x40|0x1 »

Один вопрос остался, как в " Текст сообщения ", если он окажется очень длинным, сделать перенос строк? С символом "\n" не получается.

[MKN]

С символом "\n" не получается. »

Используй $\r$\n

[diakov]

Подскажите как выйти из ситуации, вот код:

Код:

Function ClickButton
pop $btn
IfFileExists "$SYSDIR\drivers\sptd.sys" 0 NotFiles
MoreInfo::GetFileVersion "$SYSDIR\drivers\sptd.sys"
Pop $1
${StrFilter} "$1" "1" "." "()" $0
MessageBox MB_ICONEXCLAMATION|MB_OK "Версия $0"
Goto Done
NotFiles:
MessageBox MB_ICONEXCLAMATION|MB_OK "Нет файла"
Done:
FunctionEnd

Если на 32 системе то показывает версию, а если на 64 то нет, хотя сам файл в папке на х64 проводник видет.

[MKN]

diakov,
возможно дело в Redirection (перенаправлении)
попробуй в Function .onInit :
${If} ${RunningX64}
${DisableX64FSRedirection} # или ${EnableX64FSRedirection}
${EndIf}

[diakov]

Подскажите такое, есть код:

Код:

Function ClickButton1
pop $btn1
IfFileExists "$SYSDIR\drivers\sptd.sys" 0 NotFiles
MoreInfo::GetFileVersion "$SYSDIR\drivers\sptd.sys"
Pop $1
${StrFilter} "$1" "1" "." "()" $0
MessageBox MB_USERICON|MB_YESNO 'Обнаружена установленная версия драйвера SPTD $0.$\n Хотите обновить драйвер до версии 1.83? $\n$\n (В конце установки ПК будет автоматически перезагружен.)' /SD IDYES IDNO Done
${If} ${RunningX64}
ExecWait '"$PLUGINSDIR\SPTD64.exe" add /q'
${Else}
ExecWait '"$PLUGINSDIR\SPTD86.exe" add /q'
${EndIf}
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" "Setup" '"$EXEPATH"'
MessageBox MB_ICONEXCLAMATION|MB_OK "После нажатия на кнопку ОК компьютер автоматически перезагрузится."
Reboot
Goto Done
NotFiles:
${If} ${RunningX64}
ExecWait '"$PLUGINSDIR\SPTD64.exe" add /q'
${Else}
ExecWait '"$PLUGINSDIR\SPTD86.exe" add /q'
${EndIf}
WriteRegStr HKCU "SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce" "Setup" '"$EXEPATH"'
MessageBox MB_ICONEXCLAMATION|MB_OK "После нажатия на кнопку ОК компьютер автоматически перезагрузится."
Reboot
Done:
FunctionEnd

НО, после нажатия на кнопку ОК перезагрузка не происходит, комп перезагружается только после того как закрыть установщик вручную! Как быть?