Android实例-路径信息及文件和文件夹的操作(XE8+小米2)

结果：

GetTempFileName:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/tmp/tmp.iQIip24407

GetTempPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/tmp

GetHomePath:/data/data/com.embarcadero.Project1/files

GetDocumentsPath:/data/data/com.embarcadero.Project1/files

GetSharedDocumentsPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files

GetLibraryPath:/data/data/com.embarcadero.Project1/lib

GetCachePath:/data/data/com.embarcadero.Project1/cache

GetPathRoot:/

GetPublicPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files

GetPicturesPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Pictures

GetSharedPicturesPath:/storage/sdcard0/Pictures

GetCameraPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/DCIM

GetSharedCameraPath:/storage/sdcard0/DCIM

GetMusicPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Music

GetSharedMusicPath:/storage/sdcard0/Music

GetMoviesPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Movies

GetAlarmsPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Alarms

GetSharedAlarmsPath:/storage/sdcard0/Alarms

GetDownloadsPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Download

GetSharedDownloadsPath:/storage/sdcard0/Download

GetRingtonesPath:/storage/sdcard0/Android/data/com.embarcadero.Project1/files/Ringtones

GetSharedRingtonesPath:/storage/sdcard0/Ringtones

 unit Unit1;

 interface

 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,
   FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls;

 type
   TForm1 = class(TForm)
     Button1: TButton;
     Memo1: TMemo;
     Button2: TButton;
     Button3: TButton;
     Button4: TButton;
     Button5: TButton;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button5Click(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 var
   Form1: TForm1;

 implementation
 uses
   System.IoUtils;
 {$R *.fmx}
 {$R *.NmXhdpiPh.fmx ANDROID}

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Memo1.Lines.Clear;
   Memo1.Lines.Add('GetTempFileName:' + TPath.GetTempFileName);
   Memo1.Lines.Add('GetTempPath:' + TPath.GetTempPath);
   Memo1.Lines.Add('GetHomePath:' + TPath.GetHomePath);
   Memo1.Lines.Add('GetDocumentsPath:' + TPath.GetDocumentsPath);
   Memo1.Lines.Add('GetSharedDocumentsPath:' + TPath.GetSharedDocumentsPath);
   Memo1.Lines.Add('GetLibraryPath:' + TPath.GetLibraryPath);
   Memo1.Lines.Add('GetCachePath:' + TPath.GetCachePath);
   Memo1.Lines.Add('GetPathRoot:' + TPath.GetPathRoot(TPath.GetCachePath));
   Memo1.Lines.Add('GetPublicPath:' + TPath.GetPublicPath);
   Memo1.Lines.Add('GetPicturesPath:' + TPath.GetPicturesPath);
   Memo1.Lines.Add('GetSharedPicturesPath:' + TPath.GetSharedPicturesPath);
   Memo1.Lines.Add('GetCameraPath:' + TPath.GetCameraPath);
   Memo1.Lines.Add('GetSharedCameraPath:' + TPath.GetSharedCameraPath);
   Memo1.Lines.Add('GetMusicPath:' + TPath.GetMusicPath);
   Memo1.Lines.Add('GetSharedMusicPath:' + TPath.GetSharedMusicPath);
   Memo1.Lines.Add('GetMoviesPath:' + TPath.GetMoviesPath);
   Memo1.Lines.Add('GetAlarmsPath:' + TPath.GetAlarmsPath);
   Memo1.Lines.Add('GetSharedAlarmsPath:' + TPath.GetSharedAlarmsPath);
   Memo1.Lines.Add('GetDownloadsPath:' + TPath.GetDownloadsPath);
   Memo1.Lines.Add('GetSharedDownloadsPath:' + TPath.GetSharedDownloadsPath);
   Memo1.Lines.Add('GetRingtonesPath:' + TPath.GetRingtonesPath);
   Memo1.Lines.Add('GetSharedRingtonesPath:' + TPath.GetSharedRingtonesPath);
 end;

 procedure TForm1.Button2Click(Sender: TObject);
 begin
   if TFile.Exists(TPath.GetTempFileName) then
   begin
     Memo1.Lines.Clear;
     Memo1.Lines.Add('存在');
   end;
 end;

 procedure TForm1.Button3Click(Sender: TObject);
 begin
   if not TDirectory.Exists(TPath.GetTempPath + 'NewDirectory') then
     TDirectory.CreateDirectory(TPath.GetTempPath + 'NewDirectory');
 end;

 procedure TForm1.Button4Click(Sender: TObject);
 var
   sFile1: string;
   sFile2: string;
 begin
   sFile1 := TPath.GetTempPath + '123.jpg';
   sFile2 := TPath.GetTempPath + '456.jpg';
   if not TFile.Exists(sFile1) then
   begin
     TFile.Copy(sFile1, sFile2);
   end;
 end;

 procedure TForm1.Button5Click(Sender: TObject);
 var
   Files: TStringDynArray;
   I: Integer;
 begin
   if TDirectory.Exists(TPath.GetTempPath + '/temp/') then
   begin
     Files := TDirectory.GetFiles(TPath.GetTempPath + '/temp/');
     for I :=  to high(Files) do
     begin
       TFile.Delete(Files[I]);
     end;
   end;
 end;

 end.