home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / INCLUTIL / INCLUTIL.DEC < prev    next >
Encoding:
Text File  |  1992-10-12  |  1.3 KB  |  29 lines
  1. ' Created by MicroHelp GetDec 09-13-1991  17:14:19
  2. Global Const MhTrue = -1
  3. Global Const MhFalse = 0
  4. Declare Function MhFileDateCompare% Lib "vbtools.vbx" (ByVal File1$, ByVal File2$)
  5. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  6. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer
  7. Declare Function GetTextExtent Lib "GDI" (ByVal hDC As Integer, ByVal lpString As String, ByVal nCount As Integer) As Long
  8.  
  9. Global Const TextElements = 10000  ' Number of elements in FileText$() array
  10. Global D2$     ' For creating MsgBox statements
  11. Global OriginalSpec As String
  12. Global SavePath As String  ' Preserve CurDir$ at time of run
  13. Global Tagged()            ' Indicates tagged files
  14. Global K$()                 ' Keyname$ for INI file
  15. Global Include$
  16. Global Remark1$
  17. Global Remark2$
  18. Global Apostrophe$
  19. Global IncludePath$
  20. Global BO$, EO$
  21. Global FileText$()
  22. Global AppName$
  23. Global PFileName$
  24. Global Default$()
  25. Global Question$
  26. Global OldFileName$
  27. Global SkippedFiles%    ' How many skipped due to date/time
  28.  
  29.