|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.09.2012, 08:19 | #1 |
Новичок_Delphi7
Пользователь
Регистрация: 22.01.2008
Сообщений: 23
|
Цикл по каталогам Windows, создание каталогов
Подскажите пож-та, мне нужно создать папки в Windows, иногда бывает так что такая папка уже есть, програма выдает ошибку, как этого избежать?
Как в переменных перечислить все нужные мне каталоги, а затем в цикле, проверить каждую есть такая или нет, и если нет, то создать такую именно в нужном мне регистре?! Как воспользоваться массивом из нужных мне переменных?! Результат вывести в Tedit1. Код:
Delphi 10 Lite, OS: windows 7 Pro 32-bit, RU
Последний раз редактировалось Stilet; 02.09.2012 в 10:38. Причина: Убрал теги CODE |
02.09.2012, 09:53 | #2 |
Далеко не
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,512
|
Код:
|
02.09.2012, 13:32 | #3 |
Новичок_Delphi7
Пользователь
Регистрация: 22.01.2008
Сообщений: 23
|
Спасибо, изменил код:
// Create folders to Disk C:\ and D:\ procedure TForm2.Button1Click(Sender: TObject); Const ar:array[0..2] Of String=('C:\TEMP2', 'D:\TEST1', 'D:\TEST2'); var i:integer; begin for I := 0 to 3 do if DirectoryExists(ar[i]) then Showmessage('Директория'+ar[i]+' существует!') Else Try MkDir(ar[i]); Except Showmessage('Директория'+ar[i]+' создана!'); end; при нажатии "Break", выдает ошибку на строке: MkDir(ar[i]);
Delphi 10 Lite, OS: windows 7 Pro 32-bit, RU
Последний раз редактировалось honor; 02.09.2012 в 13:39. Причина: вставка рис |
02.09.2012, 14:01 | #4 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
try ловится отладчиком, при запуске откомпилированной программы этого не будет
И цикл надо от 0 до 2 Последний раз редактировалось eoln; 02.09.2012 в 14:07. |
02.09.2012, 19:28 | #5 |
Далеко не
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,512
|
Код:
|
02.09.2012, 19:32 | #6 |
Новичок_Delphi7
Пользователь
Регистрация: 22.01.2008
Сообщений: 23
|
Спасибо, исправил. Сразу спрошу, не подскажете, как вывести мессадж не в ShowMessage а в трей, в симпатичную подсказочку около часов, ну или не симпатичную?!
Delphi 10 Lite, OS: windows 7 Pro 32-bit, RU
Последний раз редактировалось honor; 02.09.2012 в 20:13. Причина: ошибки |
02.09.2012, 20:50 | #7 |
Далеко не
Участник клуба
Регистрация: 11.08.2011
Сообщений: 1,512
|
Найдите компонент FWTrayIcon там есть функция showBaloonHint вроде так, дак вот она выводит уведомления возле трея)
|
09.09.2012, 22:45 | #8 |
Новичок_Delphi7
Пользователь
Регистрация: 22.01.2008
Сообщений: 23
|
Подскажите, как вывести информацию о созданных каталогах в реквизит на форме?! Какой взять?
Delphi 10 Lite, OS: windows 7 Pro 32-bit, RU
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
FileListBox и движение по каталогам | glazik | Компоненты Delphi | 2 | 23.02.2012 00:43 |
FileListBox и движение по каталогам | glazik | Общие вопросы Delphi | 0 | 22.02.2012 12:08 |
Вопрос по каталогам | agarum | Общие вопросы Delphi | 6 | 10.01.2010 12:46 |
Создание удаление каталогов, копирование файлов. | Alar | Общие вопросы Delphi | 1 | 18.12.2007 18:30 |
Цикл с предусловием. ( цикл while) Цикл с постусловием. (цикл repeat ... until) | Mr.User | Помощь студентам | 9 | 23.11.2007 01:34 |