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