判斷系統是否啓動了視覺樣式

https://www.cnblogs.com/gaodu2003/archive/2009/06/07/1498113.html

Function IsAppThemed: Boolean; external 'uxtheme.dll';
Function FreeLibrary: Integer; external 'kernel32.dll';

Function SupportThemeSystem: Boolean;
var
  lngLibHandle: THandle;
begin
  Result := false;
  lngLibHandle := LoadLibrary('uxtheme.dll');
  Result := true;
  if lngLibHandle <> 0 then
    begin
    Result := IsAppThemed;
    end;
end;

//返回值爲True時，是使用了視覺樣式

//由songyaowu的VB代碼翻譯而來的