Возвращает значение указанной переменной среды

Модуль DOS

Интерфейс	Назначение
Управление вычислительным процессом
Function DosExitCode: word;	Возвращает код завершения подпроцесса
Procedure Exec( Name : PathStr; CmdLine : string); Name - имя файла - строка типа PathStr; CmdLine - командная строка запускаемой программы	Выполняет заданную программу с указанной командной строкой
Procedure Keep(ExitCode : word); ExitCode - код завершения программы	Завершает программу и оставляет ее в памяти (реализует прерывание "завершить и оставить резидентным" - TSR)
Procedure SwapVectors;	Меняет сохраненные векторы прерываний с текущими векторам
Функции работы с окружением
Function EnvCount: integer;	Возвращает число строк, содержащихся в окружении
Function EnvStr(lndex : integer): string; Index - номер строки	Возвращает указанную строку окружения
Function GetEnv(EnvVal: string): string; EnvVal - заданная переменная окружения, результат - ее значение	Возвращает значение указанной переменной среды окружения
Функции управления прерываниями
Procedure GetlntVec(lntNo : byte; var Vector: Pointer); IntNo - номер вектора прерывания; Vector – дальний адрес процедуры обработки	Возвращает FAR-адрес, хранящийся в указанном векторе прерывания
Procedure lntr(lntN: byte; var Regs : Registers); IntN - номер программного прерывания (О...255); Regs - регистры процессора (запись, тип которой определен в модуле DOS)	Выполняет указанное программное прерывание
Procedure MSDos(var Regs : Registers); Regs - регистры процессора (запись, тип которой определен в модуле DOS)	Выполняет функцию прерывания операционной системы
Procedure SetlntVec(lntNo : byte; Vector: Pointer); IntNo - номер вектора прерывания; Vector - длинный адрес процедуры обработки прерывания	Устанавливает адрес процедуры обработки в заданном векторе прерывания
Процедуры определения даты и времени
Procedure GetDate(var Year, Month, Day, DayOfWeek :word); Year - год, Month - месяц, Day - дата, DayOfWeek - день недели	Возвращает текущую дату, установленную в операционной системе
Procedure GetFTime(var F : <файловый тип>; var Time : longint); F - файл (переменная файлового типа, типизированного, нетипизированного или текстового); Time - дата	Возвращает дату и время последней записи в файл
Procedure GetTime(var Hour, Minute, Second, SedOO: word); Hour - часы, Minute - минуты, Second - секунды, SedOO - сотые доли секунды	Возвращает текущее время, установленное в операционной системе
Procedure PackTime(varT: DateTime; var Time: longint); Т- запись типа DateTime, содержащая дату, часы, минуты, секунды и сотые секунды; Time - время в "упакованном" виде	Преобразует запись времени типа DateTime к одной переменной типа longint, используемой процедурой SetFTime
Procedure SetDate(Year, Month, Day : word); Year - год, Month - месяц, Day – число	Устанавливает текущую дату операционной системы
Procedure SetFTime(var F: <файловый тип>; Time: longint); F - переменная файлового типа; Time – время в упакованном виде	Устанавливает в файле указанное время создания
Процедуры установки даты и времени
Procedure SetTime(Hour, Minute, Second, SedOO : word); Hour - часы, Minute - минуты, Second - секунды, Sed 00 - сотые доли секунды	Устанавливает в операционной системе текущее время
Procedure UnpackTime(Time : longint; var DT: DateTime); Time - "упакованное" время; DT – запись "распакованного времени"	Преобразует время из упакованной формы в запись типа DateTime, содержащую дату, часы, минуты и т.д.
Функции статуса диска
Function DiskFree(Drive : byte): longint Drive - номер диска ( 0'- текущий, 1 - А и т.д.) Результат - число свободных байтов (-1, если диск задан неверно)	Возвращает число свободных байтов на заданном диске
Function DiskSize(Drive : byte): longint Drive - номер диска ( 0 - текущий, 1 - А и т.д.) Результат- число байтов на диске (-1, если диск задан неверно)	Возвращает общее число байтов на диске
Процедуры и функции работы с файлами
Function FExpand(Name : PathStr): PathStr Name - имя файла	Получив имя файла, расширяет его до полностью определенного имени (диск, директория и расширение)
Function FSearch(Name : PathStr; OirList: string): PathStr Name - имя файла; DirList - список путей для поиска; результат - найденный путь к файлу	Ищет файл в заданном списке директорий
Function FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr); Path – имя файла с полным путем; Dir – директория; Name – имя файла; Ext - расширение	Разделяет полное имя файла на 3 части (директория, имя файла, расширение)
Procedure FindFirst(Path : String; Attr: word; var F: TSearchRec); Path – путь для поиска с маской; Attr- атрибуты искомых файлов; F- запись типа TsearchRec с результатами поиска	Ищет в заданном каталоге первый файл, соответствующий заданной спецификации
Procedure FindNext(var F : TSearchRec); F – запись типа TsearchRec с результатами поиска	Ищет следующие файлы, удовлетворяющиеспецификации, заданной в процедуре FindFirst
Procedure GetFAttr(var F, var Attr: word); F - переменная файлового типа; Attr - код атрибутов файла	Определяет атрибуты файла
Procedure SetFAttr(var R Attr: word); F - переменная файлового типа; Attr - код атрибутов файла	Устанавливает атрибуты файла
Дополнительные процедуры и функции
Function DosVersion: word; Значение функции – номер версии DOS, при этом старший байт содержит вторую цифру номера	Возвращает номер версии DOS
Procedure SetCBreak(var Break : boolean); Break - если true, прерывание по Ctrl-Break установлено	Возвращает состояние проверки Ctrl-Break в DOS
Procedure SetVerify(var Verify : boolean);	Возвращает состояние флага верификации в DOS.
Procedure SetVerify(Verify : boolean);	Устанавливает состояние флага верификации в DOS
Procedure SetCBreak(var Break : boolean); Break - если true, прерывание по Ctrl-Break установлено	Устанавливает состояние Ctrl-Break в DOS

<

Содержание Назад Вперед