dephi获取系统常量


本文整理自网络,侵删。

 dephi获取系统常量
//譬如 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 {搜索路径} 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 opendialog1 打开多个文件

Delphi randomfrom 随机返回字符串数组avalues中的一个元素

Delphi之软件检测更新

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 获取指定进程中的~内存数据

Delphi fmx中获取窗口比例

Delphi system.masks.matchesmask 简单的正则用法

Delphi 判断端口是否被使用

Delphi 如何在桌面添加右键菜单

Delphi 双击tmemo选择光标所在行

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



打赏

取消

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

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

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

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

评论

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