[API]
RECT
FINDREPLACE
POINTAPI
STARTUPINFO
SYSTEMTIME

GetSystemTime
DrawTextW
SetFocusAPI
CloseHandle
GetCurrentProcess
GetDC
ReleaseDC
ClientToScreen
DeleteObject
GetSystemMetrics
GetForegroundWindow
SetForegroundWindow
DestroyWindow
EndDialog
GetTextExtentPoint32Wide
SetMenuDefaultItem
GetDlgItem
LocalAlloc
LocalFree
CheckMenuItem
DeleteMenu
EnableMenuItem
GetMenuItemCount
GetMenuState
GetStartupInfoA
GetDriveTypeA
DrawMenuBar
MessageBoxW
SystemParametersInfoA
EnableWindow
RtlMoveMemory
GetCursorPos
GetDesktopWindow
GetTickCount
GetWindowRect
DefWindowProcA
DefWindowProcW
CallWindowProcA
CallWindowProcW
SystemParametersInfoA
SystemParametersInfoW
GetLogicalDrives
GetProcAddress
SendMessageA
SendMessageW
GetCommandLineW
GetCommandLineA

[INCLUDE]
Application
ArraySort_String_IgnoreCase
ArraySort_String_StartPos_IgnoreCase
CallFunction_Fast
CallFunction_Indirect
GetOpenFileName
GetOpenFileName_MultiDataString
GetSaveFileName
CommonDLG_OpenPath
CreateDialogIndirectParam
CreateDirectoryEx
CreateFontIndirect
CreateFontIndirectEx
ctSSLayer
ctSSLayer_Devices
ctSSLayer_Misc
ctSSLayer_Music
ctSSLayer_ReadSongInfo
DoEventsEx_GetElapsedTime
DoEventsEx_GetTickCount
DoEventsEx
DoEventsEx_IsTickCountElapsed
DoEventsEx_SleepPeriodical
DragQueryFile
DrawText
Ellipsis_PathSmartStart
FindFirstChangeNotification
FindFirstFile
FindWindow
GetAddressOf
GetAPIPopupMenu
GetDlgItemText
GetFileVersionField
GetFileAttributes
GetFullPathName
GetKeyNameText
GetSpecialFolderPath
GetStrippedCommandLine
GetTextOutWidth
GetTimeFormatNow
GetWindowLong
GetWindowText
HtmlHelp
HyperLinkList_InfoDialog
LoadLibrary
LoadResEx_Data
LoadResEx_Dialog
LoadResEx_PagedDialog
LoadResEx_Dialog_Enable
LoadResEx_Dialog_SpinnerHelper
LoadResEx_Dialog_ListHelper
LoadResEx_Dialog_CheckBool
LoadResEx_Menu
LoadResEx_Menu_Add
LoadResEx_Menu_AddSeperator
LoadResEx_Menu_GetCaption
LoadResEx_Menu_MakePopupMenu
LoadResEx_Menu_SetCaption
LoadResEx_Icon
LoadResEx_SetLanguageFile
LoadResEx_SetThemeFile
LoadResEx_String
LoadResEx_WindowIcon
MapVirtualKey
PeekL
PeekS
PeekS_Ansi
PeekS_Wide
PokeL
PokeS
RegCreateKeyEx
RegDeleteKey
RegDeleteValue
RegEnumKey
RegisterClassEx
RegisterFileTypes_GetRegistered
RegisterFileTypes_RemoveRegistered
RegisterFileTypes_SetRegistered
RegOpenKeyEx
RegQueryValueEx_String
RegSetValueEx_String
RemovableDevices_RegisterAll
RemovableDevices_UnregisterAll
RemovableDevices_ResolveDriveID
SetDlgItemText
ShellExecute
Shell_NotifyIcon
SHFileOperation
ShutDownWindowsEx
SendMessage_String
SetWindowLong
SetWindowText
TaskbarProgress
TextOut
TrackListBox
TxtFile_ReadLine
TxtFile_GetEncoding
TxtFile_SetEncoding
TxtFile_WriteCreate
TxtFile_WriteCreateEx
TxtFile_WriteLine
TxtFile_WriteAppend
UIntAddUInt
Unicode
URLEncode
URLDecode
WinHelp
GetFullFromRelativeFilename

[ASSEMBLY]

[DEFINE]
Public Const DoEventsEx_SleepPeriodical_Interval = 200&

[DIRECTIVE]
ctSSLayer_LoadSongAbort
ctSSLayer_LoadSongFinished
ctSSLayer_GetInfoString
ctSSLayer_GetPosition
ctSSLayer_SeekSong
ctSSLayer_SetPause
ctSSLayer_SetVolume
ctSSLayer_GetSongLength
ctSSLayer_RefreshDeviceList
ctSSLayer_MusicGetPattern
ctSSLayer_MusicGetPatterns
ctSSLayer_MusicHasFinished
ctSSLayer_MusicTime
ctSSLayer_Spectrum
ctSSLayer_SetEndCallback
ctSSLayer_Spectrum
ctSSLayer_UpdateCDDA
ctSSLayer_UpdateLooping
ctSSLayer_UpdatePanning
HyperlinkList_UseIcons
LoadResEx_Dialog_ListFill_ExtendedUI
LoadResEx_PagedDialog_NoContextHelpHook
SetHyperLinkList_InfoDialog_CustomFocusID
SetHyperLinkList_InfoDialog_CustomHListID
SetIsMinWindows2000W
SetIsMinWindowsXP
SetIsMinWindows7

[CODE]
Public Function CalaymMessageBox(ByVal hWndOwner As Long, ByVal Prompt As String, ByVal Title As String, ByVal Buttons As Long) As Long
  DialogTimer True
  CalaymMessageBox = MessageBoxW(hWndOwner, StrPtr(Prompt), StrPtr(Title), Buttons)
  DialogTimer False
  End Function

Public Function LoadResEx_Dialog_CheckLongManualHandle(ByVal DialogHWnd As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim xLong1 As Long
  'x = (x + 2) % 3 for direct
  xLong1 = (wParam And &HFFFF&)
  LoadResEx_Dialog_CheckLongManualHandle = -1&
  
  If Not lParam = 0& Then
    If (GetWindowLong(lParam, -16&) And &HF&) = &H5& Then
      wParam = (IsDlgButtonChecked(DialogHWnd, xLong1) + 2&) Mod 3&
      Call CheckDlgButton(DialogHWnd, xLong1, wParam)
      LoadResEx_Dialog_CheckLongManualHandle = (3& - wParam) Mod 3&
      Call SetDlgItemText(DialogHWnd, xLong1, LoadResEx_String(xLong1 + LoadResEx_Dialog_CheckLongManualHandle))
      End If
    End If
  End Function

Public Function LoadResEx_Dialog_CheckLong(ByVal DialogHWnd As Long, ByVal ControlID As Long, ByRef Value As Long, Optional ByVal ReadFromDialog As Boolean = False) As Boolean ', Optional ByVal ResStringIDFirst As Long = -1&) As Boolean
  Dim xLong1 As Long
  'x=(3-x) % 3
  
  xLong1 = GetDlgItem(DialogHWnd, ControlID)
  If Not xLong1 = 0& Then
    xLong1 = (GetWindowLong(xLong1, -16&) And &HF&)
    If ReadFromDialog Then
      If Not GetDlgItem(DialogHWnd, ControlID) = 0& Then
        ControlID = IsDlgButtonChecked(DialogHWnd, ControlID)
        If xLong1 = &H5& Then ControlID = ((3& - ControlID) Mod 3&)
        If Not ControlID = Value Then
          Value = ControlID
          LoadResEx_Dialog_CheckLong = True
          End If
        End If
      Else
      'If ResStringIDFirst = -1& Then ResStringIDFirst = ControlID
      Call SetDlgItemText(DialogHWnd, ControlID, LoadResEx_String(ControlID + Value))
      If xLong1 = &H5& Then xLong1 = ((3& - Value) Mod 3&)
      Call CheckDlgButton(DialogHWnd, ControlID, xLong1)
      'Call SetDlgItemTextA(DialogHWnd, ControlID, LoadResEx_String(ResStringIDFirst + Value))
      End If
    End If
  End Function
