home *** CD-ROM | disk | FTP | other *** search
/ WinWares 1 / WINWARES.ISO / database / approach / disk1 / approach.inc < prev    next >
Encoding:
Text File  |  1993-06-22  |  2.9 KB  |  106 lines
  1. '** $Header:   F:\newproj\install3\vcs\approach.inv   2.3   04 Aug 1993 17:07:44   JLevine  $
  2. '*********************************************************************
  3. '**    Approach Installation APIs and additional Windows APIs
  4. '*********************************************************************
  5. '**
  6. '** Modifications:
  7. '** $Log:   F:\newproj\install3\vcs\approach.inv  $
  8. '** 
  9. '**    Rev 2.3   04 Aug 1993 17:07:44   JLevine
  10. '** 2.1 US installer layout file
  11. '** 
  12. '**    Rev 2.2   13 Jul 1993 17:18:56   JLevine
  13. '** DriveType stuff
  14. '** 
  15. '**    Rev 2.1   12 Jul 1993 23:37:30   JLevine
  16. '** 2.1 installer
  17. '** 
  18. '**    Rev 2.0   21 Jun 1993 15:59:16   JLevine
  19. '** No change.
  20. '** 
  21. '**    Rev 1.1   02 Dec 1992 16:39:50   JLevine
  22. '** OurLoadString, localizable strings
  23. '** 
  24. '**    Rev 1.0   16 Oct 1992 16:14:40   JLevine
  25. '** Initial revision.
  26. '**
  27.  
  28. CONST SW_HIDE                    = 0
  29. CONST SW_SHOWNORMAL            = 1
  30. CONST SW_NORMAL                = 1
  31. CONST SW_SHOWMINIMIZED        = 2
  32. CONST SW_SHOWMAXIMIZED        = 3
  33. CONST SW_MAXIMIZE                = 3
  34. CONST SW_SHOWNOACTIVATE       = 4
  35. CONST SW_SHOW                    = 5
  36. CONST SW_MINIMIZE                = 6
  37. CONST SW_SHOWMINNOACTIVE      = 7
  38. CONST SW_SHOWNA                = 8
  39. CONST SW_RESTORE              = 9
  40.  
  41. CONST MB_YESNO                    = 4
  42. CONST IDYES                        = 6
  43.  
  44. CONST DRIVE_REMOVABLE      = 2
  45. CONST DRIVE_FIXED          = 3
  46. CONST DRIVE_REMOTE         = 4
  47. CONST DRIVE_CDROM          = 5
  48. CONST DRIVE_RAMDISK        = 6
  49.  
  50. ' String Constants -- Must match dialogs.h
  51. CONST STANDARD_CAPTION        = 1
  52. CONST APPROACH_NAME        = 2
  53. CONST APPROACH_README    = 3
  54. CONST COPYRIGHT_NAME    = 4
  55. CONST COPYRIGHT_NOTICE  = 5
  56. CONST LOTUSAPPS_NAME    = 6
  57. CONST EXAMPLES_DIR      = 7
  58. CONST TEMPLATES_DIR     = 8
  59. CONST SMALLBIZ_DIR      = 9
  60. CONST LARGEBIZ_DIR      = 10
  61. CONST LICENSER_NAME     = 11
  62. CONST NETWORK_DIR       = 12
  63. CONST NETLICENSE_DIR    = 13
  64.  
  65.  
  66. CONST KB_STRING            = 16
  67. CONST ERROR_INUSE            = 160
  68. CONST ERROR_RESTART        = 161
  69. CONST ERROR_GENERAL        = 162
  70.  
  71. DECLARE FUNCTION ShowWindow LIB "user" (hwnd%, nIndex%) AS INTEGER
  72.  
  73. DECLARE FUNCTION OurLoadString LIB "mscuistf.dll" (idResource%, buffer$, nBufSize%) AS INTEGER
  74. DECLARE FUNCTION IsShareInstalled LIB "mscuistf.dll" AS INTEGER
  75.  
  76. DECLARE FUNCTION DriveType LIB "mscuistf.dll" (idDrive%) AS INTEGER
  77.  
  78. DECLARE FUNCTION CountDirs LIB "mscuistf.dll" (path$) AS INTEGER
  79.  
  80. DECLARE FUNCTION GetString (idResource%) AS STRING
  81.  
  82. DECLARE SUB StartHelp LIB "appdlg01.dll" (hDlg%) 
  83.  
  84. DECLARE SUB FlushCache LIB "mscuistf.dll" 
  85.  
  86. FUNCTION GetString (idResource%) STATIC AS STRING
  87.     szBuf$ = string$(256, 32)
  88.     cbBuf% = OurLoadString(idResource%, szBuf$, 256)
  89.  
  90.    IF cbBuf% = 0 THEN
  91. '$ifdef DEBUG
  92.        StfApiErr saeFail, "GetString", ""
  93. '$endif ''DEBUG
  94.       ERROR STFERR
  95.    ELSE
  96.       IF cbBuf% > 255 THEN
  97.           res% = DoMsgBox("Buffer Overflow", GetString(STANDARD_CAPTION), MB_ICONHAND+MB_OK)
  98.          ERROR STFERR
  99.       END IF
  100.       szBuf$ = RTRIM$(szBuf$)
  101.       GetString = szBuf$
  102.     END IF
  103.  
  104.     szBuf$ = ""
  105. END FUNCTION
  106.