Android实例-路径信息及文件和文件夹的操作

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.