home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / WINDOWS / UTIL / SYSWIT.ZIP / PLANS.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-10-26  |  4.8 KB  |  135 lines
  1. DefInt A-Z
  2. Dim ReadString As String * 255
  3.  
  4. Sub Frame (F As Form, L, T, H, W)
  5.   OFFSET = 4
  6.   BIGOFFSET = 6
  7.   F.DrawWidth = 1
  8.   F.forecolor = &HE0E0E0
  9.   'bottom:
  10. F.Line (L + F.DrawWidth, T + H + OFFSET)-(L + W - F.DrawWidth, T + H + OFFSET)
  11.   
  12.   'right:
  13. F.Line (L + W + OFFSET, T + F.DrawWidth)-(L + W + OFFSET, T + H + OFFSET - F.DrawWidth)
  14.  
  15. F.forecolor = &H808080
  16.   'top:
  17.  F.Line (L - BIGOFFSET + F.DrawWidth, T - BIGOFFSET)-(L + W + BIGOFFSET - F.DrawWidth, T - BIGOFFSET)
  18.   
  19.   'left:
  20. F.Line (L - BIGOFFSET, T + F.DrawWidth - BIGOFFSET)-(L - BIGOFFSET, T + H + BIGOFFSET - F.DrawWidth)
  21.  
  22. End Sub
  23.  
  24. Sub Frame2 (F As Form, L, T, H, W)
  25.   OFFSET = 4
  26.   BIGOFFSET = 6
  27.   F.DrawWidth = 2
  28. F.forecolor = &H808080
  29.   'bottom:
  30. F.Line (L + F.DrawWidth, T + H + OFFSET)-(L + W - F.DrawWidth, T + H + OFFSET)
  31.   
  32.   'right:
  33. F.Line (L + W + OFFSET, T + F.DrawWidth)-(L + W + OFFSET, T + H + OFFSET - F.DrawWidth)
  34.  
  35.   F.forecolor = &HE0E0E0
  36.  
  37.   'top:
  38.  F.Line (L - BIGOFFSET + F.DrawWidth, T - BIGOFFSET)-(L + W + BIGOFFSET - F.DrawWidth, T - BIGOFFSET)
  39.   
  40.   'left:
  41. F.Line (L - BIGOFFSET, T + F.DrawWidth - BIGOFFSET)-(L - BIGOFFSET, T + H + BIGOFFSET - F.DrawWidth)
  42.  
  43.  
  44. End Sub
  45.  
  46. Sub ReadProf ()
  47. X = GetPrivateProfileString("Syswitch", "ConfigName1", "Default Configuration", ReadString, 255, "Syswitch.INI")
  48. ConfigName(1) = stripstring(ReadString)
  49. X = GetPrivateProfileString("Syswitch", "ConfigName2", "Default Configuration File", ReadString, 255, "Syswitch.INI")
  50. ConfigName(2) = stripstring(ReadString)
  51. X = GetPrivateProfileString("Syswitch", "ConfigName3", "Default System Configuration", ReadString, 255, "Syswitch.INI")
  52. ConfigName(3) = stripstring(ReadString)
  53. X = GetPrivateProfileString("Syswitch", "ConfigName4", "Use File Configure to Change Default", ReadString, 255, "Syswitch.INI")
  54. ConfigName(4) = stripstring(ReadString)
  55. X = GetPrivateProfileString("Syswitch", "ConfigName5", "Default", ReadString, 255, "Syswitch.INI")
  56. ConfigName(5) = stripstring(ReadString)
  57. X = GetPrivateProfileString("Syswitch", "ConfigFile1", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  58. ConfigFile(1) = stripstring(ReadString)
  59. X = GetPrivateProfileString("Syswitch", "ConfigFile2", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  60. ConfigFile(2) = stripstring(ReadString)
  61. X = GetPrivateProfileString("Syswitch", "ConfigFile3", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  62. ConfigFile(3) = stripstring(ReadString)
  63. X = GetPrivateProfileString("Syswitch", "ConfigFile4", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  64. ConfigFile(4) = stripstring(ReadString)
  65. X = GetPrivateProfileString("Syswitch", "ConfigFile5", "SYSTEM.INI", ReadString, 255, "Syswitch.INI")
  66. ConfigFile(5) = stripstring(ReadString)
  67. End Sub
  68.  
  69. Function stripstring (SOURCE As String) As String
  70. L = Len(SOURCE)
  71. For X = 1 To L
  72. If Asc(Mid$(SOURCE, X, 1)) < 32 Then Exit For
  73. Next X
  74. stripstring = Left$(SOURCE, X - 1)
  75. End Function
  76.  
  77. Sub WritProf ()
  78. X = WRitePrivateProfileString("Syswitch", "ConfigFile1", ConfigFile(1), "Syswitch.Ini")
  79. X = WRitePrivateProfileString("Syswitch", "ConfigFile2", ConfigFile(2), "Syswitch.Ini")
  80. X = WRitePrivateProfileString("Syswitch", "ConfigFile3", ConfigFile(3), "Syswitch.Ini")
  81. X = WRitePrivateProfileString("Syswitch", "ConfigFile4", ConfigFile(4), "Syswitch.Ini")
  82. X = WRitePrivateProfileString("Syswitch", "ConfigFile5", ConfigFile(5), "Syswitch.Ini")
  83. X = WRitePrivateProfileString("Syswitch", "ConfigName1", ConfigName(1), "Syswitch.Ini")
  84. X = WRitePrivateProfileString("Syswitch", "ConfigName2", ConfigName(2), "Syswitch.Ini")
  85. X = WRitePrivateProfileString("Syswitch", "ConfigName3", ConfigName(3), "Syswitch.Ini")
  86. X = WRitePrivateProfileString("Syswitch", "ConfigName4", ConfigName(4), "Syswitch.Ini")
  87. X = WRitePrivateProfileString("Syswitch", "ConfigName5", ConfigName(5), "Syswitch.Ini")
  88. End Sub
  89.  
  90. Sub CopyFile (SOURCE As String)
  91. X = FALSE
  92. If UCase$(SOURCE) = "SYSTEM.INI" Then X = MsgBox("Restart using current SYSTEM.INI?", 4, "No Change")
  93. If X = IDYES Then RestartProc
  94. If X = IDNO Then Exit Sub
  95. Windir = Windir + "\"
  96. Destination$ = Windir + "System.ini"
  97. DestinationBack$ = Windir + "system.bak"
  98. SOURCE$ = Windir + SOURCE
  99. On Error Resume Next
  100. Kill DestinationBack$
  101. Name Destination$ As DestinationBack$
  102. On Error GoTo ErrProc
  103.  
  104. Open SOURCE$ For Binary As #1
  105. Whole = LOF(1) \ 32000
  106. part = LOF(1) Mod 32000
  107. buffer$ = String$(32000, 0)
  108. start& = 1
  109. Open Destination$ For Binary As #2
  110. For X = 1 To Whole
  111.        Get #1, start&, buffer$
  112.        Put #2, start&, buffer$
  113.        start& = start& + 32000
  114. Next X
  115. buffer$ = String$(part, 0)
  116. Get #1, start&, buffer$
  117. Put #2, start&, buffer$
  118. Close
  119. Call RestartProc
  120. Exit Sub
  121.  
  122. ErrProc:
  123. MsgBox "Disk error"
  124. Kill Destination$
  125. Name DestinationBack$ As Destination$
  126. End
  127. End Sub
  128.  
  129. Sub RestartProc ()
  130. Okay% = ExitWindows(&H42, 0)
  131. If Okay% = 0 Then MsgBox "Cannot Restart Windows", 32, "Win Restart"
  132. End
  133. End Sub
  134.  
  135.