本文整理自网络,侵删。
{$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 xe5 android 开发实现手机打电话和发短信
Delphi 一个绘制虚线的非常规函数(常规方法,打印机上绘制不出虚线)
Delphi int64:是Delphi中最大的整数,64位有符号整数
更多相关阅读请进入《Delphi》频道 >>