• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

Delphi中用GetEnvironmentVariable获取常用系统变量

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
//譬如 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;

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Delphi汇编学习心得(不得闲) good发布时间:2022-07-18
下一篇:
Delphi-数据加密和解密发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap