Delphi TStyleManager读取vsf皮肤文件信息

本文整理自网络，侵删。

 
{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Vcl.Styles,
  Vcl.Themes;

var
 Style : TStyleInfo;
begin
  try
    if TStyleManager.IsValidStyle('C:\Users\Public\Documents\RAD Studio\9.0\Styles\RubyGraphite.vsf', Style) then
    begin
       Writeln(Format('Name           %s',[Style.Name]));
       Writeln(Format('Author         %s',[Style.Author]));
       Writeln(Format('Author EMail   %s',[Style.AuthorEMail]));
       Writeln(Format('Author URL     %s',[Style.AuthorURL]));
       Writeln(Format('Version        %s',[Style.Version]));
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  readln;
end.
 

相关阅读 >>

Delphi多线程学习：多线程数据库查询（ado）

Delphi xe 跨平台（windows、android安卓、苹果macos、苹果ios）写法

Delphi 生成指定范围和个数的不重复的随机整数

Delphi 利用tmemorystream对象存取缓存

Delphi中查找指定文件的例程

Delphi 获取/设置桌面窗口样式的Delphi代码

Delphi idhttp登录网站教程代码

Delphi文件分割合并

Delphi 获取unigui 控件id 及获取html值

Delphi检查字符串是否为纯数字

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi TStyleManager读取vsf皮肤文件信息