delphi xe10 FMX 启动参数

关于 Delphi Xe10 FMX 启动参数  需要在启动窗口前来调用

也就是在bar文件修改

如果参数多可以用json来

uses

system.SysUtils;

var

param: string;

begin

if FindCmdLineSwitch('p') then

FindCmdLineSwitch('p', param);

Application.Initialize;
Application.CreateForm(TdmLoginCore, dmLoginCore);
Application.CreateForm(TForm1, Form1);
Application.Run;

end;