Aufruf Programme mit Firemonkey

[QuickAndDirty]

ok es sieht jetzt so aus.

Delphi-Quellcode:

Procedure OpenDocument(sCommand:String);
{$IFDEF IOS}
var
  NSU: NSUrl;
{$ENDIF IOS}
{$IFDEF ANDROID}
var
  Intent: JIntent;
{$ENDIF ANDROID}
Begin
{$IFDEF WIN32}
  ShellExecute(0, 'OPEN', PChar(sCommand), '', '', SW_SHOWNORMAL);
{$ENDIF WIN32}
{$IFDEF IOS}
  // iOS doesn't like spaces, so URL encode is important.
  NSU := StrToNSUrl(TIdURI.URLEncode(URL));
  if SharedApplication.canOpenURL(NSU) then
    SharedApplication.openUrl(NSU);
{$ENDIF IOS}
{$IFDEF ANDROID}
      Intent := TJIntent.Javaclass.init(TJIntent.JavaClass.ACTION_VIEW,
                 StrToJURI(sCommand));
      Intent.setFlags(TjIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK);
      TAndroidhelper.Activity.startActivity(Intent);
{$ENDIF ANDROID}
End;