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

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

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


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