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