Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как создать папку? [D7, XP]

allucard © (2007-04-13 08:59:00)
Доброго времени суток.

Подскажите как создать папку в Delphi?

спасибо.

DrPass (2007-04-13 12:05:00) [1]

> А это зачем?

Типа контрольный выстрел в голову

{RASkov} (2007-04-13 09:24:00) [2]
> > FormDestroy(Sender);
>
> А это зачем?

А-а-а-а.... понял :) ужос.:(

{RASkov} (2007-04-13 09:22:00) [3]
> FormDestroy(Sender);

А это зачем?

{RASkov} (2007-04-13 09:20:00) [4]
DirectoryExists

Сергей М. (2007-04-13 09:20:00) [5]

> allucard (13.04.07 09:19) [2]
>
>

см. ForceDirectories

allucard (2007-04-13 09:19:00) [6]

> Сергей М. © (13.04.07 09:02) [1]

Ок.

Как сделать чтоб в случае отсутствия папки не возникало остановки программы и вывода сообщения об ошибке, а просто создалась папка?
Этот код вроде работает, но вылазит ошибка.
Как проверить наличие директории?

procedure TForm2.FormDestroy(Sender: TObject);
begin
try
ListBox1.Items.SaveToFile(ExtractFilePath(ParamStr(0))+'data\users.dat');
except
begin
try
Createdir(ExtractFilePath(ParamStr(0))+'data\');
FormDestroy(Sender);
except
showmessage('Невозможно создать папку data!');
end
end
end
end;

Спасиб.

Сергей М. (2007-04-13 09:02:00) [7]
см. CreateDir, CreateDirectory[Ex], ForceDirectories

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »