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.