PureBasic Forums - English

Code: Select all

; GetThemeDocumentationProperty Function
; Retrieves the value For a theme property from the documentation section of the specified theme file.
; 
; Syntax
; CopyHRESULT GetThemeDocumentationProperty(
;   __in   LPCWSTR pszThemeName,
;   __in   LPCWSTR pszPropertyName,
;   __out  LPWSTR pszValueBuff,
;   __in   int cchMaxValChars
; );
; Parameters
; pszThemeName [in]
; Type: LPCWSTR
; 
; Pointer To a string that contains the name of the theme file that will be opened To query For the property.
; 
; pszPropertyName [in]
; Type: LPCWSTR
; 
; Pointer To a string that contains the name of the theme property To query. Can be one of the following values.
; 
; Value Meaning 
; SZ_THDOCPROP_DISPLAYNAME Retrieves the display name of the theme. 
;  
; SZ_THDOCPROP_TOOLTIP Retrieves the tooltip associated With this theme.
;  
; SZ_THDOCPROP_AUTHOR Retrieves the name of the author of the theme.
;  
; SZ_THDOCPROP_CANONICALNAME Retrieves the name of the theme.
; 
;   SZ_THDOCPROP_DISPLAYNAME               = WideString('DisplayName');
;   SZ_THDOCPROP_CANONICALNAME             = WideString('ThemeName');
;   SZ_THDOCPROP_TOOLTIP                   = WideString('ToolTip');
;   SZ_THDOCPROP_AUTHOR                    = WideString('author');
; 
; pszValueBuff [out]
; Type: LPWSTR
; 
; Pointer To a string buffer that receives the property string value.
; 
; cchMaxValChars [in]
; Type: int
; 
; Value of type int that specifies the maximum number of characters that pszValueBuff can contain.
; 
; Return Value
; Type: HRESULT
; 
; If this function succeeds, it returns S_OK. Otherwise, it returns an HRESULT error code.
  
Import "UxTheme.lib"    
  GetCurrentThemeName(pszThemeFileName, dwMaxNameChars, pszColorBuff, cchMaxColorChars, pszSizeBuff, cchMaxSizeChars)
  GetThemeDocumentationProperty(pszThemeName, pszPropertyName, pszValueBuff, cchMaxValChars)    
EndImport

ThemeFileName=AllocateMemory(2*(#MAX_PATH+1))
AnsiBuff_1=AllocateMemory(#MAX_PATH)
pszValueBuff=AllocateMemory(2*(#MAX_PATH+1))
AnsiBuff_2=AllocateMemory(#MAX_PATH)

CoInitialize_(0)
  GetCurrentThemeName(ThemeFileName,#MAX_PATH,ColorBuff,#MAX_PATH,0,0)
  pszThemeName.s = PeekS(ThemeFileName)
  Debug pszThemeName.s
  GetThemeDocumentationProperty(@pszThemeName.s,@"ThemeName",pszValueBuff,#MAX_PATH)
CoUninitialize_()
  
Debug PeekS(pszValueBuff)  

Code: Select all

; GetThemeDocumentationProperty Function
; Retrieves the value For a theme property from the documentation section of the specified theme file.
; 
; Syntax
; CopyHRESULT GetThemeDocumentationProperty(
;   __in   LPCWSTR pszThemeName,
;   __in   LPCWSTR pszPropertyName,
;   __out  LPWSTR pszValueBuff,
;   __in   int cchMaxValChars
; );
; Parameters
; pszThemeName [in]
; Type: LPCWSTR
; 
; Pointer To a string that contains the name of the theme file that will be opened To query For the property.
; 
; pszPropertyName [in]
; Type: LPCWSTR
; 
; Pointer To a string that contains the name of the theme property To query. Can be one of the following values.
; 
; Value Meaning 
; SZ_THDOCPROP_DISPLAYNAME Retrieves the display name of the theme. 
;  
; SZ_THDOCPROP_TOOLTIP Retrieves the tooltip associated With this theme.
;  
; SZ_THDOCPROP_AUTHOR Retrieves the name of the author of the theme.
;  
; SZ_THDOCPROP_CANONICALNAME Retrieves the name of the theme.
; 
;   SZ_THDOCPROP_DISPLAYNAME               = WideString('DisplayName');
;   SZ_THDOCPROP_CANONICALNAME             = WideString('ThemeName');
;   SZ_THDOCPROP_TOOLTIP                   = WideString('ToolTip');
;   SZ_THDOCPROP_AUTHOR                    = WideString('author');
; 
; pszValueBuff [out]
; Type: LPWSTR
; 
; Pointer To a string buffer that receives the property string value.
; 
; cchMaxValChars [in]
; Type: int
; 
; Value of type int that specifies the maximum number of characters that pszValueBuff can contain.
; 
; Return Value
; Type: HRESULT
; 
; If this function succeeds, it returns S_OK. Otherwise, it returns an HRESULT error code.
  
Import "UxTheme.lib"    
  GetCurrentThemeName(*pszThemeFileName, dwMaxNameChars, *pszColorBuff, cchMaxColorChars, *pszSizeBuff, cchMaxSizeChars)
  GetThemeDocumentationProperty(*pszThemeName, *pszPropertyName, *pszValueBuff, cchMaxValChars)    
EndImport

*MemoryBuffer_1=AllocateMemory(2*(#MAX_PATH+1))
*MemoryBuffer_2 = AllocateMemory(#MAX_PATH)
*ValueBuff=AllocateMemory(#MAX_PATH)
*AnsiBuff=AllocateMemory(#MAX_PATH)

CoInitialize_(0)
  GetCurrentThemeName(*MemoryBuffer_1,#MAX_PATH,0,#MAX_PATH,0,0)
  PokeS(*AnsiBuff,PeekS(*MemoryBuffer_1,-1,#PB_Unicode), -1, #PB_Ascii)
  ;WideCharToMultiByte_(#CP_ACP,#WC_COMPOSITECHECK,*MemoryBuffer_1,-1,*AnsiBuff,#MAX_PATH,0,0)
  
  CompilerIf #PB_Compiler_Unicode
    pszThemeName.s = PeekS(*MemoryBuffer_1)    
  CompilerElse
    pszThemeName.s = PeekS(*AnsiBuff)
  CompilerEndIf  
  
  Debug pszThemeName
  
  Query.s = "ThemeName"
  
  CompilerIf #PB_Compiler_Unicode
    GetThemeDocumentationProperty(@pszThemeName.s,@Query,*ValueBuff,#MAX_PATH)
    pszValueBuff.s = PeekS(*ValueBuff)    
  CompilerElse
    PokeS(*MemoryBuffer_1, PeekS(@pszThemeName.s), -1, #PB_Unicode)    
    PokeS(*MemoryBuffer_2, Query.s, -1, #PB_Unicode)
    GetThemeDocumentationProperty(*MemoryBuffer_1,*MemoryBuffer_2,*ValueBuff,#MAX_PATH)
    PokeS(*AnsiBuff,PeekS(*ValueBuff,-1,#PB_Unicode), -1, #PB_Ascii)
    ;WideCharToMultiByte_(#CP_ACP,#WC_COMPOSITECHECK,*ValueBuff,-1,*AnsiBuff,#MAX_PATH,0,0)
    pszValueBuff.s = PeekS(*AnsiBuff)
  CompilerEndIf
  
  Debug pszValueBuff
  
CoUninitialize_()