2

インストーラーのライセンス ページで、テキスト ボックスの代わりにハイパーリンクを使用したいと考えています。リンクには、ライセンス契約を含む私の Web ページのアドレスが含まれます。

テキストボックスは既に非表示にしていますが、問題はリンクを追加することです。次のようなものを追加したい：

ここをクリックしてライセンス契約をお読みください。

Linker プラグインと NSD_createlink を使用してみましたが、どちらの場合もインストーラーがクラッシュします。

どうすればそれを機能させることができますか?

編集：

ID 1006 のみのリンクを作成しようとしています。

以下は私のコードです。現在はクラッシュしていませんが、動作していません。

; For license page.
Function LicensePageShow
nsResize::Set $mui.LicensePage.TopText 120 180 250u 200u
;LogSet on
Call GetDateTime
Pop $dt
logex::Write "$dt In LicensePageShow "

GetDlgItem $0 $HWNDPARENT 1036
ShowWindow $0 ${SW_HIDE}

GetDlgItem $0 $HWNDPARENT 1045
ShowWindow $0 ${SW_HIDE}

GetDlgItem $0 $HWNDPARENT 1035
ShowWindow $0 ${SW_HIDE}

/* Hiding default License text box */
FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 1000
nsResize::Set $R0 0 0 0 0
ShowWindow $R0 ${SW_HIDE}


/* The License page Text */
FindWindow $0 "#32770" "" $HWNDPARENT
GetDlgItem $0 $0 1006
Linker::link /NOUNLOAD $0 "http://www.google.com"

FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 1038
ShowWindow $R0 ${SW_HIDE}

FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 1040
nsResize::Set $R0 50 80 300u 20u

System::Call '*(i,i,i,i)i.r1'
FindWindow $0 "#32770" "" $HWNDPARENT
GetDlgItem $2 $0 0x40A
System::Call 'USER32::GetWindowRect(ir2,ir1)'
System::Call 'USER32::MapWindowPoints(i0,ir0,ir1,i1)'
System::Call '*$1(i.r6,i.r7)'
System::Call 'USER32::GetClientRect(ir2,ir1)'
System::Call '*$1(i,i,i.r8,i.r9)'
IntOp $9 $9 + 3 ;padding
IntOp $7 $7 - $9
GetDlgItem $2 $0 0x3EE
System::Call 'USER32::GetClientRect(ir2,ir1)'
System::Call '*$1(i,i,i.r3,i.r4)'
System::Free $1
IntOp $4 $4 - $9 ;reduce size of label
System::Call 'USER32::SetWindowPos(ir2,i,i,i,ir3,ir4,i6)'
System::Call 'USER32::CreateWindowEx(i0,t "Button",t "Let Setup modify your browser settings",i ${__NSD_CheckBox_STYLE},ir6,ir7,ir8,ir9,ir0,i666,i0,i0)i.r2'
SendMessage $0 ${WM_GETFONT} 0 0 $0
SendMessage $2 ${WM_SETFONT} $0 1

${If} $Revisit == "false" ; If its Visited for first time
${NSD_SetState} $2 1 ;check it]
${Else} ; If user clicked back button on directory page
${NSD_SetState} $2 $checkboxstate
${endIf}

/* to Reposition the checkbox */
FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 666
;ShowWindow $R0 ${SW_HIDE}
;nsResize::Set $R0 50 120 300 20
System::Call 'USER32::SetWindowPos(i, i, i, i, i, i, i) b ($R0, 0, 50, 210, 300, 20, 0)'


FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 1034
;ShowWindow $R0 ${SW_HIDE}
;nsResize::Set $R0 50 120 300 20
System::Call 'USER32::SetWindowPos(i, i, i, i, i, i, i) b ($R0, 0, 50, 150, 300, 20, 0)'


FindWindow $R0 `#32770` `` $HWNDPARENT
GetDlgItem $R0 $R0 1035
;ShowWindow $R0 ${SW_HIDE}
;nsResize::Set $R0 50 120 300 20
System::Call 'USER32::SetWindowPos(i, i, i, i, i, i, i) b ($R0, 0, 50, 170, 300, 20, 0)'

; Set transparent backgrounds.
  FindWindow $mui.LicensePage "#32770" "" $HWNDPARENT
  SetCtlColors $mui.LicensePage 0xFFFFFF transparent
  !insertmacro SetTransparent $mui.LicensePage 1040
  !insertmacro SetTransparent $mui.LicensePage 1000
  ;!insertmacro SetTransparent $mui.LicensePage 1006
  !insertmacro SetTransparent $mui.LicensePage 1034
  !insertmacro SetTransparent $mui.LicensePage 1035
  !insertmacro SetTransparent $mui.LicensePage 666
  ; Refresh controls.
  Call RefreshParentControls
GetDlgItem $0 $HWNDPARENT 1045
ShowWindow $0 ${SW_HIDE}
FunctionEnd
4

2 に答える 2

1

簡単に言うと、リンカープラグインは正常に動作しますが、引用されたコードは動作しません。

このコードで何をしようとしていますか?

GetDlgItem $2 $0 0x3EE
System::Call 'USER32::GetClientRect(ir2,ir1)'
System::Call '*$1(i,i,i.r3,i.r4)'
System::Free $1
IntOp $4 $4 - $9 ;reduce size of label
System::Call 'USER32::SetWindowPos(ir2,i,i,i,ir3,ir4,i6)'
System::Call 'USER32::CreateWindowEx(i0,t "Button",t "Let Setup modify your browser settings",i ${__NSD_CheckBox_STYLE},ir6,ir7,ir8,ir9,ir0,i666,i0,i0)i.r2'
SendMessage $0 ${WM_GETFONT} 0 0 $0
SendMessage $2 ${WM_SETFONT} $0 1

0x3EE Hex は 1006 Dec です - このコントロールのサイズを変更しようとしていますか、位置を変更しようとしていますか?

このコードは間違いなく間違っています (使用すると、インストーラーがクラッシュしました)。

NSIS では CreateWindowEx メッセージを使用しないでください (これには多くの問題があります)。常に ResHacker でコントロールを作成してください。

于 2013-05-23T14:58:54.240 に答える