Cистемные подпрограммы

function ParamCount: integer;
        Возвращает количество параметров командной строки
function ParamStr(i: integer): string;
        Возвращает i-тый параметр командной строки
function GetDir: string;
        Возвращает текущий каталог
procedure ChDir(s: string);
        Меняет текущий каталог
procedure MkDir(s: string);
        Создает каталог
procedure RmDir(s: string);
        Удаляет каталог
function CreateDir(s: string): boolean;
        Создает каталог. Возвращает True, если каталог успешно создан
function DeleteFile(s: string): boolean;
        Удаляет файл. Если файл не может быть удален, то возвращает False
function GetCurrentDir: string;
        Возвращает текущий каталог
function RemoveDir(s: string): boolean;
        Удаляет каталог. Возвращает True, если каталог успешно удален
function RenameFile(name, newname: string): boolean;
        Переименовывает файл name, давая ему новое имя newname. Возвращает True, если файл успешно переименован
function SetCurrentDir(s: string): boolean;
        Устанавивает текущий каталог. Возвращает True, если каталог успешно удален
function ChangeFileNameExtension(name, newext: string): string;
        Изменяет расширение файла с именем name на newext
function FileExists(name: string): boolean;
        Возвращает True, если файл с именем name существует
procedure Assert(cond: boolean);
        Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
procedure Assert(cond: boolean; message: string);
        Выводит в специальном окне диагностическое сообщение и стек вызовов подпрограмм если условие не выполняется
function DiskFree(diskname: string): int64;
        Возвращает свободное место в байтах на диске с именем diskname
function DiskSize(diskname: string): int64;
        Возвращает размер в байтах на диске с именем diskname
function DiskFree(disk: integer): int64;
        Возвращает свободное место в байтах на диске disk. disk=0 - текущий диск, disk=1 - диск A: , disk=2 - диск B: и т.д.
function DiskSize(disk: integer): int64;
        Возвращает размер в байтах на диске disk. disk=0 - текущий диск, disk=1 - диск A: , disk=2 - диск B: и т.д.
function Milliseconds: integer;
        Возвращает количество миллисекунд с момента начала работы программы
function MillisecondsDelta: integer;
        Возвращает количество миллисекунд с момента последнего вызова Milliseconds или MillisecondsDelta
procedure Halt;
        Завершает работу программы
procedure Halt(exitCode: integer);
        Завершает работу программы, возвращая код ошибки exitCode
procedure Sleep(ms: integer);
        Делает паузу на ms миллисекунд
function GetEXEFileName: string;
        Возващает имя запущенного .exe-файла
function PointerToString(p: pointer): string;
        Преобразует указатель к строковому представлению
procedure Exec(filename: string);
        Запускает программу или документ с именем filename
procedure Exec(filename: string; args: string);
        Запускает программу или документ с именем filename и параметрами командной строки args
procedure Execute(filename: string);
        Запускает программу или документ с именем filename
procedure Execute(filename: string; args: string);
        Запускает программу или документ с именем filename и параметрами командной строки args
function EnumerateFiles(path: string; searchPattern: string := '*.*'): sequence of string;
        Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска
function EnumerateAllFiles(path: string; searchPattern: string := '*.*'): sequence of string;
        Возвращает последовательность имен файлов по заданному пути, соответствующих шаблону поиска, включая подкаталоги
function EnumerateDirectories(path: string): sequence of string;
        Возвращает последовательность имен каталогов по заданному пути
function EnumerateAllDirectories(path: string): sequence of string;
        Возвращает последовательность имен каталогов по заданному пути, включая подкаталоги
procedure New<T>(var p: ^T);
        Выделяет динамическую память размера sizeof(T) и возвращает в переменной p указатель на нее. Тип T должен быть размерным
procedure Dispose<T>(var p: ^T);
        Освобождает динамическую память, на которую указывает p