AD商业广告自由选择
AD商业广告自由选择

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

正文概述 开源人   2025-03-15 14:02:03   44
以前也曾经为 Delphi 中相对路径与绝对路径之间的转换烦恼过。但时,用得少,也没过多地去注意了。今天要写一个小程序,又遇到了这个问题。就找资料吧,终于找到了最简单,最直接的方式。现在把函数整理如下:Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
//取绝对路径的函数。需要引用 ShlwApi.pasHwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
// BasePath: 是参考路径。RelativePath: 是指相对路径Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
function GetAbsolutePathEx(BasePath, RelativePath:string):string;Hwh1234FCOM专注游戏工具及源码例子分享
varHwh1234FCOM专注游戏工具及源码例子分享
   Dest:array [0..MAX_PATH] of char;Hwh1234FCOM专注游戏工具及源码例子分享
beginHwh1234FCOM专注游戏工具及源码例子分享
   FillChar(Dest,MAX_PATH+1,0);Hwh1234FCOM专注游戏工具及源码例子分享
   PathCombine(Dest,PChar(BasePath), PChar(RelativePath));Hwh1234FCOM专注游戏工具及源码例子分享
   Result:=string(Dest);Hwh1234FCOM专注游戏工具及源码例子分享
end;Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
示范:Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
S := GetAbsolutePath('C:/Windows/System32', '../DEMO.TXT')Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
// S 将得到 'C:/Windows/DEMO.TXTHwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
//绝对路径转换为相对路径的函数 需要引用 ShlwApi.pasHwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
function GetRelativePath(const Path, AFile: string): string;Hwh1234FCOM专注游戏工具及源码例子分享
function GetAttr(IsDir: Boolean): DWORD;Hwh1234FCOM专注游戏工具及源码例子分享
beginHwh1234FCOM专注游戏工具及源码例子分享
     if IsDir thenHwh1234FCOM专注游戏工具及源码例子分享
       Result := FILE_ATTRIBUTE_DIRECTORYHwh1234FCOM专注游戏工具及源码例子分享
     elseHwh1234FCOM专注游戏工具及源码例子分享
       Result := FILE_ATTRIBUTE_NORMAL;Hwh1234FCOM专注游戏工具及源码例子分享
end;Hwh1234FCOM专注游戏工具及源码例子分享
varHwh1234FCOM专注游戏工具及源码例子分享
   p: array[0..MAX_PATH] of Char;Hwh1234FCOM专注游戏工具及源码例子分享
beginHwh1234FCOM专注游戏工具及源码例子分享
   PathRelativePathTo(p, PChar(Path), GetAttr(False), PChar(AFile), GetAttr(True));Hwh1234FCOM专注游戏工具及源码例子分享
   Result := StrPas(p);Hwh1234FCOM专注游戏工具及源码例子分享
end;Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
示范:Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
S := GetAbsolutePath('C:/Windows/System32', 'C:/Windows/System32/DEMO.TXT')Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
// S 将得到 ./DEMO.TXTHwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
系统环境变量Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
得到系统当前所有的环境变量Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
procedure TForm1.Button1Click(Sender: TObject);Hwh1234FCOM专注游戏工具及源码例子分享
varHwh1234FCOM专注游戏工具及源码例子分享
   p, p1 : PChar;Hwh1234FCOM专注游戏工具及源码例子分享
beginHwh1234FCOM专注游戏工具及源码例子分享
   Memo1.Lines.Clear;Hwh1234FCOM专注游戏工具及源码例子分享
   Memo1.WordWrap := false;Hwh1234FCOM专注游戏工具及源码例子分享
   {$IFDEF WIN32}Hwh1234FCOM专注游戏工具及源码例子分享
     p := GetEnvironmentStrings;Hwh1234FCOM专注游戏工具及源码例子分享
     p1 := p;Hwh1234FCOM专注游戏工具及源码例子分享
   {$ELSE}Hwh1234FCOM专注游戏工具及源码例子分享
     p := GetDOSEnvironment;Hwh1234FCOM专注游戏工具及源码例子分享
   {$ENDIF}Hwh1234FCOM专注游戏工具及源码例子分享
   while p^ <> #0 do beginHwh1234FCOM专注游戏工具及源码例子分享
   Memo1.Lines.Add(StrPas(p));Hwh1234FCOM专注游戏工具及源码例子分享
   Inc(p, lstrlen(p) + 1);Hwh1234FCOM专注游戏工具及源码例子分享
end;Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
{$IFDEF WIN32}Hwh1234FCOM专注游戏工具及源码例子分享
   FreeEnvironmentStrings(p1);Hwh1234FCOM专注游戏工具及源码例子分享
{$ENDIF}Hwh1234FCOM专注游戏工具及源码例子分享
end;  Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
取环境变量的值:Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
S := GetEnvironmentVariable(WINDIR);Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
或者使用以下方式将字符中的环境变量自动取值Hwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
varHwh1234FCOM专注游戏工具及源码例子分享
   S: string;Hwh1234FCOM专注游戏工具及源码例子分享
   EnviormentStr: PChar;Hwh1234FCOM专注游戏工具及源码例子分享
beginHwh1234FCOM专注游戏工具及源码例子分享
   S := '%WINDIR%/A.txtHwh1234FCOM专注游戏工具及源码例子分享
Hwh1234FCOM专注游戏工具及源码例子分享
   EnviormentStr := AllocMem(MAX_PATH + 1);Hwh1234FCOM专注游戏工具及源码例子分享
   ExpandEnvironmentStrings(PChar(S), EnviormentStr, MAX_PATH);Hwh1234FCOM专注游戏工具及源码例子分享
   S := EnviormentStr;Hwh1234FCOM专注游戏工具及源码例子分享
   FreeMem(EnviormentStr);Hwh1234FCOM专注游戏工具及源码例子分享
   ShowMessage(S);Hwh1234FCOM专注游戏工具及源码例子分享
end;


声明:本文系互联网搜索而收集整理,不以盈利性为目的,文字、图文资料源于互联网且共享于互联网。
如有侵权,请联系 yao4fvip#qq.com (#改@) 删除。