本文整理自网络，侵删。
以前也曾经为 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;
相关阅读 >>
Delphi 用updateresource修改exe文件图标(已修正)
更多相关阅读请进入《Delphi》频道 >>
