isbutton.ctl

iso文件制作与制作光盘 iso文件制作与制作光盘

'  BottomRight
'End Enum

'Private Enum CRADIENT_DIRECTION
'  DirectionSlash
'  DirectionBackSlash
'End Enum

Private Type RGBQUAD
        rgbBlue                     As Byte
        rgbGreen                    As Byte
        rgbRed                      As Byte
        rgbReserved                 As Byte
End Type

Private Type BITMAPINFOHEADER
        biSize                      As Long
        biWidth                     As Long
        biHeight                    As Long
        biPlanes                    As Integer
        biBitCount                  As Integer
        biCompression               As Long
        biSizeImage                 As Long
        biXPelsPerMeter             As Long
        biYPelsPerMeter             As Long
        biClrUsed                   As Long
        biClrImportant              As Long
End Type

Private Type BITMAPINFO
        bmiHeader                   As BITMAPINFOHEADER
        bmiColors                   As RGBQUAD
End Type

Private Enum DrawTextFlags
  DT_TOP = &H0
  DT_LEFT = &H0
  DT_CENTER = &H1
  DT_RIGHT = &H2
  DT_VCENTER = &H4
  DT_BOTTOM = &H8
  DT_WORDBREAK = &H10
  DT_SINGLELINE = &H20
  DT_EXPANDTABS = &H40
  DT_TABSTOP = &H80
  DT_NOCLIP = &H100
  DT_EXTERNALLEADING = &H200
  DT_CALCRECT = &H400
  DT_NOPREFIX = &H800
  DT_INTERNAL = &H1000
  DT_EDITCONTROL = &H2000
  DT_PATH_ELLIPSIS = &H4000
  DT_END_ELLIPSIS = &H8000
  DT_MODIFYSTRING = &H10000
  DT_RTLREADING = &H20000
  DT_WORD_ELLIPSIS = &H40000
  DT_NOFULLWIDTHCHARBREAK = &H80000
  DT_HIDEPREFIX = &H100000
  DT_PREFIXONLY = &H200000
End Enum


Private Type RGBTRIPLE
   rgbBlue  As Byte
   rgbGreen As Byte
   rgbRed   As Byte
End Type

'*************************************************************
'
'   Required API Declarations
'
'*************************************************************
Private Declare Sub RtlMoveMemory _
                Lib "kernel32" (Destination As Any, _
                                Source As Any, _
                                ByVal Length As Long)
Private Declare Function SetWindowText _
                Lib "user32.dll" _
                Alias "SetWindowTextA" (ByVal hWnd As Long, _
                                        ByVal lpString As String) As Long
Private Declare Function GetModuleHandleA _
                Lib "kernel32" (ByVal lpModuleName As String) As Long
Private Declare Function GetProcAddress _
                Lib "kernel32" (ByVal hModule As Long, _
                                ByVal lpProcName As String) As Long
Private Declare Function GlobalAlloc _
                Lib "kernel32" (ByVal wFlags As Long, _
                                ByVal dwBytes As Long) As Long
Private Declare Function GlobalFree _
                Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function SetWindowLongA _
                Lib "user32" (ByVal hWnd As Long, _
                              ByVal nIndex As Long, _
                              ByVal dwNewLong As Long) As Long
Private Declare Function FreeLibrary _
                Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibraryA _
                Lib "kernel32" (ByVal lpLibFileName As String) As Long
Private Declare Function TrackMouseEvent _
                Lib "user32" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long
Private Declare Function TrackMouseEventComCtl _
                Lib "Comctl32" _
                Alias "_TrackMouseEvent" (lpEventTrack As TRACKMOUSEEVENT_STRUCT) As Long
Private Declare Function GetWindowLong _
                Lib "user32" _
                Alias "GetWindowLongA" (ByVal hWnd As Long, _
                                        ByVal nIndex As Long) As Long
'Private Declare Function GetModuleHandle _
                Lib "kernel32" _
                Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long
Private Declare Function SetWindowLong _
                Lib "user32" _
                Alias "SetWindowLongA" (ByVal hWnd As Long, _
                                        ByVal nIndex As Long, _
                                        ByVal dwNewLong As Long) As Long
'Private Declare Function SetCapture _
                Lib "user32" (ByVal hwnd As Long) As Long
'Private Declare Function ReleaseCapture _
                Lib "user32" () As Long
'Private Declare Function LoadCursor _
                Lib "user32" _
                Alias "LoadCursorA" (ByVal hInstance As Long, _
                                     ByVal lpCursorName As Long) As Long
'Private Declare Function SetCursor _
                Lib "user32" (ByVal hCursor As Long) As Long
Private Declare Function BitBlt _
                Lib "gdi32" (ByVal hDestDC As Long, _
                             ByVal X As Long, _
                             ByVal Y As Long, _
                             ByVal nWidth As Long, _
                             ByVal nHeight As Long, _
                             ByVal hSrcDC As Long, _
                             ByVal XSrc As Long, _
                             ByVal YSrc As Long, _
                             ByVal dwRop As Long) As Long
