home *** CD-ROM | disk | FTP | other *** search
/ PC to Maximum / PC-na-maximum.bin / DriveSpeed / SRC / DRSPCC / DRSPCC.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-06-04  |  1.7 KB  |  49 lines
  1. '
  2. '  DRSPCC - DriveSpeed Control Center for DriveSpeed version 3.10 (GPL FREEWARE)
  3. '  Copyleft (l) Stanislav Sokolov, May 2000 and onwards.
  4. '
  5. '  This program is subject to GNU General Public License ver. 2 of June 1991
  6. '  and any later version.
  7. '
  8. '  You may use this source with your programs, provided
  9. '  due credits are given.
  10. '
  11. '  Contact the author by e-mail: stanislavs@hotmail.com
  12. '
  13. '  Internet:  http://members.tripod.com/~stanislavs/prog/prog.htm
  14. '
  15.  
  16. DefInt A-Z
  17. Option Explicit
  18.  
  19. 'Windows API declarations
  20. Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
  21. Declare Function GetModuleUsage Lib "Kernel" (ByVal hModule As Integer) As Integer
  22.  
  23. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  24. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  25.  
  26. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  27. 'Message constants
  28. Global Const WM_USER = &H400
  29. Global Const EM_SETREADONLY = WM_USER + 31
  30. Global Const WM_CHAR = &H102
  31.  
  32. Global Const RecLen = 8 + 2 * 4
  33. Type Parameters
  34.     Size As Double                          '8
  35.     Turns As Integer                        '2
  36.     Batch As Integer '0 - Off, 1 - On       '2
  37.     RO As Integer    '0 - Off, 1 - On       '2
  38.     Mode As Integer  '1 - SP, 2 - MP        '2
  39. End Type
  40.  
  41. Global Const ProgName = "DriveSpeed Control Center"
  42.  
  43. Global Const ResFile = "@DRSPRES.TMP"
  44. Global Const RunFile = "DRSP-RUN.PIF"
  45. Global Const SavFile = "DRSPCC.SAV"
  46.  
  47. Global AppPath As String
  48.  
  49.