LGram16
e067522598
Game client codebase including: - CharacterActionControl: Character and creature management - GlobalScript: Network, items, skills, quests, utilities - RYLClient: Main client application with GUI and event handlers - Engine: 3D rendering engine (RYLGL) - MemoryManager: Custom memory allocation - Library: Third-party dependencies (DirectX, boost, etc.) - Tools: Development utilities 🤖 Generated with [Claude Code](https://claude.com/claude-code) Co-Authored-By: Claude <noreply@anthropic.com>
34 lines
1.1 KiB
QBasic
34 lines
1.1 KiB
QBasic
Attribute VB_Name = "modShell"
|
|
Option Explicit
|
|
|
|
Public Enum SpecialFolderIDs
|
|
sfidDESKTOP = &H0
|
|
sfidPROGRAMS = &H2
|
|
sfidPERSONAL = &H5
|
|
sfidFAVORITES = &H6
|
|
sfidSTARTUP = &H7
|
|
sfidRECENT = &H8
|
|
sfidSENDTO = &H9
|
|
sfidSTARTMENU = &HB
|
|
sfidDESKTOPDIRECTORY = &H10
|
|
sfidNETHOOD = &H13
|
|
sfidFONTS = &H14
|
|
sfidTEMPLATES = &H15
|
|
sfidCOMMON_STARTMENU = &H16
|
|
sfidCOMMON_PROGRAMS = &H17
|
|
sfidCOMMON_STARTUP = &H18
|
|
sfidCOMMON_DESKTOPDIRECTORY = &H19
|
|
sfidAPPDATA = &H1A
|
|
sfidPRINTHOOD = &H1B
|
|
sfidProgramFiles = &H10000
|
|
sfidCommonFiles = &H10001
|
|
End Enum
|
|
|
|
Public Declare Function SHGetSpecialFolderLocation Lib "shell32" (ByVal hwndOwner As Long, ByVal nFolder As SpecialFolderIDs, ByRef pIdl As Long) As Long
|
|
Public Declare Function SHGetPathFromIDListA Lib "shell32" (ByVal pIdl As Long, ByVal pszPath As String) As Long
|
|
Public Declare Function SHGetDesktopFolder Lib "shell32" (ByRef pshf As IVBShellFolder) As Long
|
|
Public Declare Function SHGetMalloc Lib "shell32" (ByRef pMalloc As IVBMalloc) As Long
|
|
|
|
' SHGetSpecialFolderLocation successful rtn val
|
|
Public Const NOERROR = 0
|