modwin32api.bas

来自「通用书店管理系统」· BAS 代码 · 共 37 行

Attribute VB_Name = "modWin32Api"
Option Explicit

Public Const WM_CLOSE = &H10



Public Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" ( _
    ByVal hwnd&, _
    ByVal HelpFile$, _
    ByVal wCommand%, _
    dwData As Any)
Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _
    ByVal hwnd As Long, _
    ByVal wMsg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
Public Declare Function SetForegroundWindow Lib "user32" ( _
    ByVal hwnd As Long) As Long
Public Declare Function GetLastError Lib "kernel32" () As Long


Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Declare Function SetWindowPos Lib "user32" _
        (ByVal hwnd As Long, _
         ByVal hWndInsertAfter As Long, _
         ByVal x As Long, _
         ByVal Y As Long, _
         ByVal cx As Long, _
         ByVal cy As Long, _
         ByVal wFlags As Long) As Long