home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today (BR) Volume 2 #4 / CDRTV2N4.iso / setup1.glb < prev    next >
Encoding:
Text File  |  1995-06-13  |  2.2 KB  |  46 lines
  1. DefInt A-Z
  2.  
  3.  
  4. Global Const SRCCOPY = &HCC0020
  5. Global gfWin31%
  6.              
  7. Declare Function GetWindowsDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  8. Declare Function GetSystemDirectory Lib "Kernel" (ByVal lpBuffer As String, ByVal nSize As Integer) As Integer
  9. 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)
  10. Declare Function GetVersion Lib "Kernel" () As Long
  11.  
  12. Declare Function DiskSpaceFree Lib "SETUPKIT.DLL" () As Long
  13. Declare Function AllocUnit Lib "SETUPKIT.DLL" () As Long
  14. Declare Function SetTime Lib "SETUPKIT.DLL" (ByVal A$, ByVal b$) As Integer
  15.  
  16. Declare Function VerInstallFile& Lib "ver.dll" (ByVal Flags%, ByVal SrcFile$, ByVal DestFile$, ByVal SrcPath$, ByVal DestPath$, ByVal CurrDir$, ByVal TmpFile$, lpwTmpFileLen%)
  17. Declare Function GetFileVersionInfoSize Lib "ver.dll" (ByVal lpszFileName As String, lpdwHandle As Long) As Long
  18. Declare Function GetFileVersionInfo Lib "ver.dll" (ByVal lpszFileName As String, ByVal lpdwHandle As Long, ByVal cbbuf As Long, ByVal lpvdata As String) As Integer
  19. Declare Function VerQueryValue Lib "ver.dll" (ByVal lpvBlock As String, ByVal lpszSubBlock As String, lplpBuffer As Long, lpcb As Integer) As Integer
  20. Declare Function lstrcpyn Lib "Kernel" (ByVal lpszString1 As Any, ByVal lpszString2 As Long, ByVal cChars As Integer) As Long
  21.  
  22. Declare Function WritePrivateProfileString% Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFileName$)
  23. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpRetString$, ByVal nSize%, ByVal lpFileName$) As Integer
  24.  
  25.  
  26. Declare Function VflatdPresent Lib "iniupd.DLL" () As Integer
  27.  
  28. Declare Sub Reboot Lib "iniupd.dll" ()
  29.  
  30.  
  31.  
  32. Type OFStruct
  33.     cBytes As String * 1
  34.     fFixedDisk As String * 1
  35.     nErrCode As Integer
  36.     reserved As String * 4
  37.     szPathName As String * 128
  38. End Type
  39.  
  40. Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFStruct, ByVal wStyle As Integer) As Integer
  41. Declare Function ExitWindows Lib "User" (ByVal dwReturnCode As Long, ByVal wReserved As Integer) As Integer
  42.  
  43.  
  44.  
  45.  
  46.