以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时，用得少，也没过多地去注意了。今天要写一个小程序，又遇到了这个问题。就找资料吧，终于找到了最简单，最直接的方式。现在把函数整理如下：//取绝对路径的函数。需要引用 ShlwApi.pas// BasePath: 是参考路径。RelativePath: 是指相对路径function GetAbsolutePathEx(BasePath, RelativePath:string):string;var Dest:array [0..MAX_PATH] of char;begin FillChar(Dest,MAX_PATH+1, Read More