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



         

Модуль Graph - часть 3


/p>

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


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