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

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.
上一篇:POJ 1061 - 青蛙的约会 - [exgcd求解一元线性同余方程]


下一篇:使用sso(cas)的时候报单点登录service不匹配问题分析及解决