[K.A.V.]

Интересно, возможно ли убрать рамку-окантовку вокруг текста, которая появляется при клике на линке ? »

Удалить стиль WS_TABSTOP у контрола не канает? Только тогда нельзя будет перейти на него TAB'ом

Код:

${NSD_RemoveStyle} $mylink ${WS_TABSTOP}

если нет макроса NSD_RemoveStyle

Код:

!define NSD_RemoveStyle "!insertmacro _NSD_RemoveStyle_Call"
!macro _NSD_RemoveStyle_Call CONTROL EXSTYLE
  Push `${CONTROL}`
  Push `${EXSTYLE}`
  System::Store SR1R0
  IntOp $R1 $R1 ~
  System::Call `user32::GetWindowLong(iR0,i${GWL_STYLE})i.R2`
  IntOp $R2 $R1 & $R2
  System::Call `user32::SetWindowLong(iR0,i${GWL_STYLE},iR2)`
  System::Store L
!macroend

[MKN]

Удалить стиль WS_TABSTOP у контрола не канает? »

Не, не канает... Рамка на месте...

[kotkovets]

Не, не канает... Рамка на месте... »

а какая цель, простое любопытство или мешает жить ?
---
кинь код, любопытно стало .....

[MKN]

а какая цель, простое любопытство или мешает жить ? »

Ужасно не красиво, на мой взгляд появление этой рамки...

Цель - всё тот же метрофейс. Очень удобно кликать по цветным плиткам-линкам - и ладошка-указатель есть (не надо заморачиваться лишним кодом), и рамку-выделение плитки-кнопки не сложно организовать и главное - никаких внешних картинок не надо...
код стандартный :

Код:

outfile CreateLink-test.exe

Page Custom MyPage
Page Instfiles
!include nsDialogs.nsh

Var dlg
Var Link1

Function MyPage
nsDialogs::Create 1018
Pop $dlg
${NSD_CreateLink} 16u 15u 100u 30u " ссылка "
Pop $Link1
CreateFont $2 "Arial" 18
SendMessage $Link1 ${WM_SETFONT} $2 0
SetCtlColors $Link1 0xff5500 0xffff00
${NSD_OnClick} $Link1 ClickLink1
nsDialogs::Show
FunctionEnd
 
Function ClickLink1
MessageBox MB_OK "Click"
FunctionEnd
  
Section
SectionEnd

[kotkovets]

Ужасно не красиво, на мой взгляд появление этой рамки... »

наверно не избавиться так просто, рамка вырисовывается заново, когда элемент получает фокус,
как перехватить действие фокуса - я не знаю. на html полно решений (есть свойство border)

[Sancho5555]

MKN, Через Label + OCR_HAND можно cделать.

[ZaxBoys66]

# INCLUDES

!include "FileFunc.nsh"
!include "TextFunc.nsh"

OutFile "content-length_test.exe"

Section 'Size App' Main

inetc::head /silent "http://dl.7-zip.org/7z1505.exe" "$EXEDIR\File.txt"
Pop $R0
StrCmp $R0 "OK" +3
MessageBox MB_ICONEXCLAMATION "$R0.Can not be downloading!"
Goto Cancelled

StrCpy $0 0
stGet:
IntOp $0 $0 + 1
${LineRead} "$EXEDIR\File.txt" "$0" $1
IfErrors 0 +2
MessageBox MB_OK|MB_ICONSTOP "error" idok error
StrCpy $2 "$1" 16
StrCmp $2 "Content-Length: " 0 stGet
StrCpy $2 "$1" "" 16
MessageBox MB_OK|MB_ICONINFORMATION "$2"
error:

/*
${LineRead} "$EXEDIR\File.txt" "6" $1
IfErrors 0 +2
MessageBox MB_OK|MB_ICONSTOP "error" idok error
StrCpy $2 "$1" 16
StrCmp $2 "Content-Length: " +2 0
MessageBox MB_OK|MB_ICONSTOP "error" idok error
StrCpy $2 "$1" "" 16
MessageBox MB_OK|MB_ICONINFORMATION "$2"
error:
*/

Cancelled:
SectionEnd

; This file can not be read.Message error.Please help.

[wolkow70]

На системах Windows 7,8 можно вызвать апплет "программы по умолчанию" для конкретной программы таким способом.
!define CLSCTX_INPROC_SERVER 0x1
!define CLSID_ApplicationAssociationRegistrationUI {1968106d-f3b5-44cf-890e-116fcb9ecef1}
!define IID_IApplicationAssociationRegistrationUI {1f76a169-f994-40ac-8fc8-0959e8874710}

System::Call 'OLE32::CoCreateInstance(g "${CLSID_ApplicationAssociationRegistrationUI}",i 0,i ${CLSCTX_INPROC_SERVER},g "${IID_IApplicationAssociationRegistrationUI}",*i.r1)i.r0' ;ptr is now in $1 and hr in $0
${If} $1 <> 0
System::Call '$1->3(w "название программы")i.r0'
System::Call '$1->2()' ;IUnknown::Release

К сожаление, на Windows 10 этот способ не работает. Кто нибудь знает как можно вызвать страницу "программы по умолчанию" для конкретной программы через API или еще как нибудь?

[K.A.V.]

; How to make fileread to read only "Content-Length" »

Код:

!include "TextFunc.nsh"

OutFile "content-length_test.exe"

Section

FileOpen $0 "$EXEDIR\File.txt" W
FileWrite $0 "HTTP/1.1 200 OK"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Date: Fri, 04 Sep 2015 07:27:00 GMT"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Server: Apache"
FileWriteByte $4 "13"
FileWriteByte $4 "10"
FileWrite $0 "Last-Modified: Wed, 24 Apr 2013 08:27:32 GMT"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 'ETag: "2b2e728-a38420-4db1712ca0d12"'
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Accept-Ranges: bytes"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Content-Length: 10716192"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Content-Type: application/octet-stream"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Expires: Sat, 05 Sep 2015 07:27:00 GMT"
FileWriteByte $0 "13"
FileWriteByte $0 "10"
FileWrite $0 "Connection: keep-alive"
FileClose $0
/*
FileOpen $0 "$EXEDIR\File.txt" r
FileRead $0 $1
FileRead $0 $2 ''
FileClose $0    
MessageBox MB_OK "$1 $2"
*/

StrCpy $0 0
 stGet:
IntOp $0 $0 + 1
${LineRead} "$EXEDIR\File.txt" "$0" $1
  IfErrors 0 +2
MessageBox MB_OK|MB_ICONSTOP "error" idok error 
  StrCpy $2 "$1" 16
  StrCmp $2 "Content-Length: " 0 stGet
  StrCpy $2 "$1" "" 16
MessageBox MB_OK|MB_ICONINFORMATION "$2"
error: 
SectionEnd

А если количество строк фиксировано и вы точно знаете, на какой строке будет эта запись - можно обойтись без чтения всего файла, а сразу указать нужную строку:

Скрытый текст

Код:

${LineRead} "$EXEDIR\File.txt" "6" $1
  IfErrors 0 +2
MessageBox MB_OK|MB_ICONSTOP "error" idok error 
  StrCpy $2 "$1" 16
  StrCmp $2 "Content-Length: " +2 0
MessageBox MB_OK|MB_ICONSTOP "error" idok error   
  StrCpy $2 "$1" "" 16
MessageBox MB_OK|MB_ICONINFORMATION "$2"
error:

[Dodakaedr]

Как реализовать функцию sharedfile в nsis как в inno setup?

Код:

Source: "file.ocx"; DestDir: "{sys}"; Flags: sharedfile