Функция ForceDirectories – создаёт новый путь каталогов

Функция ForceDirectories в Delphi создаёт новый путь каталогов.

Функция ForceDirectories: Создание нового пути на диске C

begin
  // Пытаемся создать новый вложенный каталог в текущем каталоге
  if CreateDir('C:\NonExistantDir\TestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));

  // Теперь принудительно создаём этот каталог
  if ForceDirectories('C:\NonExistantDir\TestDir')
  then ShowMessage('Добавление нового каталога прошло успешно')
  else ShowMessage('Добавление нового каталога вызвало ошибку : '+
                   IntToStr(GetLastError));
end;