add: 尝试加入跨平台编译

Form/frmMain.pas

@@ -3,10 +3,11 @@ unit frmMain;
 interface
 
 uses
-  Windows, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  {$IFDEF MSWINDOWS} Windows, ShellAPI, {$ENDIF}
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Layouts,
   FMX.Controls.Presentation, FMX.StdCtrls, FMX.Effects, FMX.Objects, FMX.Filter.Effects,
-  untCard, untAPI, FMX.ListBox, FMX.Edit, ShellAPI, FMX.DialogService, System.Generics.Collections;
+  untCard, untAPI, FMX.ListBox, FMX.Edit, FMX.DialogService, System.Generics.Collections;
 
 type
   TFormMain = class(TForm)

Form/frmSearchCard.pas

@@ -3,7 +3,8 @@
 interface
 
 uses
-  Windows, System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
+  {$IFDEF MSWINDOWS} Windows, {$ENDIF}
+  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
   FMX.Layouts, FMX.Controls.Presentation, FMX.StdCtrls, FMX.Edit,
   FMX.ListBox, FMX.Objects, FMX.Effects;