Запомнить меня на этом копьютере
Пример программы для функции EnvCount.
{Envcount.PAS} { Пример программы для функции EnvCount } Uses Dos; Var I : Integer; Begin For I:=1 To EnvCount Do WriteLn(EnvStr(I)); End.
Скачать envcount.pas