Changeset 281 for Include


Ignore:
Timestamp:
Jun 26, 2007, 8:49:53 PM (17 years ago)
Author:
イグトランス (egtra)
Message:

api_reg.sbp レジストリの関数の宣言をSDKより追加

Location:
Include
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/IO/Path.ab

    r271 r281  
    8181        Dim tempPath = _System_malloc(size)
    8282        __GetTempPath(size, tempPath)
    83         GetTempPath = tempPath
     83        GetTempPath = New String(tempPath)
    8484        _System_free(tempPath)
    8585    End Function
  • Include/api_reg.sbp

    r172 r281  
    88#ifdef UNICODE
    99Const _FuncName_RegConnectRegistry = "RegConnectRegistryW"
     10Const _FuncName_RegConnectRegistryEx = "RegConnectRegistryExW"
    1011Const _FuncName_RegCreateKeyEx = "RegCreateKeyExW"
     12Const _FuncName_RegCreateKeyTransacted = "RegCreateKeyTransactedW"
    1113Const _FuncName_RegDeleteKey = "RegDeleteKeyW"
     14Const _FuncName_RegDeleteKeyEx = "RegDeleteKeyExW"
     15Const _FuncName_RegDeleteKeyTransacted = "RegDeleteKeyTransactedW"
    1216Const _FuncName_RegDeleteValue = "RegDeleteValueW"
    1317Const _FuncName_RegEnumKeyEx = "RegEnumKeyExW"
     
    1519Const _FuncName_RegLoadKey = "RegLoadKeyW"
    1620Const _FuncName_RegOpenKeyEx = "RegOpenKeyExW"
     21Const _FuncName_RegOpenKeyTransacted = "RegOpenKeyTransactedW"
    1722Const _FuncName_RegQueryInfoKey = "RegQueryInfoKeyW"
    1823Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesW"
    1924Const _FuncName_RegQueryValueEx = "RegQueryValueExW"
    2025Const _FuncName_RegReplaceKey = "RegReplaceKeyW"
     26Const _FuncName_RegRestoreKey = "RegRestoreKeyW"
    2127Const _FuncName_RegSaveKey = "RegSaveKeyW"
    2228Const _FuncName_RegSetValueEx = "RegSetValueExW"
    2329Const _FuncName_RegUnLoadKey = "RegUnLoadKeyW"
     30Const _FuncName_RegDeleteKeyValue = "RegDeleteKeyValueW"
     31Const _FuncName_RegSetKeyValue = "RegSetKeyValueW"
     32Const _FuncName_RegDeleteTree = "RegDeleteTreeW"
     33Const _FuncName_RegCopyTree = "RegCopyTreeW"
     34Const _FuncName_RegGetValue = "RegGetValueW"
     35Const _FuncName_RegLoadMUIString = "RegLoadMUIStringW"
     36Const _FuncName_RegLoadAppKey = "RegLoadAppKeyW"
     37Const _FuncName_RegSaveKeyEx = "RegSaveKeyExW"
    2438#else
    2539Const _FuncName_RegConnectRegistry = "RegConnectRegistryA"
     40Const _FuncName_RegConnectRegistryEx = "RegConnectRegistryExA"
    2641Const _FuncName_RegCreateKeyEx = "RegCreateKeyExA"
     42Const _FuncName_RegCreateKeyTransacted = "RegCreateKeyTransactedA"
    2743Const _FuncName_RegDeleteKey = "RegDeleteKeyA"
     44Const _FuncName_RegDeleteKeyEx = "RegDeleteKeyExA"
     45Const _FuncName_RegDeleteKeyTransacted = "RegDeleteKeyTransactedA"
    2846Const _FuncName_RegDeleteValue = "RegDeleteValueA"
    2947Const _FuncName_RegEnumKeyEx = "RegEnumKeyExA"
     
    3149Const _FuncName_RegLoadKey = "RegLoadKeyA"
    3250Const _FuncName_RegOpenKeyEx = "RegOpenKeyExA"
     51Const _FuncName_RegOpenKeyTransacted = "RegOpenKeyTransactedA"
    3352Const _FuncName_RegQueryInfoKey = "RegQueryInfoKeyA"
    3453Const _FuncName_RegQueryMultipleValues = "RegQueryMultipleValuesA"
    3554Const _FuncName_RegQueryValueEx = "RegQueryValueExA"
    3655Const _FuncName_RegReplaceKey = "RegReplaceKeyA"
     56Const _FuncName_RegRestoreKey = "RegRestoreKeyA"
    3757Const _FuncName_RegSaveKey = "RegSaveKeyA"
    3858Const _FuncName_RegSetValueEx = "RegSetValueExA"
    3959Const _FuncName_RegUnLoadKey = "RegUnLoadKeyA"
     60Const _FuncName_RegDeleteKeyValue = "RegDeleteKeyValueA"
     61Const _FuncName_RegSetKeyValue = "RegSetKeyValueA"
     62Const _FuncName_RegDeleteTree = "RegDeleteTreeA"
     63Const _FuncName_RegCopyTree = "RegCopyTreeA"
     64Const _FuncName_RegGetValue = "RegGetValueA"
     65Const _FuncName_RegLoadMUIString = "RegLoadMUIStringA"
     66Const _FuncName_RegLoadAppKey = "RegLoadAppKeyA"
     67Const _FuncName_RegSaveKeyEx = "RegSaveKeyExA"
    4068#endif
     69
     70TypeDef REGSAM = Long 'ACCESS_MASK
    4171
    4272' Reserved Key Handles
     
    4878Const HKEY_CURRENT_CONFIG =   ((&H80000005 As Long) As ULONG_PTR) As HKEY
    4979Const HKEY_DYN_DATA =         ((&H80000006 As Long) As ULONG_PTR) As HKEY
     80
     81Const REG_SECURE_CONNECTION = 1
    5082
    5183Type VALENTW
     
    6799TypeDef VALENT = VALENTA
    68100#endif
    69 
    70101'------------------------
    71102' Registry API Functions
    72103
    73104Declare Function RegCloseKey Lib "advapi32" (hKey As HKEY) As Long
     105'#if WINVER >= 0x0500 'AB
     106Declare Function RegOverridePredefKey Lib "advapi32" (hKey As HKEY, hNewKey As HKEY) As Long
     107Declare Function RegOpenUserClassesRoot Lib "advapi32" (hToken As HANDLE, dwOptions As DWord, samDesired As REGSAM, ByRef hkResult As HKEY) As Long
     108Declare Function RegOpenCurrentUser Lib "advapi32" (samDesired As REGSAM, ByRef hkResult As HKEY) As Long
     109Declare Function RegDisablePredefinedCache Lib "advapi32" () As Long
     110Declare Function RegDisablePredefinedCacheEx Lib "advapi32" () As Long
     111'#endif
    74112Declare Function RegConnectRegistry Lib "advapi32" Alias _FuncName_RegConnectRegistry (pMachineName As PCTSTR, hKey As HKEY, ByRef hkResult As HKEY) As Long
    75 Declare Function RegCreateKeyEx Lib "advapi32" Alias _FuncName_RegCreateKeyEx (hKey As HKEY, lpSubKey As PCTSTR, Reserved As DWord, lpClass As PTSTR, dwOptions As DWord, samDesired As Long, ByRef lpSecurityAttributes As SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord) As Long
     113Declare Function RegConnectRegistryEx Lib "advapi32" Alias _FuncName_RegConnectRegistryEx (lpMachineName As LPCTSTR, hKey As HKEY, Flags As DWord, ByRef hkResult As HKEY) As Long
     114Declare Function RegCreateKeyEx Lib "advapi32" Alias _FuncName_RegCreateKeyEx (hKey As HKEY, lpSubKey As PCTSTR, Reserved As DWord, lpClass As PTSTR, dwOptions As DWord, samDesired As REGSAM, lpSecurityAttributes As *SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord) As Long
     115'#if WINVER >= 0x0600 'AB
     116Declare Function RegCreateKeyTransacted Lib "advapi32" Alias _FuncName_RegCreateKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, Reserved As DWord, lpClass As LPTSTR, dwOptions As DWord, samDesired As REGSAM, lpSecurityAttributes As *SECURITY_ATTRIBUTES, ByRef phkResult As HKEY, lpdwDisposition As *DWord, hTransaction As HANDLE, pExtendedParemeter As VoidPtr) As Long
     117'#endif
    76118Declare Function RegDeleteKey Lib "advapi32" Alias _FuncName_RegDeleteKey (hKey As HKEY, lpSubKey As PCTSTR) As Long
     119'#if WINVER >= 0x0520 'AB
     120Declare Function RegDeleteKeyEx Lib "advapi32" Alias _FuncName_RegDeleteKeyEx (hKey As HKEY, lpSubKey As LPCTSTR, samDesired As REGSAM, Reserved As DWord) As Long
     121'#endif
     122'#if WINVER >= 0x0600 'AB
     123Declare Function RegDeleteKeyTransacted Lib "advapi32" Alias _FuncName_RegDeleteKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, samDesired As REGSAM, Reserved As DWord, hTransaction As HANDLE, pExtendedParameter As VoidPtr) As Long
     124'#endif
     125'#if WINVER >= 0x0520 'AB
     126Declare Function RegDisableReflectionKey Lib "advapi32" (hBase As HKEY) As Long
     127Declare Function RegEnableReflectionKey Lib "advapi32" (hBase As HKEY) As Long
     128Declare Function RegQueryReflectionKey Lib "advapi32" (hBase As HKEY, ByRef bIsReflectionDisabled As BOOL) As Long
     129'#endif
    77130Declare Function RegDeleteValue Lib "advapi32" Alias _FuncName_RegDeleteValue (hKey As HKEY, lpValueName As PCTSTR) As Long
    78131Declare Function RegEnumKeyEx Lib "advapi32" Alias _FuncName_RegEnumKeyEx (hKey As HKEY, dwIndex As DWord, pName As PTSTR, ByRef cName As DWord, pReserved As *DWord, pClass As PTSTR, ByRef cClass As DWord, pftLastWriteTime As *FILETIME) As Long
    79132Declare Function RegEnumValue Lib "advapi32" Alias _FuncName_RegEnumValue (hKey As HKEY, dwIndex As DWord, pValueName As PTSTR, ByRef cValueName As DWord, pReserved As *DWord, pType As *DWord, pData As *Byte, pcbData As *DWord) As Long
    80 Declare Function RegFlushKey Lib "advapi32"(hKey As HKEY) As Long
     133Declare Function RegFlushKey Lib "advapi32" (hKey As HKEY) As Long
     134'#if _WIN32_WINNT >= &h0310 'AB
     135Declare Function RegGetKeySecurity Lib "advapi32"(hKey As HKEY, SecurityInformation As SECURITY_INFORMATION, pSecurityDescriptor As *SECURITY_DESCRIPTOR, ByRef lpcbSecurityDescriptor As DWord) As Long
     136'#endif
    81137Declare Function RegLoadKey Lib "advapi32" Alias _FuncName_RegLoadKey (hKey As HKEY, pSubKey As PCTSTR, pFile As PCTSTR) As Long
    82138Declare Function RegOpenKeyEx Lib "advapi32" Alias _FuncName_RegOpenKeyEx (hKey As HKEY, lpSubKey As PCTSTR, ulOptions As DWord, samDesired As Long, ByRef phkResult As HKEY) As Long
     139'#if WINVER >= 0x0600 'AB
     140Declare Function RegOpenKeyTransacted Lib "advapi32" Alias _FuncName_RegOpenKeyTransacted (hKey As HKEY, lpSubKey As LPCTSTR, ulOptions As DWord, samDesired As REGSAM, ByRef phkResult As HKEY, hTransaction As HANDLE, pExtendedParemeter As VoidPtr) As Long
     141'#endif
    83142Declare Function RegQueryInfoKey Lib "advapi32" Alias _FuncName_RegQueryInfoKey (hKey As HKEY, pClass As PTSTR, pcClass As *DWord, pReserved As *DWord, pcSubKeys As *DWord, pcMaxSubKeyLen As *DWord, pcMaxClassLen As *DWord, pcValues As *DWord, pcMaxValueNameLen As *DWord, pcMaxValueLen As *DWord, pcbSecurityDescriptor As *DWord, pftLastWriteTime As *FILETIME) As Long
    84143Declare Function RegQueryMultipleValues Lib "advapi32" Alias _FuncName_RegQueryMultipleValues (hKey As HKEY, val_list As *VALENT, num_vals As DWord, pValueBuf As PTSTR, ByRef dwTotsize As DWord) As Long
    85144Declare Function RegQueryValueEx Lib "advapi32" Alias _FuncName_RegQueryValueEx (hKey As HKEY, lpValueName As PCTSTR, lpReserved As DWord, lpType As *DWord, lpData As VoidPtr, lpcbData As *DWord) As Long
    86145Declare Function RegReplaceKey Lib "advapi32" Alias _FuncName_RegReplaceKey (hKey As HKEY, lpSubKey As LPCTSTR, lpNewFile As LPCTSTR, lpOldFile As LPCTSTR) As Long
     146'#if _WIN32_WINNT >= &h0310 'AB
     147Declare Function RegRestoreKey Lib "advapi32" Alias _FuncName_RegRestoreKey (hKey As HKEY, lpFile As LPCTSTR, dwFlags As DWord) As Long
     148'#endif
    87149Declare Function RegSaveKey Lib "advapi32" Alias _FuncName_RegSaveKey (hKey As HKEY, pFile As PCTSTR, pSecurityAttributes As *SECURITY_ATTRIBUTES) As Long
    88 Declare Function RegSetValueEx Lib "advapi32" Alias _FuncName_RegSetValueEx (hKey As HKEY, lpValueName As PCTSTR, Reserved As DWord, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
     150'#if _WIN32_WINNT >= &h0310 'AB
     151Declare Function RegSetKeySecurity Lib "advapi32" (hKey As HKEY, SecurityInformation As SECURITY_INFORMATION, pSecurityDescriptor As *SECURITY_DESCRIPTOR) AS Long
     152'#endif
     153Declare Function RegSetValueEx Lib "advapi32" Alias _FuncName_RegSetValueEx (hKey As HKEY, lpValueName As LPCTSTR, Reserved As DWord, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
    89154Declare Function RegUnLoadKey Lib "advapi32" Alias _FuncName_RegUnLoadKey (hKey As HKEY, lpSubKey As LPCTSTR) As Long
    90 
     155'#if _WIN32_WINNT >= &h0600
     156Declare Function RegDeleteKeyValue Lib "advapi32" Alias _FuncName_RegDeleteKeyValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValueName As LPCTSTR) As Long
     157Declare Function RegSetKeyValue Lib "advapi32" Alias _FuncName_RegSetKeyValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValueName As LPCTSTR, dwType As DWord, lpData As VoidPtr, cbData As DWord) As Long
     158Declare Function RegDeleteTree Lib "advapi32" Alias _FuncName_RegDeleteTree (hKey As HKEY, lpSubKey As LPCTSTR) As Long
     159Declare Function RegCopyTree Lib "advapi32" Alias _FuncName_RegCopyTree (hKeySrc As HKEY, lpSubKey As LPCTSTR, hKeyDest As HKEY) As Long
     160Declare Function RegGetValue Lib "advapi32" Alias _FuncName_RegGetValue (hKey As HKEY, lpSubKey As LPCTSTR, lpValue As LPCTSTR, dwFlags As DWord, pdwType As *DWord, pvData As VoidPtr, pcbData As *DWord) As Long
     161Declare Function RegLoadMUIString Lib "advapi32" Alias _FuncName_RegLoadMUIString (hKey As HKEY, pszValue As LPCTSTR, pszOutBuf As LPTSTR, cbOutBuf As DWord, pcbData As *DWord, Flags As DWord, pszDirectory As LPCTSTR) As Long
     162Declare Function RegLoadAppKey Lib "advapi32" Alias _FuncName_RegLoadAppKey (lpFile As LPCTSTR, ByRef hkResult As HKEY, samDesired As REGSAM, dwOptions As DWord, Reserved As DWord) As Long
     163'#endif
     164'#if WINVER >= 0x0510 'AB
     165Declare Function RegSaveKeyEx Lib "advapi32" Alias _FuncName_RegSaveKeyEx (hKey As HKEY, lpFile As LPCTSTR, lpSecurityAttributes As *SECURITY_ATTRIBUTES, Flags As DWord) As Long
     166'#endif
    91167#endif '_INC_REG
  • Include/api_richedit.sbp

    r206 r281  
    131131    bCharSet As Byte
    132132    bPitchAndFamily As Byte
    133     szFaceName[ELM(LF_FACESIZE)] As SByte
     133    szFaceName[ELM(LF_FACESIZE)] As CHAR
    134134    wWeight As Word
    135135    sSpacing As Integer
     
    351351
    352352Type EDITSTREAM
    353     dwCookie As DWordPtr
     353    dwCookie As ULONG_PTR
    354354    dwError As DWord
    355355    pfnCallback As VoidPtr
  • Include/basic/command.sbp

    r272 r281  
    4545
    4646Macro EXEC(filePath As String)(cmdLine As String)
    47     ShellExecute(0, "open", ToTCStr(filePath), ToTCStr(cmdLine), 0, SW_SHOWNORMAL)
     47    ShellExecute(0, ToTCStr("open"), ToTCStr(filePath), ToTCStr(cmdLine), 0, SW_SHOWNORMAL)
    4848End Macro
    4949
  • Include/basic/function.sbp

    r272 r281  
    511511        buffer[i] = Asc(".")
    512512        i++
    513         ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14)
     513        ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14 As SIZE_T)
    514514        i += 14
    515515        buffer[i] = Asc("e")
     
    526526        buffer[i] = Asc(".")
    527527        i++
    528         ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14)
     528        ActiveBasic.Strings.ChrCopy(VarPtr(buffer[i]), VarPtr(temp[1]), 14 As SIZE_T)
    529529        i+=14
    530530        buffer[i] = Asc("e")
Note: See TracChangeset for help on using the changeset viewer.