Краткая справка по языку программирования 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 |
