Интерфейс | Назначение |
Управление вычислительным процессом | |
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 |