Section courante

A propos

Section administrative du site

GETDOSENVIRONMENT

Demande l'environnement DOS
Turbo Pascal pour Windows WINPROCS

Syntaxe

Function GetDOSEnvironment: PChar;

Description

Cette fonction permet de retourner un pointeur long de la chaîne de caractères d'environnement de la tâche courante.

Exemple

L'exemple suivant permet d'afficher toutes les variables d'environnements :

  1. Program GETDOSEnvironmentSamples;
  2.  
  3. Uses Strings,WinCrt,WinPROCS;
  4.  
  5. Var
  6.  PEnv:PChar;
  7.  
  8. BEGIN
  9.  PEnv:=GetDOSEnvironment;
  10.  While PEnv[0]<>#0 do Begin
  11.   Inc(PEnv,StrLen(PEnv)+1);
  12.   WriteLn(StrPas(StrUpper(PEnv)));
  13.  End;
  14. END.

on obtiendra un résultat ressemblant à ceci :

COMSPEC=C:\COMMAND.COM
WINDIR=C:\WIN31FRA

Voir également

Langage de programmation - C pour OS/2 - Support de Windows 3.1 - GetDOSEnvironment

Dernière mise à jour : Dimanche, le 10 décembre 2017