本文整理自网络,侵删。
uses Androidapi.JNIBridge, Androidapi.IOUtils,
function GetAppPath: string;begin{$IF Defined(ANDROID)} Result := ExtractFilePath( ExcludeTrailingPathDelimiter( System.IOUtils.TPath.GetHomePath));{$ELSE} Result := ExtractFilePath(ParamStr(0));{$ENDIF ANDROID} Result := IncludeTrailingPathDelimiter(Result);end;
Memo1.Lines.Add( GetAppPath); //结果:/data/user/0/com.embarcadero.HeaderFooterApplication/ Memo1.Lines.Add( TPath.GetHomePath); //结果:/data/user/0/com.embarcadero.HeaderFooterApplication/files
相关阅读 >>
Delphi firdac 对 sqlite 数字, int64也会被截断,会出现负数情况处理
更多相关阅读请进入《Delphi》频道 >>