Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明

以前也曾经为 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,0);

PathCombine(Dest,PChar(BasePath), PChar(RelativePath));

Result:=string(Dest);

end;

示范：

S := GetAbsolutePath('C:/Windows/System32', '../DEMO.TXT')

// S 将得到 'C:/Windows/DEMO.TXT

//绝对路径转换为相对路径的函数 需要引用 ShlwApi.pas

function GetRelativePath(const Path, AFile: string): string;

function GetAttr(IsDir: Boolean): DWORD;

begin

if IsDir then

Result := FILE_ATTRIBUTE_DIRECTORY

else

Result := FILE_ATTRIBUTE_NORMAL;

end;

var

p: array[0..MAX_PATH] of Char;

begin

PathRelativePathTo(p, PChar(Path), GetAttr(False), PChar(AFile), GetAttr(True));

Result := StrPas(p);

end;

示范：

S := GetAbsolutePath('C:/Windows/System32', 'C:/Windows/System32/DEMO.TXT')

// S 将得到 ./DEMO.TXT

系统环境变量

得到系统当前所有的环境变量

procedure TForm1.Button1Click(Sender: TObject);

var

p, p1 : PChar;

begin

Memo1.Lines.Clear;

Memo1.WordWrap := false;

{$IFDEF WIN32}

p := GetEnvironmentStrings;

p1 := p;

{$ELSE}

p := GetDOSEnvironment;

{$ENDIF}

while p^ <> #0 do begin

Memo1.Lines.Add(StrPas(p));

Inc(p, lstrlen(p) + 1);

end;

{$IFDEF WIN32}

FreeEnvironmentStrings(p1);

{$ENDIF}

end;

取环境变量的值：

S := GetEnvironmentVariable(WINDIR);

或者使用以下方式将字符中的环境变量自动取值

var

S: string;

EnviormentStr: PChar;

begin

S := '%WINDIR%/A.txt

EnviormentStr := AllocMem(MAX_PATH + 1);

ExpandEnvironmentStrings(PChar(S), EnviormentStr, MAX_PATH);

S := EnviormentStr;

FreeMem(EnviormentStr);

ShowMessage(S);

end;