获取lazarus应用编译目标cpu/os及LCLwidget类型

用lazarus编写应用中可能用到，其中GetLCLWidgetTypeName需要在uses添加InterfaceBase。

function GetSourceCPU:string;//返回编译目标的CPU类型
begin
  result:=lowercase({$i %FPCTARGETCPU%});
end;

function GetSourceOS:string;//返回编译目标的OS类型
begin
  result:=lowercase({$i %FPCTARGETOS%});
end;

GetLCLWidgetTypeName;//返回：win32/gtk2/qt5等