home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 June / PCWorld_2007-06_cd.bin / system / r-drive / rdi_en_4.exe / EULA.hta < prev    next >
Extensible Markup Language  |  2007-01-29  |  3KB  |  159 lines
  1. ∩╗┐<?xml version="1.0" encoding="utf-8"?>
  2. <!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN">
  3.  
  4. <html>
  5.  
  6. <head>
  7.  
  8.     <HTA:APPLICATION ID="o-rtt-license-viewer"
  9.         APPLICATIONNAME="R-TT License viewer"
  10.         BORDER="thick"
  11.         CAPTION="yes"
  12.         -ICON=""
  13.         SHOWINTASKBAR="yes"
  14.         SINGLEINSTANCE="yes"
  15.         SYSMENU="yes"
  16.         SELECTION="yes"
  17.         INNERBORDER="no"
  18.         CONTEXTMENU="yes"
  19.         WINDOWSTATE="normal"
  20.         NAVIGABLE="yes"
  21.         SCROLL="no"
  22.         VERSION="1.00"
  23.     />
  24.  
  25.     <title>R-Drive Image license agreement</title>
  26.     <meta name="Author" content="R-TT" />
  27.     <meta name="email" content="support@r-tt.com" />
  28.     <meta name="Description" content="" />
  29.     <meta http-equiv="MSThemeCompatible" content="Yes" />
  30.  
  31. <style>
  32.     body
  33.     {
  34.         font-family: Georgia, 'Times New Roman', sans-serif;
  35.         font-size: 100%;
  36.         color: black;
  37.  
  38.         background: buttonface;
  39.         overflow: hidden;
  40.         padding: 3pt;
  41.         margin: 0px;
  42.  
  43.         height: 100%;
  44.     }
  45.  
  46.     #content
  47.     {
  48.         overflow: auto;
  49.         white-space: pre;
  50.         background: window;
  51.         height: 100%;
  52.         padding: 3pt;
  53.         border: 1px inset;
  54.     }
  55.  
  56.     .err { color: red; }
  57. </style>
  58.  
  59. <script type="text/JScript">
  60.  
  61. function o( aId )
  62. {
  63.     var obj = document.getElementById( aId );
  64.  
  65.     if( !obj ) obj = document.all(aId);
  66.  
  67.     return obj;
  68. }
  69.  
  70.  
  71. function showError( errHTML )
  72. {
  73.     o("content").innerHTML = "<div class='err'>" + errHTML + "</div>"
  74. }
  75.  
  76.  
  77. function showTextFile( fileName, obj )
  78. {
  79.     var ForReading = 1;
  80.     var Encoding = 0; // 0 -- ASCII -1 -- Unicode, -2 -- System default
  81.  
  82.     var fso = new ActiveXObject( "Scripting.FileSystemObject" );
  83.  
  84.     var file = null;
  85.  
  86.     try
  87.     {
  88.         file = fso.OpenTextFile( fileName, ForReading, false, Encoding );
  89.     }
  90.     catch ( e ) { return false; }
  91.  
  92.     if( !file ) return false;
  93.  
  94.     var text = file.ReadAll();
  95.  
  96.     obj.innerText = text;
  97.  
  98.     file.Close();
  99.  
  100.     return true;
  101. }
  102.  
  103. onbeforeunload=function()
  104. {
  105. }
  106.  
  107. // =================================================================
  108.  
  109. onload = function()
  110. {
  111.     var fileName = "EULA\\";
  112.     var key = "HKCU\\SOFTWARE\\R-TT\\R-DriveImage\\info\\license_type";
  113.  
  114.     var Shell = new ActiveXObject("WScript.Shell");
  115.  
  116.     var license_type;
  117.     
  118.     try
  119.     {
  120.         license_type = Shell.RegRead( key );
  121.     }
  122.     catch( e )
  123.     {
  124.         showError( "Can not read license type. Reinstall application to solve this problem." );
  125.         return;
  126.     }
  127.  
  128.     switch( license_type )
  129.     {
  130.     case "corp":
  131.     case "nfr":
  132.     case "commercial":
  133.         fileName += license_type + ".txt"; break;
  134.     default:
  135.         showError( "Unknown license type. Reinstall application to solve this problem." );
  136.         return;
  137.     }
  138.  
  139.     if( !showTextFile( fileName, o("content") ) )
  140.     {
  141.         showError( "Can not read license file. Reinstall application to solve this problem." );
  142.     }
  143. }
  144.  
  145. </script>
  146.  
  147.  
  148. </head>
  149.  
  150. <body>
  151.  
  152. <table width="100%" height="100%" border="0">
  153. <tr>
  154.     <td height="100%"><div id="content"></div></td>
  155. </tr>
  156. </table>
  157.  
  158. </body>
  159. </html>