Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Упаковка таблиц в BDE
Категория: Базы данных
Категория: Базы данных
Как соединить несколько файлов в один
Категория: Файловая система
Категория: Файловая система
Преобразовать любой тип в строку
Категория: Текст и строки
Категория: Текст и строки
Поиск по EasyTable
Категория: Базы данных
Категория: Базы данных
Получение выделенного текста из компонента TWebBrowser
Категория: Интернет и Сети
Категория: Интернет и Сети
Вычислить логарифм
Категория: Математика
Категория: Математика
Как закачать файл из Интернета
Категория: Интернет и Сети
Категория: Интернет и Сети
Находится ли мышь над формой
Категория: Компоненты
Категория: Компоненты
Найти все компьютеры в сети
Категория: Интернет и Сети
Категория: Интернет и Сети
Загрузка файлов в THTMLViewer и TFrameBrowser
Категория: Интернет и Сети
Категория: Интернет и Сети
Delphi - Справочник: CreateDir
CreateDir
|
function CreateDir ( const Dir : string ) : Boolean; |
Функция (Unit SysUtils)
|
Создаёт директорию
|
Описание:
|
Функция CreateDir создаёт папку в текущей директории. Если папка была создана, то функция вернёт True, если нет, то ошибка может быть получена с помощью функции GetLastError. |
Пример кода: Создание нового каталога
|
begin // Создание нового каталога в текущей директории if CreateDir('TestDir') then ShowMessage('Новый каталог создан') else ShowMessage('Создание нового каталога прошло неудачно и вызвало ошибку : '+ IntToStr(GetLastError)); end;
Результат:
|
Новый каталог создан |