Процедура SetCurDir

Модуль WinDos

Изменяет текущий каталог на заданный.

Объявление:

Procedure SetCurDir(Dir : PChar)

Режим:

Windows

Замечание:

Если в Dir содержится и буква дисковода, то текущий дисковод тоже будет изменен.

Пример:

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