procedure TAndroidModule1.Button1Click(Sender: TObject);
var
apath:String;
begin
apath := '\\?\\\DESKTOP-9ABC8H5\AgrosNet\ApkAgros.db' ;
if FileExists(apath) then
showmessage('File Exist')
else
Showmessage('Not Exist');
end;
procedure TAndroidModule1.AndroidModule1JNIPrompt(Sender: TObject);
var
manifestPermissions: array of string;
begin
if IsRuntimePermissionNeed() then // that is, target API >= 23 - Android 6
begin
SetLength(manifestPermissions, 1);
//hint: if you get "write" permission then you have "read", too!
//from AndroodManifest.xml
manifestPermissions[0]:= 'android.permission.WRITE_EXTERNAL_STORAGE';
// location
Self.RequestRuntimePermission(manifestPermissions, 701);
//camera
Self.RequestRuntimePermission(manifestPermissions, 802);
//upload
Self.RequestRuntimePermission(['android.permission.READ_EXTERNAL_STORAGE'], 3027);//android.permission.WRITE_EXTERNAL_STORAGE
SetLength(manifestPermissions, 0);
SetLength(manifestPermissions, 3);
manifestPermissions[0]:= 'android.permission.RECEIVE_SMS'; //from AndroodManifest.xml
manifestPermissions[1]:= 'android.permission.SEND_SMS'; //from AndroodManifest.xml
manifestPermissions[2]:= 'android.permission.READ_PHONE_STATE';
Self.RequestRuntimePermission(manifestPermissions, 2001);
SetLength(manifestPermissions, 2);
manifestPermissions[0]:= 'android.permission.CAMERA'; //from AndroodManifest.xml
manifestPermissions[1]:= 'android.permission.WRITE_EXTERNAL_STORAGE'; //from AndroodManifest.xml
Self.RequestRuntimePermission(manifestPermissions, 1101);
SetLength(manifestPermissions, 1);
Self.RequestRuntimePermission(manifestPermissions, 1198);
SetLength(manifestPermissions, 0);
end;
end;