获取文件路径

1. (* 
2. 相对路径和绝对路径的转换 
3. *)  
4.   
5.   
6. unit xPath;  
7.   
8.   
9. interface  
10.   uses ShlwApi, Windows, SysUtils;  
11.   
12.   
13. /// <summary>  
14. /// 取绝对路径的函数。需要引用 ShlwApi.pas  
15. /// </summary>  
16. /// <param name="BasePath">参考路径</param>  
17. /// <param name="RelativePath">相对路径</param>  
18. /// <code>  
19. /// S := GetAbsolutePath('C:\Windows\System32', '..\DEMO.TXT')  
20. //  S 将得到 'C:\Windows\DEMO.TXT  
21. /// </code>  
22. function GetAbsolutePathEx(BasePath, RelativePath:string):string;  
23.   
24.   
25. /// <summary>  
26. /// 取得本身程序的路径  
27. /// </summary>  
28. function AppPath : string;  
29. function GetRelativePath(const Path, AFile: string): string;  
30.   
31.   
32. implementation  
33. function GetAbsolutePathEx(BasePath, RelativePath:string):string;  
34. var  
35.    Dest:array [0..MAX_PATH] of char;  
36. begin  
37.    FillChar(Dest,MAX_PATH+1,0);  
38.    PathCombine(Dest,PChar(BasePath), PChar(RelativePath));  
39.    Result:=string(Dest);  
40. end;  
41.   
42.   
43. function GetRelativePath(const Path, AFile: string): string;  
44.   function GetAttr(IsDir: Boolean): DWORD;  
45.   begin  
46.        if IsDir then  
47.          Result := FILE_ATTRIBUTE_DIRECTORY  
48.        else  
49.          Result := FILE_ATTRIBUTE_NORMAL;  
50.   end;  
51. var  
52.    p: array[0..MAX_PATH] of Char;  
53. begin  
54.    PathRelativePathTo(p, PChar(Path), GetAttr(False), PChar(AFile), GetAttr(True));  
55.    Result := StrPas(p);  
56. end;  
57.   
58.   
59.   
60.   
61.   
62.   
63. function AppPath : string;  
64. begin  
65.   Result := extractFilePath(Paramstr(0));  
66. end;  
67. end.  
68.   
69.   
70.   
71.   
72.   
73.   
74. (* 
75. ExpandFileName() 返回文件的全路径(含驱动器、路径) 
76. ExtractFileExt() 从文件名中抽取扩展名 
77. ExtractFileName() 从文件名中抽取不含路径的文件名 
78. ExtractFilePath() 从文件名中抽取路径名 
79. ExtractFileDir() 从文件名中抽取目录名 
80. ExtractFileDrive() 从文件名中抽取驱动器名 
81. ChangeFileExt() 改变文件的扩展名 
82. ExpandUNCFileName() 返回含有网络驱动器的文件全路径 
83. ExtractRelativePath() 从文件名中抽取相对路径信息 
84. ExtractShortPathName() 把文件名转化为DOS的8·3格式 
85. MatchesMask() 检查文件是否与指定的文件名格式匹配 
86. ExtractFilePath(FileName:String) 
87. 该函数返回路径名，其结尾字符总是“\” 
88.  
89.  
90. ExtractFileDir(FileName:String) 
91.  
92.  
93. *)