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

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 := 0 to high(Files) do
    begin
      TFile.Delete(Files[I]);
    end;
  end;
end;

end.

结果：

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

http://www.cnblogs.com/FKdelphi/p/4696577.html