Работа с папками в Дельфи

[Космос]

Подскажите где найти информацию по этому вопросу. Искал в своих учебниках не нашёл. Только о файлах написанно. Хочу сам написать программу. Вот например программу: при попытке открытия папки открывается окно с просьбой ввести пароль. При правильно введенном пароле производится открытие папки.

[Космос]

Ну что, программисты клуба, никто не может подсказать? Модераторы вы тоже не знаете решения? Очень жаль.........

[MikelNight]

procedure TForm1.Button1Click(Sender: TObject);
var current_path: string;
begin
memo1.Lines.Clear;

GetDir(0, current_path); //получить текущий путь
memo1.Lines.Add(current_path);

ChDir('C:\'); //сменить текущий каталог
GetDir(0, current_path);
memo1.Lines.Add(current_path);

{$I-}
MkDir('NEW_FOLDER'); //создать каталог
{$I+}
If IOResult<>0 then
begin
ShowMessage('Каталог с указанным именем уже существует или нет доступа!');
end;

ChDir('NEW_FOLDER');
GetDir(0, current_path);
memo1.Lines.Add(current_path);

ChDir('.\..\');
GetDir(0, current_path);
memo1.Lines.Add(current_path);

{$i-}
RmDir('C:\NEW_FOLDER\'); //удаление каталога
{$i+}
iF IOResult<>0 then
begin
If DirectoryExists('C:\NEW_FOLDER\') then //проверка на существование каталога
ShowMessage('Невозможно удалить каталог!'+#13+
'Возможные причины:'+#13+
#9+'Каталог содержит файлы!'+#13+
#9+'Некоторая программа (не обязательно наша) работает с этим каталогом!')
//если например мы находимся в этом каталоге ChDir('NEW_FOLDER');
else
ShowMessage('Невозможно удалить каталог!'+#13+
'Возможные причины:'+#13+
#9+'Каталог не найден - не существует!');
end;

GetDir(0, current_path);
memo1.Lines.Add(current_path);

{
C:\Новая папка
C:\
C:\NEW_FOLDER
C:\
C:\

}

end;