判断系统是否启动了视觉样式

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代码翻译而来的