'Private Declare Function StretchBlt _
                Lib "gdi32" (ByVal hdc As Long, _
                             ByVal x As Long, _
                             ByVal Y As Long, _
                             ByVal nWidth As Long, _
                             ByVal nHeight As Long, _
                             ByVal hSrcDC As Long, _
                             ByVal XSrc As Long, _
                             ByVal YSrc As Long, _
                             ByVal nSrcWidth As Long, _
                             ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
Private Declare Function SetRect _
                Lib "user32" (lpRect As RECT, _
                              ByVal X1 As Long, _
                              ByVal Y1 As Long, _
                              ByVal X2 As Long, _
                              ByVal Y2 As Long) As Long
Private Declare Function CopyRect _
                Lib "user32" (lpDestRect As RECT, _
                              lpSourceRect As RECT) As Long
Private Declare Function InflateRect _
                Lib "user32.dll" (ByRef lpRect As RECT, _
                                  ByVal X As Long, _
                                  ByVal Y As Long) As Long
Private Declare Function OffsetRect _
                Lib "user32" (lpRect As RECT, _
                              ByVal X As Long, _
                              ByVal Y As Long) As Long
Private Declare Function DrawText _
                Lib "user32" _
                Alias "DrawTextA" (ByVal hdc As Long, _
                                   ByVal lpStr As String, _
                                   ByVal nCount As Long, _
                                   lpRect As RECT, _
                                   ByVal wFormat As Long) As Long
'Private Declare Function RedrawWindow _
                Lib "user32" (ByVal hwnd As Long, _
                              lprcUpdate As RECT, _
                              ByVal hrgnUpdate As Long, _
                              ByVal fuRedraw As Long) As Long
'Private Declare Function AlphaBlend _
                Lib "msimg32" (ByVal hdcDest As Long, _
                               ByVal nXOriginDest As Long, _
                               ByVal nYOriginDest As Long, _
                               ByVal nWidthDest As Long, _
                               ByVal hHeightDest As Long, _
                               ByVal hdcSrc As Long, _
                               ByVal nXOriginSrc As Long, _
                               ByVal nYOriginSrc As Long, _
                               ByVal nWidthSrc As Long, _
                               ByVal nHeightSrc As Long, ByVal blendFunc As Long) As Boolean
'Private Declare Function TransparentBlt _
                Lib "msimg32" (ByVal hdcDest As Long, _
                               ByVal nXOriginDest As Long, _
                               ByVal nYOriginDest As Long, _
                               ByVal nWidthDest As Long, _
                               ByVal hHeightDest As Long, _
                               ByVal hdcSrc As Long, _
                               ByVal nXOriginSrc As Long, _
                               ByVal nYOriginSrc As Long, _
                               ByVal nWidthSrc As Long, _
                               ByVal nHeightSrc As Long, ByVal crTransparent As Long) As Boolean
'Private Declare Function GetVersion _
                Lib "kernel32" () As Long
Private Declare Function OpenThemeData _
                Lib "uxtheme.dll" (ByVal hWnd As Long, _
                                   ByVal pszClassList As Long) As Long
'Private Declare Function CloseThemeData _
                Lib "uxtheme.dll" (ByVal hTheme As Long) As Long
Private Declare Function DrawThemeBackground _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal lhdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   pRect As RECT, _
                                   pClipRect As RECT) As Long
'Private Declare Function DrawThemeParentBackground _
                Lib "uxtheme.dll" (ByVal hwnd As Long, _
                                   ByVal hdc As Long, _
                                   prc As RECT) As Long
'Private Declare Function GetThemeBackgroundContentRect _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   pBoundingRect As RECT, _
                                   pContentRect As RECT) As Long
Private Declare Function GetThemeBackgroundRegion _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   pRect As RECT, _
                                   pRegion As Long) As Long
'Private Declare Function DrawThemeText _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   ByVal pszText As Long, _
                                   ByVal iCharCount As Long, _
                                   ByVal dwTextFlag As Long, _
                                   ByVal dwTextFlags2 As Long, _
                                   pRect As RECT) As Long
'Private Declare Function DrawThemeIcon _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   pRect As RECT, _
                                   ByVal hIml As Long, _
                                   ByVal iImageIndex As Long) As Long
'Private Declare Function GetThemePartSize _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   prc As RECT, _
                                   ByVal eSize As THEMESIZE, _
                                   psz As SIZE) As Long
'Private Declare Function GetThemeTextExtent _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal hdc As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long, _
                                   ByVal pszText As Long, _
                                   ByVal iCharCount As Long, _
                                   ByVal dwTextFlags As DrawTextFlags, _
                                   pBoundingRect As RECT, _
                                   pExtentRect As RECT) As Long
'Private Declare Function IsThemePartDefined _
                Lib "uxtheme.dll" (ByVal hTheme As Long, _
                                   ByVal iPartId As Long, _
                                   ByVal iStateId As Long) As Long
'Private Declare Function ImageList_GetImageRect _
                Lib "comctl32.dll" (ByVal hIml As Long, _
                                    ByVal i As Long, _
                                    prcImage As RECT) As Long
Private Declare Function ShellExecute _
                Lib "shell32.dll" _
                Alias "ShellExecuteA" (ByVal hWnd As Long, _
                                       ByVal lpOperation As String, _
                                       ByVal lpFile As String, _
                                       ByVal lpParameters As String, _
                                       ByVal lpDirectory As String, _
                                       ByVal nShowCmd As Long) As Long
'Private Declare Function GetModuleFileName _
                Lib "kernel32" _
                Alias "GetModuleFileNameA" (ByVal hModule As Long, _
                                            ByVal lpFileName As String, _
                                            ByVal nSize As Long) As Long
'Private Declare Function GetTickCount _
                Lib "kernel32" () As Long
Private Declare Function CreateCompatibleDC _
                Lib "gdi32" (ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap _
                Lib "gdi32" (ByVal hdc As Long, _
                             ByVal nWidth As Long, _
                             ByVal nHeight As Long) As Long
'Private Declare Function CreateBitmap _
                Lib "gdi32" (ByVal nWidth As Long, _
                             ByVal nHeight As Long, _
                             ByVal nPlanes As Long, _