Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
来源:互联网 发布:vnc viewer linux安装 编辑:程序博客网 时间:2024/04/30 06:03
以前也曾经为 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 中相对路径与绝对路径、系统环境变量等相关函数说明
- 绝对路径、相对路径、环境变量
- java中相对路径与绝对路径问题
- unix中绝对路径与相对路径区别
- web项目中相对路径与绝对路径
- h5中相对路径与绝对路径总结
- JSP中相对路径与绝对路径问题
- 相对路径与绝对路径
- 绝对路径与相对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- 绝对路径与相对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- 相对路径与绝对路径
- ubuntu10.04下安装与配置amule,下载电驴资源
- 需找游戏外挂制作
- 归并排序的伪代码
- BlackBerry Widget 开发中级篇
- POJ 1657 Distance on Chessboard(搜索题)
- Delphi 中相对路径与绝对路径、系统环境变量等相关函数说明
- org.logicalcobwebs.proxool.configuration.PropertyConfigurator.java
- 读书笔记之编程之美 - 3.9 重建二叉树
- 结构体和类操作
- oracle 9i r2 锁争用:DDL 和 DML 和 LOCK TABLE tablename IN exclusive mode
- 递归
- 获取Spring容器对象
- SQLSERVER聚集索引与非聚集索引(转)
- 求3D点集中最近点的一个空间二叉树实现