home *** CD-ROM | disk | FTP | other *** search
/ nrsys.ke.euroweb.sk / nrsys.ke.euroweb.sk.tar / nrsys.ke.euroweb.sk / incoming / eav_nt64_sky.msi / Binary.InstSupp.vbs < prev    next >
Text File  |  2010-07-29  |  727b  |  21 lines
  1. ' Musel som pouzit pre tuto funkciu VB script pretoze poslielanie sprav z dll-ky nefunguje. 
  2. ' V dialogu je Text Control ktory je asociovany s eventom ActionData. Zobrazi sa retazec ktory tam posielam.
  3.  
  4. Function ShowLicenseInfo
  5.   
  6.   msiMessageTypeActionStart = &H08000000
  7.   msiMessageTypeActionData = &H09000000
  8.   
  9.   Dim record
  10.   Set record = Session.Installer.CreateRecord(3) 
  11.   record.StringData(1) = "ShowLicenseInfo"
  12.   record.StringData(2) = "Show info about selected license"
  13.   record.StringData(3) = "[1]"
  14.   Session.Message msiMessageTypeActionStart, record
  15.   
  16.   record.StringData(1) = Session.Property("_LICENSE_INFO")
  17.   Session.Message msiMessageTypeActionData, record
  18.  
  19.   Exit Function
  20.  
  21. End function