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

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

正文概述 开源人   2025-03-15 14:02:03  
以前也曾经为 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 (#改@) 删除。