NSIS限制程序运行次数和使用日期


#七八年前写着玩的小东西，实际用途不大，但对刚接触nsis的新手来说应该还有一些帮助，包括创建控件，获取系统时间等，与诸位共勉！
!system '>blank set/p=MSCF<nul'
!packhdr temp.dat 'cmd /c Copy /b temp.dat /b +blank&&del blank'
SetCompressor bzip2
#编写：水晶石
#限制程序运行次数和使用日期
!include "nsdialogs.nsh"
XPStyle on
BrandingText "水晶石 ${__DATE__}"
OutFile "NSIStest.exe"
Name "test"
Page Custom page.custom
Function page.custom
  nsDialogs::Create 1018
  Pop $0
  nsDialogs::CreateControl EDIT \
    "${__NSD_Text_STYLE}|${WS_VSCROLL}|${ES_MULTILINE}|${ES_WANTRETURN}" \
    "${__NSD_Text_EXSTYLE}" \
      0 10% 100% 80% \
    "有效运行次数：3 $\r$\n$\r$\n首次运行后第二天报错禁止使用。$\r$\n$\r$\n第$1次运行"
    Pop $0
  nsDialogs::Show
FunctionEnd
Section "test"

SectionEnd

Function .onInit
  System::Alloc 16
  System::Call "kernel32::GetLocalTime(isR0)"
  System::Call "*$R0(&i2.R1,&i2.R2,&i2.R3,&i2.R4)"
  System::Free $R0
  StrCpy $3 $R1 $R2 $R4
  ReadRegStr $2 SHCTX "Software\Microsoft\test" "time"
${if} $2 = ''
  StrCpy $2 $3
  WriteRegStr SHCTX "Software\Microsoft\test" "time" "$2"
${endif}
  IntOp $4 $2 + 1
${if} $4 <= $3
System::Call "user32::MessageBox(i $HWNDPARENT, t 'Installer integrity check has failed.\
  Common causes include $\r\
  incomplete download and damaged media.Contactthe $\r\
  installer is author to obtain a new copy.$\r$\r\
  More information at: $\r\
  https://blog.csdn.net/shuijing_0'\
  ,t 'NSIS Error', i0x10)"
  Quit
${endif}
  ReadRegStr $1 SHCTX "Software\Microsoft\test" 'Number'
  IntOp $1 $1 + 1
  WriteRegStr  SHCTX  "Software\Microsoft\test" "Number" "$1"
${if} $1 > 3
System::Call "user32::MessageBox(i $HWNDPARENT, t 'Installer integrity check has failed.\
  Common causes include $\r\
  incomplete download and damaged media.Contactthe $\r\
  installer is author to obtain a new copy.$\r$\r\
  More information at: $\r\
  https://blog.csdn.net/shuijing_0'\
  ,t 'NSIS Error', i0x10)"
  Quit
${endif}
FunctionEnd