判断程序是FMX还是VCL

     {$IF FMX.Types.FireMonkeyVersion >= 0}
     showmessage('FMX');
     {$ELSE}                  
     showmessage('VCL');
     {$ENDIF}