home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / das_buch / windows / units / getenv.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-06-04  |  621 b   |  25 lines
  1. USES WinCrt, WinDos;
  2.  
  3. VAR
  4.   Dest: pChar;
  5.   Count: WORD;
  6.  
  7. BEGIN
  8.   InactiveTitle := 'Programmausfⁿhrung beendet: %s';
  9.   WriteLn ('Die Einstellung fⁿr Pfad lautet: ');
  10.   WriteLn (GetEnvVar('PATH'));
  11.   WriteLn;
  12.   WriteLn ('Die Einstellung fⁿr den Zugriff auf COMMAND.COM: ');
  13.   WriteLn (GetEnvVar('COMSPEC'));
  14.   WriteLn;
  15.   WriteLn ('Die Einstellung fⁿr PROMPT : ',GetEnvVar('PROMPT'));
  16.   WriteLn;
  17.   WriteLn ('Die Kommandozeilenparameter des Programmes ');
  18.   GetMem (Dest, 80);
  19.   FOR Count := 0 TO GetArgCount DO
  20.   BEGIN
  21.     GetArgStr (Dest, Count, 79);
  22.     WriteLn (Count:2, ' ':5, Dest);
  23.   END;
  24. END.
  25.