以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。终于找到了最简单,最直接的方式。现在把函数整理出来,与大家分享。
(原创 -- 作者:陆岛工作室 E-mail: xotec@126.com)
以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时,用得少,也没过多地去注意了。今天要写一个小程序,又遇到了这个问题。就找资料吧,终于找到了最简单,最直接的方式。现在把函数整理如下:
需要引用 ShlwApi.pas
//取绝对路径的函数
// BasePath: 是参考路径。RelativePath: 是指相对路径
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
function GetAbsolutePathEx(BasePath, RelativePath:string):string;
var
Dest:array [0..MAX_PATH] of char;
begin
FillChar(Dest,MAX_PATH+1,0);
PathCombine(Dest,PChar(BasePath), PChar(RelativePath));
Result:=string(Dest);
end;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
示范:
S := GetAbsolutePath('C:\Windows\System32', '..\DEMO.TXT')
// S 将得到 'C:\Windows\DEMO.TXT
//绝对路径转换为相对路径的函数
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
function GetRelativePath(const Path, AFile: string): string;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
function GetAttr(IsDir: Boolean): DWORD;
begin
if IsDir then
Result := FILE_ATTRIBUTE_DIRECTORY
else
Result := FILE_ATTRIBUTE_NORMAL;
end;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
var
p: array[0..MAX_PATH] of Char;
begin
PathRelativePathTo(p, PChar(Path), GetAttr(False), PChar(AFile), GetAttr(True));
Result := StrPas(p);
end;
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)