Delphi 10.1 BerlinのFireMonekyアプリケーションで実行中のOSを(Windows/OSX/Android/iOS)を取得する

実行中のプラットフォームはTOSVersionレコードのPlatformフィールドで取得できます。

戻り値は次のような定数になっています。

TPlatform = (pfWindows, pfMacOS, pfiOS, pfAndroid, pfWinRT, pfLinux);

次のコードは、アプリケーションを実行しているOSを表示します。

uses
  FMX.DialogService;

procedure TForm1.Button1Click(Sender: TObject);
const
  OSNames: array [0 .. 3] of String = ('Windows', 'OSX', 'iOS', 'Android');
var
  OSName: string;
begin
  OSName := OSNames[Integer(TOSVersion.Platform)];
  FMX.DialogService.TDialogService.ShowMessage(OSName);
end;