Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 10:15 PM
Начало » Статьи » Функции и процедуры Win Api

Работа с директориями (папками) в Дельфи
В этой статье я постараюсь познакомить Вас с некоторыми стандартными функциями для работы с директориями. И еще приведу несколько пользовательских функций и примеры их использования. Также рассмотрен вопрос вызова диалога выбора директории.

Для начала начнем с простой функции для создания новой папки. Общий вид функции такой:

function CreateDir(const Dir: string): Boolean;

То есть если папка успешно создана функция возвращает true. Сразу же простой пример ее использования:

procedure TForm1.Button1Click(Sender: TObject);
begin
if createdir(′c:TestDir′) = true then
showmessage(′Директория успешно создана′)
else
showmessage(′При создании директории произошла ошибка′);
end;

При нажатии на кнопку программа пытается создать папку с именем TestDir на диске C: и если попытка увенчалась успехом, то выводится соответствующее сообщение. Следует отметить, что если вы не указываете имя диска, на котором хотите создавать папку, то функция будет создавать папку в той же директории, где находится сама программа.

Объявления

createdir(edit1.text);

и

createdir(extractfilepath(paramstr(0))+edit1.text);

приведут к одному и тому же результату.

Теперь рассмотрим функцию для удаления папок. Ее объявление выглядит так:

function RemoveDir(const Dir: string): Boolean;

Сразу же хочу предупредить, что данная функция способна удалять только пустые папки, и если там что-нибудь будет, то произойдет ошибка! Но выход есть!!! Здесь нам на помощь придет пользовательская функция с простым названием MyRemoveDir. Вот описание функции:

Function MyRemoveDir(sDir : String) : Boolean;
var
iIndex : Integer;
SearchRec : TSearchRec;
sFileName : String;
begin
Result := False;
sDir := sDir + ′*.*′;
iIndex := FindFirst(sDir, faAnyFile, SearchRec);

while iIndex = 0 do begin
sFileName := ExtractFileDir(sDir)+′′+SearchRec.Name;
if SearchRec.Attr = faDirectory then begin
if (SearchRec.Name <> ′′ ) and
(SearchRec.Name <> ′.′) and
(SearchRec.Name <> ′..′) then
MyRemoveDir(sFileName);
end else begin
if SearchRec.Attr <> faArchive then
FileSetAttr(sFileName, faArchive);
if NOT DeleteFile(sFileName) then
ShowMessage(′Could NOT delete ′ + sFileName);
end;
iIndex := FindNext(SearchRec);
end;

FindClose(SearchRec);

RemoveDir(ExtractFileDir(sDir));
Result := True
end;

Копируете это все в Вашу программу, а затем эту функцию можно вызвать например так:

if NOT MyRemoveDir(′C:TestDir′) then
ShowMessage(′Не могу удалить эту директорию′);

Теперь маленько отстранимся от непосредственной работы с папками и рассмотрим волнующий многих вопрос. Как вызвать диалог выбора папки (как при установке программ)?? ПРОСТО!!!

Подключаем в uses модуль Filectrl.pas (то есть uses FileCtrl;). Теперь ставим на форму еще кнопочку (чтобы не путаться :) и пишем такой код:

procedure TForm1.Button3Click(Sender: TObject);
const
SELDIRHELP = 1000;
var
Dir: string;
begin
Dir := ′C:windows′;
if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
Caption := Dir;
end;

При выборе директории в заголовке формы отобразиться ее название!

Теперь рассмотрим следующую процедуру. К примеру Вам надо создать папку Dir1 по адресу: C:MyDirTestDir1, но при этом папок MyDir и Test на Вашем компьютере не существует. Функция CreateDir здесь не сработает, поэтому воспользуемся процедурой ForceDirectories. Ее общий вид таков:

procedure ForceDirectories(Dir: string);

Пример ее использования (как всегда я поставил на форму новую кнопку, а там написал)

procedure TForm1.Button4Click(Sender: TObject);
var
Dir: string;
begin
Dir := ′C:MyDirTestDir1′;
ForceDirectories(Dir);
end;

Ну и напоследок приведу функцию для проверки: существует ли директория или нет. Ее общий вид такой:

function DirectoryExists(Name: string): Boolean;

Если директория указанная в параметре Name существует - то функция возвратит true.

Надеюсь, что помог Вам описанием данных функций и процедур. Сразу хочется дать совет: почаще заглядывайте в HELP, там много интересной и полезной информации!

Категория: Функции и процедуры Win Api | Добавил: Admin (2006-12-16) | Автор: M@ster
Просмотров: 4196 | Комментарии: 7 | Рейтинг: 4.0 |

Всего комментариев: 6
0
6 Jorrucraddy   [Материал]
Здравствуйте!
Хочу купить шпильки резьбовые . Кто может что-нибуть посоветовать?
Какая фирма делает надежные шпильки?
Цены кажется нормальные, но сомневаюсь, поэтому если покупали дешевле, скажите где. Где можно найти оптимальное соотношение цена-качество?

0
5 ArgurfTub   [Материал]
Компания Мегапром предлагает калиброванный прокат производства Северсталь метиз ОСПАЗ
со склада г.Орел - калиброванный пруток ст.А12 ст.10, 20, 35, стА12, 40Х и др.
В наличии огромный ассортимент калиброванного металла - пруток и шестигранник.
Возможно изготовление под заказ дробных размеров и мерных длинн.
Вы можете купить прокат калиброванный разных диаметров и длинн - круги, мотки, прутки.

0
4 Liernillict   [Материал]
Ищете, где купить канаты, канат геркулес ?
Компания Мегапром - предлагает купить канат тайфун от лучших производителей на территории России.
Отгрузка из наличия со склада г.Орел. ж/д контейнером или автомобильным транспортом через любую транспортную компанию в кратчайшие сроки в любую точку страны.
Возможна резка, отмотка дробного количества в размер. Вся продукция сертифицирована и имеет необходимые маркировки.

0
3 Liernillict   [Материал]
Ищете, где купить канаты, корабельный канат ?
Компания Мегапром - предлагает купить канат г. Орел от лучших производителей на территории России.
Отгрузка из наличия со склада г.Орел. ж/д контейнером или автомобильным транспортом через любую транспортную компанию в кратчайшие сроки в любую точку страны.
Возможна резка, отмотка дробного количества в размер. Вся продукция сертифицирована и имеет необходимые маркировки.

0
2 Супер Админ   [Материал]
"Cellaccerne" я Админ а что случилось и что те надо? я люблю тебя ))

0
1 любовник   [Материал]
я люблю вас ребята

Имя *:
Email *:
Код *: