Краткая справка по языку программирования Turbo Pascal


         

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




Модуль 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
<

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