home *** CD-ROM | disk | FTP | other *** search
/ Winzipper / Winzipper_ISO.iso / programming / oracle7 7.2 / NET / TCP22 / TCP22.DEI < prev    next >
Encoding:
Text File  |  1995-10-05  |  3.3 KB  |  86 lines
  1. /* Copyright (c) Oracle Corporation 1992.  All Rights Reserved */
  2. /*****************************************************************************
  3.   NAME
  4.    tcp22.dei- Windows 95 V3 de-installation script for TCP/IP Protocol Adapter.
  5.  
  6.   DESCRIPTION
  7.     This script removes the Windows 95 TCP/IP files and un-registers the
  8.     product.
  9.  
  10.   OWNER
  11.     Tony Rodgers
  12.  
  13.   MODIFIED    DD-MMM-YY Reason
  14.     trodgers  28-JAN-92 Created.
  15.     zkhan     11-AUG-93 Modified for SQLNET and for using V3.0.9.3.2 or later
  16.             of the installer.
  17.     eflores   06-APR-94 Modified for Windows NT.
  18.     ljain     07-JUL-95 Modified for Windows 95.
  19. *****************************************************************************/
  20. {
  21.   /* Check Product Dependencies */
  22.  { doit = execute("%installer_home%\win95.dei"); }
  23.    [
  24.     'UNBOUND_VARIABLE: signal('failure,instantiate(nls("instver_too_early2",
  25. "The version of the Installer currently running is %%installer_version%%. The
  26. product(s) you have chosen to deinstall were installed with a later version of
  27. the Installer. Please use a later version of the Installer to deinstall these
  28. product(s).")));
  29.   ]
  30.  
  31.  
  32.  if (doit)
  33.    {
  34.  
  35.     net2_deinstall_registry = nls("net2_deinstall_registry","Unregistering %%registry_label%%...");
  36.  
  37.     net2_deinstall_script = nls("net2_deinstall_script","Deinstalling %%registry_label%% Installation Scripts...");
  38.  
  39.     net2_deinstall_dll = nls("net2_deinstall_dll","Deinstalling %%registry_label%% DLL's...");
  40.  
  41.     tcp22_deinst = instantiate(nls("tcp22_deinst", "A %%registry_label%% DLL (NTTNT.DLL) is being used on this machine. Please stop all Oracle applications that are using %%registry_label%% before deinstalling %%registry_label%%.
  42.  
  43. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  44.  
  45. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  46.     "));
  47.     tcp22_deinst_term = instantiate(nls("tcp22_inst_term", "%%registry_label%% deinstallation terminated."));
  48.     tcp22_deinst_content = instantiate(nls("tcp22_deinst_content", "%%registry_label%% DLL Used"));
  49.     tcp22_deinst_help = instantiate(nls("tcp22_deinst_help", "The Oracle Installer has detected that a %%registry_label%% DLL (NTTNT.DLL) is being used on this machine.  Please stop all Oracle applications that are using %%registry_label%% before deinstalling %%registry_label%%.
  50.  
  51. Choose OK after you have closed all Oracle applications and want to resume the deinstallation of %%registry_label%%.
  52.  
  53. Choose CANCEL to terminate the deinstallation of %%registry_label%%.
  54.     "));
  55.  
  56.     /* check to see if all apps are closed */
  57.     done = FALSE;
  58.     while(not(done))
  59.     { move_file("%ORACLE_HOME%\bin\nttnt.dll", "%ORACLE_HOME%\bin\nttnt.dll"); done = TRUE;}
  60.     [ 'PERMISSION_DENIED, 'INVALID_FILE_NAME, 'OS_ERROR, 'WRITE_ERROR:
  61.       {
  62.         information_dialog(instantiate(tcp22_deinst), tcp22_deinst_content, instantiate(tcp22_deinst_help));
  63.       }
  64.       'FILE_NOT_FOUND:
  65.         done = TRUE;
  66.     ]                       
  67.  
  68.     /* Unregister Product */
  69.     ui_product(registry_label);
  70.  
  71.     /* Remove Files */
  72.     ui_action(instantiate(net2_deinstall_dll));
  73.     remove(dll);
  74.  
  75.     ui_action(instantiate(net2_deinstall_script));
  76.     remove(deinstl);
  77.  
  78.     ui_action(instantiate(net2_deinstall_registry));
  79.     unregister(current_registry);
  80.   }
  81. }
  82.  
  83.  
  84.  
  85.  
  86.