>>The UxTheme.dll is a part of WinXP. The IsThemeActive function returns 0 if themes are not for the current application and non-zero otherwise. See http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/userex/functions/isthemeactive.asp
>>I guess you're looking for GetCurrentThemeName Function http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/userex/functions/getcurrentthemename.asp

DECLARE Long GetCurrentThemeName IN UxTheme.dll ;
>>    String @ pszThemeFileName, ;
>>    Long dwMaxNameChars, ;
>>    String @ pszColorBuff, ;
>>    Long cchMaxColorChars, ;
>>    String @ pszSizeBuff, ;
>>    Long cchMaxSizeChars
>>
>>lcThemeFileName = SPACE(512)
>>IF GetCurrentThemeName( @lcThemeFileName, LEN(lcThemeFileName), "", 256, "", 256) = 0
>>    ? LEFT(lcThemeFileName, AT(CHR(0), lcThemeFileName)-1)
>>ENDIF
>>

If it's not the one, check MSDN at http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/commctls/userex/refentry.asp
>>
>>
>Thank you so much.

You're welcome.