Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Функция GetCurDir.

  • Объявление:

    Function GetCurDir(Dir : PChar; Drive : Byte) : PChar;

  • Описание:

    Возвращает текущий каталог на заданном диске.

  • Замечания:

    Параметр Drive:
    0 - Текущий диск
    1 - Диск A
    2 - Диск B
    3 - Диск C
    И так далее...

  • Пример:

    { Пример программы для функции GetCurDir }
    Uses WinDos;
    Const CDrive : Byte = 3;
    Var CurDir : PChar;
    Begin
    GetMem(CurDir, 80);
    GetCurDir(CurDir, CDrive);
    WriteLn('Текущая директория на диске C - ', CurDir);
    End.



Вернуться к оглавлению справочника