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
1 unit Unit1;
2
3 interface
4
5 uses
6 System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
7 FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox,
8 FMX.Memo, FMX.Controls.Presentation, FMX.StdCtrls;
9
10 type
11 TForm1 = class(TForm)
12 Button1: TButton;
13 Memo1: TMemo;
14 Button2: TButton;
15 Button3: TButton;
16 Button4: TButton;
17 Button5: TButton;
18 procedure Button1Click(Sender: TObject);
19 procedure Button2Click(Sender: TObject);
20 procedure Button3Click(Sender: TObject);
21 procedure Button4Click(Sender: TObject);
22 procedure Button5Click(Sender: TObject);
23 private
24 { Private declarations }
25 public
26 { Public declarations }
27 end;
28
29 var
30 Form1: TForm1;
31
32 implementation
33 uses
34 System.IoUtils;
35 {$R *.fmx}
36 {$R *.NmXhdpiPh.fmx ANDROID}
37
38 procedure TForm1.Button1Click(Sender: TObject);
39 begin
40 Memo1.Lines.Clear;
41 Memo1.Lines.Add('GetTempFileName:' + TPath.GetTempFileName);
42 Memo1.Lines.Add('GetTempPath:' + TPath.GetTempPath);
43 Memo1.Lines.Add('GetHomePath:' + TPath.GetHomePath);
44 Memo1.Lines.Add('GetDocumentsPath:' + TPath.GetDocumentsPath);
45 Memo1.Lines.Add('GetSharedDocumentsPath:' + TPath.GetSharedDocumentsPath);
46 Memo1.Lines.Add('GetLibraryPath:' + TPath.GetLibraryPath);
47 Memo1.Lines.Add('GetCachePath:' + TPath.GetCachePath);
48 Memo1.Lines.Add('GetPathRoot:' + TPath.GetPathRoot(TPath.GetCachePath));
49 Memo1.Lines.Add('GetPublicPath:' + TPath.GetPublicPath);
50 Memo1.Lines.Add('GetPicturesPath:' + TPath.GetPicturesPath);
51 Memo1.Lines.Add('GetSharedPicturesPath:' + TPath.GetSharedPicturesPath);
52 Memo1.Lines.Add('GetCameraPath:' + TPath.GetCameraPath);
53 Memo1.Lines.Add('GetSharedCameraPath:' + TPath.GetSharedCameraPath);
54 Memo1.Lines.Add('GetMusicPath:' + TPath.GetMusicPath);
55 Memo1.Lines.Add('GetSharedMusicPath:' + TPath.GetSharedMusicPath);
56 Memo1.Lines.Add('GetMoviesPath:' + TPath.GetMoviesPath);
57 Memo1.Lines.Add('GetAlarmsPath:' + TPath.GetAlarmsPath);
58 Memo1.Lines.Add('GetSharedAlarmsPath:' + TPath.GetSharedAlarmsPath);
59 Memo1.Lines.Add('GetDownloadsPath:' + TPath.GetDownloadsPath);
60 Memo1.Lines.Add('GetSharedDownloadsPath:' + TPath.GetSharedDownloadsPath);
61 Memo1.Lines.Add('GetRingtonesPath:' + TPath.GetRingtonesPath);
62 Memo1.Lines.Add('GetSharedRingtonesPath:' + TPath.GetSharedRingtonesPath);
63 end;
64
65 procedure TForm1.Button2Click(Sender: TObject);
66 begin
67 if TFile.Exists(TPath.GetTempFileName) then
68 begin
69 Memo1.Lines.Clear;
70 Memo1.Lines.Add('存在');
71 end;
72 end;
73
74 procedure TForm1.Button3Click(Sender: TObject);
75 begin
76 if not TDirectory.Exists(TPath.GetTempPath + 'NewDirectory') then
77 TDirectory.CreateDirectory(TPath.GetTempPath + 'NewDirectory');
78 end;
79
80 procedure TForm1.Button4Click(Sender: TObject);
81 var
82 sFile1: string;
83 sFile2: string;
84 begin
85 sFile1 := TPath.GetTempPath + '123.jpg';
86 sFile2 := TPath.GetTempPath + '456.jpg';
87 if not TFile.Exists(sFile1) then
88 begin
89 TFile.Copy(sFile1, sFile2);
90 end;
91 end;
92
93 procedure TForm1.Button5Click(Sender: TObject);
94 var
95 Files: TStringDynArray;
96 I: Integer;
97 begin
98 if TDirectory.Exists(TPath.GetTempPath + '/temp/') then
99 begin
100 Files := TDirectory.GetFiles(TPath.GetTempPath + '/temp/');
101 for I := 0 to high(Files) do
102 begin
103 TFile.Delete(Files[I]);
104 end;
105 end;
106 end;
107
108 end.
