Dozent

Проблему решил!)
 
Подключил девайс Surface. Я не знал что он начал складывать все изменения свой отдельный ресурсный файл)  Удалил ссылку на него в главной форме и всё норм стало)

Знаете! Я снял галки в Multi-Device Preview с Айфон 4 и Айфон5 ни чего не закрывал и проблема пока не появляется))) Если появится я попробую ваш совет

Андрей, не это я не вам Абсолютно, а девушке у которой всё работает) А Вам вообще отдельное спасибо за ваш блог!!! Много там нужного и полезно, а с проблемой я справился!!!
Я по своей невнимательности забыл что вертикальная палка это операция или и почему-то влупил AND
Всё работает, простите меня за не внимательность....
procedure TForm1.Play(const sFileName: string); var PackageName: Jstring; ActiveManager: JActivityManager; sFile, exe: string; Intent: JIntent; Data: Jnet_Uri; begin try sFile := sFileName; // MX player: https://sites.google.com/site/mxvpen/api PackageName := StringToJString('com.mxtech.videoplayer.ad'); ActiveManager := GetActivityManager(); ActiveManager.killBackgroundProcesses(PackageName); // exe := System.IOUtils.TPath.GetExtension(sFile); Intent := TJIntent.JavaClass.init(TJIntent.JavaClass.ACTION_VIEW); Data := StrToJURI(sFile); Intent.setDataAndType(Data, StringToJString(PWideChar('video/') + exe)); Intent.setPackage(PackageName); { Intent.putExtra(StringToJString('end_by'), StringToJString('user')); https://github.com/NineWorlds/serenity-android/issues/134 http://stackoverflow.com/questions/22408413/how-to-stop-android-mx-player-on-back-pressed } Intent.addFlags(TJIntent.JavaClass.FLAG_ACTIVITY_CLEAR_TOP or TJIntent.JavaClass.FLAG_ACTIVITY_NEW_TASK or TJIntent.JavaClass.FLAG_ACTIVITY_NO_HISTORY); SharedActivity().startActivity(Intent); finally end; end;

Вообщем реализация такая
//добавляем в uses ShellApi, Winapi.Windows, Winapi.messages; // вызов сенсорной клавиатуры function ExpandEnvironmentVar(var Value: string): Boolean; var R: Integer; Expanded: string; procedure StrResetLength(var S: string); var I: Integer; begin for I := 0 to Length(S) - 1 do if S[I + 1] = #0 then begin SetLength(S, I); Exit; end; end; begin SetLength(Expanded, 1); R := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), 0); SetLength(Expanded, R); Result := ExpandEnvironmentStrings(PChar(Value), PChar(Expanded), R) <> 0; if Result then begin StrResetLength(Expanded); Value := Expanded; end; end; procedure TForm1.Edit2Click(Sender: TObject); var S: string; begin S := '%CommonProgramW6432%\microsoft shared\ink\tabtip.exe'; if ExpandEnvironmentVar(S) then Caption := S else Caption := S; { :-) } ShellExecute(0, PChar('open'), PChar(Caption), nil, nil, SW_SHOWNORMAL); end; //закрытие procedure TForm1.Button1Click(Sender: TObject); var MyHandle1: THandle; begin MyHandle1 := FindWindow('IPTip_Main_Window', nil); if MyHandle1 <> 0 then begin PostMessage(MyHandle1, WM_SYSCOMMAND, SC_CLOSE, 0); Label2.Text := IntToStr(MyHandle1); end; end;

Можно закрыть RETURNING Unified Support (FireDAC)

Доброй ночи, проблему решил! Зашёл в "Устройства воспроизведения" и удалил не используемые! 
Первым был микрофон который не использовался, вторым тот что работал, возможно я ошибаюсь, но похоже получается что берётся первый из списка микрофон, а не тот что по умолчанию!
Но проблема решена всё пишет!