home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / SETUP.INC < prev    next >
Text File  |  1989-09-06  |  3KB  |  93 lines
  1. '************************************************************
  2. '* File Name:   Setup.INC
  3. '*
  4. '* Description: INCLUDE file for Setup.BAS.
  5. '*
  6. '*              This file sets up the FUNCTIONs, TYPEs and CONSTants
  7. '*              for Setup.BAS. This file is separated to clean up
  8. '*              the code for Setup.BAS.
  9. '*
  10. '*              Notice that the DECLAREs for many of the individual
  11. '*              FUNCTIONs have been extracted in this file.  This is
  12. '*              due to BASIC's limited compiler workspace.
  13. '************************************************************
  14. REM $INCLUDE: 'PMBase.BI'
  15. REM $INCLUDE: 'WinMan1.BI'
  16. REM $INCLUDE: 'WinMisc.BI'
  17. REM $INCLUDE: 'WinDialg.BI'
  18. REM $INCLUDE: 'WinMsgs.BI'
  19.  
  20. CONST BMSETCHECK         = &H0125    'Extracted Constants, types and functions
  21. CONST FIDMENU            = &H8005
  22. CONST FIDTITLEBAR        = &H8003
  23. CONST MMSETITEMATTR      = &H0192
  24. CONST MIADISABLED        = &H4000
  25. DECLARE FUNCTION GpiLoadBitmap&( BYVAL HPS AS LONG,_
  26.                      BYVAL HMODULE AS INTEGER,_
  27.                      BYVAL USHORT AS INTEGER,_
  28.                      BYVAL ALONG AS LONG,_
  29.                      BYVAL BLONG AS LONG )
  30.  
  31. TYPE FILEFINDBUF
  32.     fdateCreation  AS INTEGER
  33.     ftimeCreation  AS INTEGER
  34.     fdateLastAccess AS INTEGER
  35.     ftimeLastAccess AS INTEGER
  36.     fdateLastWrite AS INTEGER
  37.     ftimeLastWrite AS INTEGER
  38.     cbFile           AS LONG
  39.     cbFileAlloc    AS LONG
  40.     attrFile       AS INTEGER
  41.     cchName        AS STRING * 1
  42.     achName        AS STRING * 13
  43. END TYPE
  44.  
  45. DECLARE FUNCTION DosFindFirst%( _
  46.         BYVAL P1s AS INTEGER,_ 
  47.         BYVAL P1o AS INTEGER,_
  48.         SEG   P2 AS INTEGER,_
  49.         BYVAL P3 AS INTEGER,_
  50.     SEG   P4 AS FILEFINDBUF,_
  51.         BYVAL P5 AS INTEGER,_
  52.         SEG   P6 AS INTEGER,_
  53.         BYVAL P7 AS LONG)
  54.  
  55. DECLARE FUNCTION RegBas1&
  56.  
  57. CONST IDSETUP  = 1                'Resource Constants
  58. CONST IDBITMAP = 2
  59. CONST IDDRPATH = 2
  60. CONST IDSTART  = 3
  61. CONST IDABOUT  = 4
  62.  
  63. CONST IDSOURCE  = 1
  64. CONST IDDEST    = 2
  65. CONST IDBASE    = 3
  66. CONST IDINCLUDE = 4
  67. CONST IDLIB     = 5
  68. CONST IDCMD     = 6
  69. CONST IDHELP    = 7
  70. CONST IDUTILITY = 8
  71. CONST IDEXAMPLE = 9
  72. CONST IDCHECK   = 20
  73.  
  74. CONST BNOK      = 10
  75. CONST BNCANCEL  = 11
  76. CONST BNHELP    = 12
  77.  
  78. DECLARE FUNCTION FarSADD&(s$)                        'Functions in Setup.BAS
  79. DECLARE FUNCTION GetDiskName$()
  80. DECLARE FUNCTION FileExists% (filespec$)
  81. DECLARE FUNCTION Replace$ (full$, oldpart$, newpart$)
  82. DECLARE FUNCTION DisplayMessageBox%(message$, caption$, flStyle%)
  83. DECLARE FUNCTION ValidDrive%(hwnd&, drive$, id%)
  84. DECLARE FUNCTION ValidDir%(hwnd&, new$, old$, id%)
  85.  
  86. DECLARE SUB WinPrintS(hps AS LONG, PString AS STRING)   'WinStdio functions
  87. DECLARE SUB WinPrint(hps AS LONG, PString AS STRING)
  88. DECLARE SUB WinCLS(hwnd AS LONG, hps&)
  89. DECLARE SUB WinResetStdIO(hwnd&, hps&)
  90. DECLARE SUB WinLocate(hwnd&, hps&, Row%, Col%)
  91. DECLARE FUNCTION WinPos%(hps AS LONG)
  92. DECLARE FUNCTION WinCSRLIN%(hwnd AS LONG, hps AS LONG)
  93.