home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / loads / common / api.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-13  |  1.9 KB  |  22 lines
  1. Option Explicit
  2. ' ============================================================================================
  3. ' Kernel API Declarations
  4. ' ============================================================================================
  5. Declare Sub FreeModule Lib "Kernel" (ByVal hModule As Integer)
  6. Declare Function GetModuleHandle Lib "Kernel" (ByVal lpModuleName As String) As Integer
  7. Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
  8. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
  9. Declare Function WinExec Lib "Kernel" (ByVal lpCmdLine As String, ByVal nCmdShow As Integer) As Integer
  10. Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lplFileName As String) As Integer
  11.  
  12. ' ============================================================================================
  13. ' User API Declarations
  14. ' ============================================================================================
  15. Declare Function FindWindow Lib "User" (ByVal c As Any, ByVal s As Any) As Integer
  16. Declare Function GetSystemMenu% Lib "User" (ByVal hWnd%, ByVal bRevert%)
  17. Declare Function RemoveMenu% Lib "User" (ByVal hMenu%, ByVal nPosition%, ByVal wFlags%)
  18. Declare Function SendMessage Lib "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  19. Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, ByVal X%, ByVal y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer
  20. Declare Function ShowWindow Lib "User" (ByVal hWnd As Integer, ByVal nCmdShow As Integer) As Integer
  21.  
  22.