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