www.pudn.com > VB-KAOQINXITONG.zip > M_API_Declares.bas

Attribute VB_Name = "M_API_Declares" 
  Option Explicit 
 
  Public Const GWL_WNDPROC As Long = (-4&) 
 
  Public Declare Function IsWindow Lib "user32" (ByVal hwnd&) As Long 
 
  Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpDest As Any, lpSource As Any, ByVal cBytes&) 
 
  Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hwnd As Long, ByVal lpString As String, ByVal hData As Long) As Long 
  Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hwnd As Long, ByVal lpString As String) As Long 
  Public Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hwnd&, ByVal lpString$) As Long 
 
  Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd&, _ 
                                                              ByVal nIndex&, ByVal dwNewLong&) As Long 
 
  Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, _ 
                                               ByVal hwnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&) As Long 
  Public Const IDM_ABOUT As Long = 1& 
  Public Const IDM_WHO As Long = 2& 
                                                               
  Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd&, ByVal nIndex&) As Long 
                                                               
                                   
  ' SetWindowPos Flags 
  Public Const SWP_NOSIZE = &H1 
  Public Const SWP_NOMOVE = &H2 
  Public Const SWP_NOZORDER = &H4 
  Public Const SWP_NOREDRAW = &H8 
  Public Const SWP_NOACTIVATE = &H10 
  Public Const SWP_FRAMECHANGED = &H20        '  The frame changed: send WM_NCCALCSIZE 
  Public Const SWP_SHOWWINDOW = &H40 
  Public Const SWP_HIDEWINDOW = &H80 
  Public Const SWP_NOCOPYBITS = &H100 
  Public Const SWP_NOOWNERZORDER = &H200      '  Don't do owner Z ordering 
   
  Public Const SWP_DRAWFRAME = SWP_FRAMECHANGED 
  Public Const SWP_NOREPOSITION = SWP_NOOWNERZORDER 
   
  ' SetWindowPos() hwndInsertAfter values 
  Public Const HWND_TOP = 0 
  Public Const HWND_BOTTOM = 1 
  Public Const HWND_TOPMOST = -1 
  Public Const HWND_NOTOPMOST = -2 
 
  Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd&, ByVal hWndInsertAfter&, ByVal x&, ByVal y&, ByVal cx&, ByVal cy&, ByVal wFlags&) As Long