Attribute VB_Name = "ModApihw"
'** Çϵå¿þ¾î ¹× API°ü·Ã ÇÔ¼ö ¸ðµâ **
Public Const DRIVE_REMOTE = 4
Public Const WM_WININICHANGE = &H1A
Public Const HWND_BROADCAST = &HFFFF&
Const PD_RETURNDC = &H100
Const PD_RETURNDEFAULT = &H400
Const PD_RETURNIC = &H200

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
       (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
       lParam As Any) As Long
       
Public Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" ( _
    ByVal nDrive As String) As Long
    
Public Declare Function PRINTDLG Lib "comdlg32.dll" Alias "PrintDlgA" _
       (pPrintdlg As PRINTDLG) As Long
       
Public Declare Function StartDocPrinter Lib "winspool.drv" _
        Alias "StartDocPrinterA" (ByVal hPrinter As Long, _
        ByVal Level As Long, pDocInfo As Byte) As Long
        
Public Declare Function ClosePrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long) As Long
       
Public Declare Function EndDocPrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long) As Long
       
Public Declare Function EndPagePrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long) As Long
       
Public Declare Function OpenPrinter Lib "winspool.drv" _
       Alias "OpenPrinterA" (ByVal pPrinterName As String, _
        phPrinter As Long, ByVal pDefault As Long) As Long

Public Declare Function StartPagePrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long) As Long
       
Public Declare Function WritePrinter Lib "winspool.drv" _
       (ByVal hPrinter As Long, pBuf As Any, _
        ByVal cdBuf As Long, pcWritten As Long) As Long
      
Public Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" ( _
ByVal lpAppName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long) _
As Long

Public Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" ( _
ByVal lpszSection As String, _
ByVal lpszKeyName As String, _
ByVal lpszString As String) _
As Long

Public Type PRINTDLG
        lStructSize As Long
        hwndOwner As Long
        hDevMode As Long
        hDevNames As Long
        hdc As Long
        flags As Long
        nFromPage As Integer
        nToPage As Integer
        nMinPage As Integer
        nMaxPage As Integer
        nCopies As Integer
        hInstance As Long
        lCustData As Long
        lpfnPrintHook As Long
        lpfnSetupHook As Long
        lpPrintTemplateName As String
        lpSetupTemplateName As String
        hPrintTemplate As Long
        hSetupTemplate As Long
End Type

Public Type DOCINFO
    pDocName As String
    pOutputFile As String
    pDatatype As String
End Type


'ÄÄÇ»Å͸í
Public g_ComName As String

Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
                (ByVal IpBuffer As String, nSize As Long) As Long



'±¹°¡º° ¼³Á¤
Public Const LOCALE_SSHORTDATE = &H1F
Public Const WM_SETTINGCHANGE = &H1A
'same as the old WM_WININICHANGE
'Public Const HWND_BROADCAST = &HFFFF&
Public Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCType As _
    Long, ByVal lpLCData As String) As Boolean
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 GetSystemDefaultLCID Lib "kernel32" () As Long




'¿ÜºÎ ½ÇÇà
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
     (ByVal hwnd As Long, ByVal IpOperation As String, ByVal IpFile As String, ByVal IpParameters As String, _
      ByVal IpDirectory As String, ByVal nShowCmd As Long) As Long

Public Declare Function GetActiveWindow Lib "user32" () As Long

Public Const SW_SHOWDEFAULT = 10
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOWMINIMIZED = 2
Public Const SHOWNORMAL = 1



'ÆÄÀÏCOPY
Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
      (ByVal IpExistingFileName As String, ByVal IpNewFileName As String, ByVal bFailIfExists As Long) As Long