Delphi利用系统环境变量获取常用系统目录


本文整理自网络,侵删。

 

//譬如 %WINDIR% 是表示系统目录的系统变量, 可以这样获取:
var
  s: string;
begin
  s := GetEnvironmentVariable('WINDIR');
  ShowMessage(s); {C:\WINDOWS}
end;
一些系统目录变量列表:

变量描述
%WINDIR%{系统目录 - C:\WINDOWS}
%SYSTEMROOT%{系统目录 - C:\WINDOWS}
%SYSTEMDRIVE%{系统根目录 - C:}
%HOMEDRIVE%{当前用户根目录 - C:}
%USERPROFILE%{当前用户目录 - C:\Documents and Settings\wy}
%HOMEPATH%{当前用户路径 - \Documents and Settings\wy}
%TMP%{当前用户临时文件夹 - C:\DOCUME~1\wy\LOCALS~1\Temp}
%TEMP%{当前用户临时文件夹 - C:\DOCUME~1\wy\LOCALS~1\Temp}
%APPDATA%{当前用户数据文件夹 - C:\Documents and Settings\wy\Application Data}
%PROGRAMFILES%{程序默认安装目录 - C:\Program Files}
%COMMONPROGRAMFILES%{文件通用目录 - C:\Program Files\Common Files}
%USERNAME%{当前用户名 - wy}
%ALLUSERSPROFILE%{所有用户文件目录 - C:\Documents and Settings\All Users}
%OS%{操作系统名 - Windows_NT}
%COMPUTERNAME%{计算机名 - IBM-B63851E95C9}
%NUMBER_OF_PROCESSORS%{处理器个数 - 1}
%PROCESSOR_ARCHITECTURE%{处理器芯片架构 - x86}
%PROCESSOR_LEVEL%{处理器型号 - 6}
%PROCESSOR_REVISION%{处理器修订号 - 0905}
%USERDOMAIN%{包含用户帐号的域 - IBM-B63851E95C9}
%COMSPEC%{C:\WINDOWS\system32\cmd.exe}
%PATHEXT%{执行文件类型 - .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.pyo;.pyc;.py;.pyw}
%PATH%{搜索路径}
另外, 可以利用 .. 到上层目录, 如:

Delphi code
var
  s: string;
begin
  s := GetCurrentDir;
  ShowMessage(s); {C:\Documents and Settings\wy\My Documents\RAD Studio\Projects}

  SetCurrentDir('..');
  s := GetCurrentDir;
  ShowMessage(s); {C:\Documents and Settings\wy\My Documents\RAD Studio}

  SetCurrentDir('..\..');
  s := GetCurrentDir;
  ShowMessage(s); {C:\Documents and Settings\wy}
end;

相关阅读 >>

Delphi 熊猫烧香核心源码

Delphi使用idhttp模拟提交页面方法总结

Delphi 字符串去掉最后一个字符

Delphi中判断tcp端口是否被占用

Delphi enumwindows回调函数获取qq2009窗体句柄

Delphi 添加或解除引号

Delphi 转换swf到exe

Delphi memo 自动滚动到最底下

Delphi 将整数转换为罗马数字

Delphi winsock 获取计算机名和ip

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...