以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时,用得少,也没过多地去注意了。今天要写一个小程序,又遇到了这个问题。就找资料吧,终于找到了最简单,最直接的方式。现在把函数整理如下:1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
//取绝对路径的函数。需要引用 ShlwApi.pas1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
// BasePath: 是参考路径。RelativePath: 是指相对路径1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
function GetAbsolutePathEx(BasePath, RelativePath:string):string;1uj1234FCOM专注游戏工具及源码例子分享
var1uj1234FCOM专注游戏工具及源码例子分享
Dest:array [0..MAX_PATH] of char;1uj1234FCOM专注游戏工具及源码例子分享
begin1uj1234FCOM专注游戏工具及源码例子分享
FillChar(Dest,MAX_PATH+1,0);1uj1234FCOM专注游戏工具及源码例子分享
PathCombine(Dest,PChar(BasePath), PChar(RelativePath));1uj1234FCOM专注游戏工具及源码例子分享
Result:=string(Dest);1uj1234FCOM专注游戏工具及源码例子分享
end;1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
示范:1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
S := GetAbsolutePath('C:/Windows/System32', '../DEMO.TXT')1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
// S 将得到 'C:/Windows/DEMO.TXT1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
//绝对路径转换为相对路径的函数 需要引用 ShlwApi.pas1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
function GetRelativePath(const Path, AFile: string): string;1uj1234FCOM专注游戏工具及源码例子分享
function GetAttr(IsDir: Boolean): DWORD;1uj1234FCOM专注游戏工具及源码例子分享
begin1uj1234FCOM专注游戏工具及源码例子分享
if IsDir then1uj1234FCOM专注游戏工具及源码例子分享
Result := FILE_ATTRIBUTE_DIRECTORY1uj1234FCOM专注游戏工具及源码例子分享
else1uj1234FCOM专注游戏工具及源码例子分享
Result := FILE_ATTRIBUTE_NORMAL;1uj1234FCOM专注游戏工具及源码例子分享
end;1uj1234FCOM专注游戏工具及源码例子分享
var1uj1234FCOM专注游戏工具及源码例子分享
p: array[0..MAX_PATH] of Char;1uj1234FCOM专注游戏工具及源码例子分享
begin1uj1234FCOM专注游戏工具及源码例子分享
PathRelativePathTo(p, PChar(Path), GetAttr(False), PChar(AFile), GetAttr(True));1uj1234FCOM专注游戏工具及源码例子分享
Result := StrPas(p);1uj1234FCOM专注游戏工具及源码例子分享
end;1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
示范:1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
S := GetAbsolutePath('C:/Windows/System32', 'C:/Windows/System32/DEMO.TXT')1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
// S 将得到 ./DEMO.TXT1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
系统环境变量1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
得到系统当前所有的环境变量1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
procedure TForm1.Button1Click(Sender: TObject);1uj1234FCOM专注游戏工具及源码例子分享
var1uj1234FCOM专注游戏工具及源码例子分享
p, p1 : PChar;1uj1234FCOM专注游戏工具及源码例子分享
begin1uj1234FCOM专注游戏工具及源码例子分享
Memo1.Lines.Clear;1uj1234FCOM专注游戏工具及源码例子分享
Memo1.WordWrap := false;1uj1234FCOM专注游戏工具及源码例子分享
{$IFDEF WIN32}1uj1234FCOM专注游戏工具及源码例子分享
p := GetEnvironmentStrings;1uj1234FCOM专注游戏工具及源码例子分享
p1 := p;1uj1234FCOM专注游戏工具及源码例子分享
{$ELSE}1uj1234FCOM专注游戏工具及源码例子分享
p := GetDOSEnvironment;1uj1234FCOM专注游戏工具及源码例子分享
{$ENDIF}1uj1234FCOM专注游戏工具及源码例子分享
while p^ <> #0 do begin1uj1234FCOM专注游戏工具及源码例子分享
Memo1.Lines.Add(StrPas(p));1uj1234FCOM专注游戏工具及源码例子分享
Inc(p, lstrlen(p) + 1);1uj1234FCOM专注游戏工具及源码例子分享
end;1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
{$IFDEF WIN32}1uj1234FCOM专注游戏工具及源码例子分享
FreeEnvironmentStrings(p1);1uj1234FCOM专注游戏工具及源码例子分享
{$ENDIF}1uj1234FCOM专注游戏工具及源码例子分享
end; 1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
取环境变量的值:1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
S := GetEnvironmentVariable(WINDIR);1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
或者使用以下方式将字符中的环境变量自动取值1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
var1uj1234FCOM专注游戏工具及源码例子分享
S: string;1uj1234FCOM专注游戏工具及源码例子分享
EnviormentStr: PChar;1uj1234FCOM专注游戏工具及源码例子分享
begin1uj1234FCOM专注游戏工具及源码例子分享
S := '%WINDIR%/A.txt1uj1234FCOM专注游戏工具及源码例子分享
1uj1234FCOM专注游戏工具及源码例子分享
EnviormentStr := AllocMem(MAX_PATH + 1);1uj1234FCOM专注游戏工具及源码例子分享
ExpandEnvironmentStrings(PChar(S), EnviormentStr, MAX_PATH);1uj1234FCOM专注游戏工具及源码例子分享
S := EnviormentStr;1uj1234FCOM专注游戏工具及源码例子分享
FreeMem(EnviormentStr);1uj1234FCOM专注游戏工具及源码例子分享
ShowMessage(S);1uj1234FCOM专注游戏工具及源码例子分享
end;
声明:本文系互联网搜索而收集整理,不以盈利性为目的,文字、图文资料源于互联网且共享于互联网。
如有侵权,请联系 yao4fvip#qq.com (#改@) 删除。