zoukankan      html  css  js  c++  java
  • GetEnvironmentVariable 获取常用系统变量(转)

    源:GetEnvironmentVariable 获取常用系统变量

    //譬如 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 Settingswy}
    
      HOMEPATH            {当户路径 - Documents and Settingswy}
    
      TMP                {当户临时文夹 - C:DOCUME~1wyLOCALS~1Temp}
    
      TEMP                 {当户临时文夹 - C:DOCUME~1wyLOCALS~1Temp}
    
      APPDATA             {当户数据文夹 - C:Documents and SettingswyApplication Data}
    
      PROGRAMFILES            {程序默认安装目录 - C:Program Files}
    
      COMMONPROGRAMFILES        {文通目录 - C:Program FilesCommon Files}
    
      USERNAME            {当户名 - wy}
    
      ALLUSERSPROFILE        {所有户文目录 - C:Documents and SettingsAll 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:WINDOWSsystem32cmd.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 SettingswyMy DocumentsRAD StudioProjects}
    
      
    
      SetCurrentDir('..');
    
      s := GetCurrentDir;
    
      ShowMessage(s); {C:Documents and SettingswyMy DocumentsRAD Studio}
    
      
    
      SetCurrentDir('....');
    
      s := GetCurrentDir;
    
      ShowMessage(s); {C:Documents and Settingswy}
    
    end;
  • 相关阅读:
    用chardet判断字符编码的方法
    NLP--edit distance
    nfc是什么?nfc功能是什么?
    【转载】推荐系统的十大挑战
    python--网络爬虫一
    【转载】双调欧几里得距离的算法原理
    Java并发编程:线程池的使用
    Java集合--HashMap源码剖析
    java中集合类详解
    java collection接口源码
  • 原文地址:https://www.cnblogs.com/LittleTiger/p/5110017.html
Copyright © 2011-2022 走看看