home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / win / musica / workgrp.in_ / workgrp.bin
INI File  |  1994-07-31  |  2KB  |  70 lines
  1. [Release Date]
  2.     STF_DATE = "1993-04-30"
  3. [Source Media Descriptions]
  4.     1 = "Disk 1 - Setup", TAGFILE = "1.wmf"
  5.     2 = "Disk 2", TAGFILE = "2.wmf"
  6. [WorkGroup Path Dialog]
  7.     GetPathMessBoxTitle = $(AppName)" Specify WorkGroup"
  8.     GetPathMessBoxText  = "The string you have entered is not a fully-qualified and/or valid DOS pathname"
  9.     GetNameBoxText  = "You need to fill up all of the entries."
  10.     GetSysMdaErr = "Couldn't find SYSTEM.MDA on the specified path."
  11.     SYSMDAFILE = "system.mda"
  12.     CODEPAGE = "04E4"
  13.     LANGUAGE = "0409"            ; windows language code, need to be localized
  14.     Title = "Change Workgroup"
  15.  
  16.  
  17. [System Paths]
  18.      WINDOWSPATH     =  "" ? DETCMD.DLL GetWindowsDir
  19.  
  20. [Shell Commands]
  21.     read-syms "WorkGroup Path Dialog"
  22.     set-title       $(Title)        
  23.     ui start LanManNetWork
  24.  
  25.     ifstr $(STF_MODE) != "WORKGRP"
  26.         exit
  27.     endif
  28.  
  29.     read-syms "Custom"
  30.      detect          "System Paths"
  31.     set CIRPATH = $(STF_SRCDIR)
  32.  
  33. MainDlg = +
  34.     ui start "ChangeWorkGrp"
  35.  
  36.     ifstr $(DLGEVENT) == "BACK"
  37.         ui start "GetWorkgrpString"
  38.         set EditTextIn = $(SYSMDAPATH)
  39.         ui start "ChangeWorkGrpPath"
  40.         ifstr $(DLGEVENT) == "EXIT"
  41.             ui pop 1
  42.             goto "MainDlg"
  43.         endif
  44.         ui pop 1
  45.         set SYSMDAPATH = $(EditPathOut)
  46.         set SYSMDAPATH2 = $(EditTextOut)  ;possible UNC
  47.     else-ifstr $(DLGEVENT) == "EXIT"
  48.         exit
  49.     else
  50.         ui start "GetNameOrgPin"
  51.         ifstr $(DLGEVENT) == "EXIT"
  52.             ui pop 1
  53.             goto "MainDlg"
  54.         endif
  55.         ui pop 1
  56.         ui start "CREATEDB"
  57.     endif
  58.     ui pop 1
  59.     install "Update INIs"
  60.     exit
  61.  
  62. [Update INIs]
  63.     RemoveIniKey, $(WINDOWSPATH)"MSACCESS.INI", "Options", "SystemDB"
  64.     CreateIniKeyValue, $(WINDOWSPATH)"MSACCESS.INI", "Options", "SystemDB", $(SYSMDAPATH2)$(SYSMDAFILE), O
  65.     Exit
  66.  
  67. [Custom]
  68.     IniFileName = "msaccess.ini"
  69.  
  70.