TURBO PASCAL |
Новости
|
Переменные
var DosError : Integer; Значение, запомненное в DosError, представляет собой код ошибки операционной системы: 0 - нет ошибки 2 - файл не найден 3 - путь не найден 5 - доступ запрещен 6 - неверный обработчик 8 - нет памяти 10 - неправильная среда 11 - неправильный формат 18 - больше нет файлов
Процедуры и функции
Процедуры даты и времени Procedure GetDate (var Year, Month, Day, DayOfWeek: Word) Возвращает текущую дату. Procedure GetFTime (var F; var Time: Longlnt) Возвращает дату и время последнего обновления файла. Procedure GetTime(var Hour, Minute, Second, Sec100: Word) Возвращает текущее время. Procedure PackTime(var Pack: DataTime; var Time; Longlnt) Преобразует запись Pack в,4-байтовое упакованное значение даты и времени типа Longlnt, используемое процедурой SetFTime. Поля записи DateTime не проверяются на диапазон. Procedure SetData (Year, Month, Day: Word) Устанавливает текущую дату. Procedure SetFTime (var F; Time; Longlnt) Устанавливает время и дату последнего обновления файла. Procedure SetTime(Hour, Minute, Second, SeclOO: Word) Устанавливает текущее время. Procedure UnpackTime(Time: Longlnt; var Pack: DataTime) Преобразует 4-байтовое упакованное значение даты и времени, возвращаемое GetFTime, FindFirst или FindNext, в распакованную запись типа DateTime. Процедуры обслуживания прерываний Procedure GetIntyec (IntNo: Byte; var Vec: Pointer) Возвращает адрес, хранящийся в указанном векторе прерывания. Procedure Intr (IntNo; Byte; var R: Registers) Выполняет указанное программное прерывание. Procedure MSDos (var R: Registers) Выполняет функцию операционной системы. Procedure SetIntVec (IntNo: byte; P: Pointer) Устанавливает адрес для указанного вектора прерывания. Функции статуса диска Function DiskFree(Disk: Word): LongInt Возвращает число свободных байт на указанном диске; Function DiskSize(Disk: Word): LongInt Возвращает полный объем указанного диска в байтах Процедуры обработки файлов Procedure FindFirst(Path: String; Attr: Byte; var Search: SearchRec) Ищет в указанном или текущем каталоге первый файл, соответствующий заданному имени файла и набору атрибутов. Procedure FindNext (var Search: SearchRec) Возвращает следующий файл, соответствующий имени и атрибутам, указанным в предыдущем вызове FindFrst. Procedure GetFAttrtvar F; var Attr; Byte) Возвращает атрибуты файла. Procedure SetFAttr (var F; Attr: Byte) Устанавливает атрибуты файла. Procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr) Разбивает имя файла Path на 3 составные части (каталог, имя файла, расширение). Функции обработки файла Function FExpand(Name; PathStr) : PathStr Берет имя файла Name и возвращает полное имя файла (устройство, каталог, имя и расширение). Function FSearch(Name: PathStr; DirList; String): PathStr Ищет файл Name в списке DirList каталогов. Элементы списка разделяются точкой с запятой. Процедуры обработки процессов Procedure Exec(Name: PathStr; CmdLine: String) Выполняет заданную программу Name с указанной командной строкой CmdLine. Procedure Keep (Code: Word) Завершает программу и оставляет ее резидентной в памяти. Procedure SwapVectors Обменивает сохраненные векторы прерываний из переменных SaveIntXX c текущими векторами. Функции управления программой Function DosExitCode: Word Возвращает код завершения подпроцесса. Функции управления средой Function EnvCount: Integer Возвращает число переменных окружения, содержащихся в среде ДОС. Function EnvStr (Index: Integer): String Возвращает указанную переменную окружения ДОС. Function GetEnv(EnvVar: String): String Возвращает значение указанной переменной окружения ДОС. Дополнительные процедуры Procedure GetCBreak (var CBreak: Boolean) Возвращает состояние проверки Ctrl-Break. Procedure SetCBreak(CBreak: Boolean) Устанавливает состояние проверки Ctrl-Break в ДОС. Procedure GetVerify(var Verify: Boolean) Возвращает состояние флага верификации в ДОС. Procedure SetVerifу (Verify: Boolean) Устанавливает состояние флага верификации в ДОС. Дополнительные функции Function DosVersion: Word Возвращает номер версии ДОС.
|
(с)Все права защищены По всем интересующим вопросам прошу писать на электронный адрес |