Accueil de Gladir.com Notes légal de Gladir.com Flux RSS des nouvelles du site Gladir.com - Delphi/Kylix/Lazarus - Système d'exploitation - Visualiser les variables d'environnement Section du logiciel DOS «MonsterBook» Inventaire de la bibliothèque de Gladir.com Entrée administrateur

Il peut être très agaçant de ne pas connaitre les détails du système d'exploitation en cours, pour y parvenir le Delphi fournit de nombreuses possibilités. Plutôt que de tenter de deviner la valeur d'une variable bien précis comme :

  1. Program GetEnv1;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils,Windows;
  6.  
  7. Var
  8.  Temp:Array[0..255]of Char;
  9.  
  10. BEGIN
  11.  GetEnvironmentVariable('PROMPT',@Temp,SizeOf(Temp)-1);
  12.  WriteLn(Temp);
  13. END.

On peut par exemple visualiser l'ensemble des variables du système d'exploitation. A l'aide du code source Delphi suivant, vous trouverez la réponse que vous souhaitez :

  1. Program GetEnv2;
  2.  
  3. {$APPTYPE CONSOLE}
  4.  
  5. Uses SysUtils,Windows;
  6.  
  7. Var
  8.  PEnv:PChar;
  9.  
  10. BEGIN
  11.   PEnv := GetEnvironmentStrings;
  12.   While PEnv^ <> #0  do Begin
  13.     WriteLn(StrPas(PEnv));
  14.     Inc(PEnv, StrLen(PEnv) + 1);
  15.   End;
  16.   FreeEnvironmentStrings(PEnv);
  17. END.

on obtiendra par exemple le résultat suivant avec «Windows XP Professionnel» :

ALLUSERSPROFILE = C:\Documents and Settings\All Users
APPDATA = C:\Documents and Settings\gladir\Application Data
CLASSPATH = .;C:\Program Files\Java\jre1.6.0_07\lib\ext\QTJava.zip
COMMONPROGRAMFILES = C:\Program Files\Common Files
COMPUTERNAME = VIN
COMSPEC = C:\WINDOWS\system32\cmd.exe
CONTENT_LENGTH =
CUDA_BIN_PATH = C:\CUDA\bin
CUDA_INC_PATH = C:\CUDA\include
CUDA_LIB_PATH = C:\CUDA\lib
DOCUMENT_ROOT = C:\Program Files\Perl Express\Debug\
FP_NO_HOST_CHECK = NO
GATEWAY_INTERFACE = CGI/Emulation
HOMEDRIVE = C:
HOMEPATH = \Documents and Settings\gladir
HTTP_REFERER = http://www.perl-express.com/
HTTP_USER_AGENT = Mozilla/4.0
LOGONSERVER = \\VIN
NUMBER_OF_PROCESSORS = 1
ORACLE_HOME = C:\DevSuiteHome_1
OS = Windows_NT
PATH = C:\Program Files\Windows Resource Kits\Tools\;C:\Program Files\ActiveState Komodo IDE 4\;C:\Perl\bin;C:\cygwin\bin;C:\DevSuiteHome_1\jdk\jre\bin\classic;C:\DevSuiteHome_1\jdk\jre\bin;C:\DevSuiteHome_1\jdk\jre\bin\client;C:\DevSuiteHome_1\jlib;C:\DevSuiteHome_1\bin;C:\DevSuiteHome_1\jre\1.4.2\bin\client;C:\DevSuiteHome_1\jre\1.4.2\bin;C:\Program Files\PHP\;C:\WINDOWS\system32;C:\WINDOWS;C:\WINDOWS\System32\Wbem;C:\PROGRA~1\ULTRAE~1;C:\Program Files\Borland\StarTeam SDK 9.3\Lib;C:\Program Files\Borland\StarTeam SDK 9.3\Bin;C:\Program Files\MySQL\MySQL Server 5.0\bin;c:\Program Files\Microsoft SQL Server\90\Tools\binn\;C:\CUDA\bin;C:\Program Files\QuickTime\QTSystem\;C:\Program Files\Druide\Antidote
PATHEXT = .COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH
PHPRC = C:\Program Files\PHP\
PROCESSOR_ARCHITECTURE = x86
PROCESSOR_IDENTIFIER = x86 Family 6 Model 8 Stepping 1, AuthenticAMD
PROCESSOR_LEVEL = 6
PROCESSOR_REVISION = 0801
PROGRAMFILES = C:\Program Files
QTJAVA = C:\Program Files\Java\jre1.6.0_07\lib\ext\QTJava.zip
QUERY_STRING =
REMOTE_ADDR = 127.0.0.1
REMOTE_HOST = localhost
REQUEST_METHOD = GET
SCRIPT_NAME = Out11.txt
SERVER_NAME = localhost
SERVER_PORT = 80
SERVER_PROTOCOL = HTTP/1.1
SERVER_SOFTWARE = Perl Express/2.5
SESSIONNAME = Console
SYSTEMDRIVE = C:
SYSTEMROOT = C:\WINDOWS
TEMP = C:\DOCUME~1\gladir\LOCALS~1\Temp
TMP = C:\DOCUME~1\gladir\LOCALS~1\Temp
ULTRAMON_LANGDIR = C:\Program Files\UltraMon\Resources\en
USERDOMAIN = VIN
USERNAME = gladir
USERPROFILE = C:\Documents and Settings\gladir
VS80COMNTOOLS = C:\Program Files\Microsoft Visual Studio 8\Common7\Tools\
WINDIR = C:\WINDOWS
WORKSTATIONID = C:\Program Files\StarTeam 4.0\ConnectionManager.ini

N.B.: Naturellement, le résultat varie en fonction de la machine, du système d'exploitation, des applications, de l'utilisateur et de l'environnement réseau.

Dernière mise à jour: Jeudi, le 29 décembre 2011