{$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.