Section courante

A propos

Section administrative du site

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 : Dimanche, le 17 août 2014