home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 4 #14 / CDRTODAY.iso / SETUP1.GLB < prev    next >
Text File  |  1997-07-27  |  2KB  |  38 lines
  1. DefInt A-Z
  2.  
  3. Global winSysDir$
  4. Global gfWin31%
  5.              
  6. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  7. 'Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  8. 'Declare Function BitBlt Lib "Gdi" (ByVal destHdc, ByVal X, ByVal Y, ByVal w, ByVal h, ByVal srcHdc, ByVal srcX, ByVal srcY, ByVal Rop As Long)
  9. Declare Function GetVersion Lib "Kernel" () As Long
  10.  
  11. Declare Function DiskSpaceFree Lib "SETUPKIT.DLL" () As Long
  12. 'Declare Function AllocUnit Lib "SETUPKIT.DLL" () As Long
  13. 'Declare Function SetTime Lib "SETUPKIT.DLL" (ByVal A$, ByVal b$) As Integer
  14.  
  15. Declare Function VerInstallFile& Lib "ver.dll" (ByVal Flags%, ByVal SrcFile$, ByVal DestFile$, ByVal SrcPath$, ByVal DestPath$, ByVal CurrDir$, ByVal TmpFile$, lpwTmpFileLen%)
  16. Declare Function GetFileVersionInfoSize Lib "ver.dll" (ByVal lpszFileName As String, lpdwHandle As Long) As Long
  17. Declare Function GetFileVersionInfo Lib "ver.dll" (ByVal lpszFileName As String, ByVal lpdwHandle As Long, ByVal cbbuf As Long, ByVal lpvdata As String) As Integer
  18. Declare Function VerQueryValue Lib "ver.dll" (ByVal lpvBlock As String, ByVal lpszSubBlock As String, lplpBuffer As Long, lpcb As Integer) As Integer
  19. Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As Any, ByVal lpszString2 As Long, ByVal cChars As Integer) As Long
  20.  
  21. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFileName$)
  22. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpRetString$, ByVal nSize%, ByVal lpFileName$) As Integer
  23.  
  24. Type OFStruct
  25.     cBytes As String * 1
  26.     fFixedDisk As String * 1
  27.     nErrCode As Integer
  28.     reserved As String * 4
  29.     szPathName As String * 128
  30. End Type
  31.  
  32. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFStruct, ByVal wStyle As Integer) As Integer
  33.  
  34.  
  35.  
  36.  
  37.  
  38.