Отправляет email-рассылки с помощью сервиса Sendsay

Скорая помощь для вашего компьютера

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 287 RSS
←   Ноябрь 2011   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://yerkhov.narod.ru/
Открыта: 27-07-2011

Автор
Игорь

Статистика

287 подписчиков
0 за неделю
←   Все выпуски   →

Скорая помощь для вашего компьютера. Программирование в среде Delphi 7. Создание директорий


 Компьютерная помощь

   2011-11-22 15:16 

 Выпуск No 14. Скорая помощь для вашего компьютера. Программирование в среде Delphi 7. Создание директорий
 

 

 Доброе время суток!

Для тех, кто недавно подписался, ссылка на прошлый выпуск!

  Рассмотрим создание небольшой программы. Очень простой, вместе с этим, в некоторых случаях, полезной. Например, каждый день у вас в какой-то рабочей папке, допустим, на "Рабочем столе", скапливаются за весь день файлы. Их очень много, и нужно как-то структурировать по дням. В этом случае удобно иметь в корневой директории ярлык на программу, кликая на него, вы получаете создание новой папки, имя которой совпадает с сегодняшней датой.

  Сразу приступим к созданию такой программы, используя среду программирования Delphi 7. Запускаем среду разработки. Вот так выглядит эта среда после загрузки. Напоминаю о кнопке сохранения всех файлов проекта (Ctrl + Shift + S) и кнопке запуска приложения (F9)

Cреда программирования Delphi 7

  Теперь открываем окно менеджера проектов (Project Manager) выбором пункта главного меню "View -> Project Manager" или нажав сочетание клавиш "Ctrl + Alt + F11"

Окно менеджера проектов (Project Manager)

  В открывшемся окне менеджера проектов выбираем модуль "Unit1" нашего проекта "Project1.exe" (как называется проект, с таким именем и будет создан исполняемый файл программы - файл с расширением "exe"). Правой клавишей мыши жмём по модулю "Unit1" и во всплывающем окне выбираем пункт меню "Remove From Project" - удалить из проекта. В нашей программе не будет никаких форм, поскольку это лишнее для поставленной задачи!

Удаление формы и модуля формы Unit1 из проекта

  Подтвердите удаление нажатием на кнопку "Yes"

Подтверждение удаления модуля и формы

  В окне подтверждения о сохранении изменений в модуле "Unit1.pas" нажмите кнопку "No". Сохранять этот модуль нам ни к чему.

Окно подтверждения о сохранении изменений в модуле Unit1.pas

  Теперь у Вас останется только окно "Менеджера проектов". Нажмите правой клавишей мыши на проекте "Project1.exe", во всплывающем окне выберите пункт меню "View Source" (просмотр источника)

Дерево объектов (Object TreeView)

  Далее вы увидите окно с кодом основного приложения. Начинается кодировка с "program Project1;" и т. д.

Окно с кодом основного приложения

  В разделе объявления модулей Uses у нас указан только модуль форм - Forms. Поставим после Forms запятую и напишем ещё один модуль, который нам необходим - это модуль SysUtils. Модули - это файлы с расширением "pas", в которых разработчиками Delphi 7 написан специальный код, реализующий необходимые системные процедуры и функции. В частности, в модуле SysUtils.pas есть нужная для нас процедура создания папки CreateDir.

  Рассмотрим участок кода после директивы компилятора, указывающую на файл ресурсов {$R *.res}. По умолчанию всегда эта директива указывает на ресурс, расположенный в той папке, где лежат файлы нашего проекта. В этом файле ресурсов расположена маленькая картинка - иконка, которая отображается на исполняемом exe-файле. По умолчанию это иконка с изображением символа Delphi 7, но мы её поменяем чуть позже на другую, как на следующем рисунке

Иконка для программы

  После директивы компилятора объявляем раздел переменных Var. Ниже пишем строку Str: String[20]; - это объявление переменной Str, которая имеет строковый тип, то есть строка состоящая из 20 символов, этого нам достаточно. Можно было написать просто string, но в этом случае память расходуется менее благоразумно. Важно: в конце строки кода ставим точку с запятой - знак ";".

  Рассмотрим основной код программы приложения, он записан между словами begin и end. Сразу после вызова процедуры "Application.Initialize;" (процедура инициализации приложения) на следующей строке пишем "Str := DateToStr(Now);". Это присвоение (оператор присвоить ":=") переменной Str значения текущей даты. К слову сказать переменную Str можно написать и STR и str, а так же stR или STr, то есть нет чувствительности к регистру. Для правила, всегда пишите переменные одинаково. Функция Now даёт значение текущей даты в числовом формате - double - число двойной точности, можно пока не заострять на этом внимание. А процедура DateToStr переводит это числовое значение в строковое значение даты согласно текущему формату, установленному в настройках вашей системы Winows, то есть, в результате, в переменной Str будет значение типа "22.11.2011". Это то, чего мы и добивались!

Основной код приложения

  Дальше на новой строке пишем "CreateDir(Str);". Процедура CreateDir создаёт папку с именем, которое указывается в качестве параметра процедуры. А мы в качестве параметра передаём строку Str, в которой у нас записано значение текущей даты. То есть будет создана папка с именем, как текущая дата. По умолчанию папка будет создана в той же директории, где и наш exe-файл.

  Выберем пункт главного меню "Project -> Options" (опции нашего проекта) или сочетание клавиш (Ctrl + Shift + F11).

Project -> Options (опции нашего проекта)

 В открывшемся окне выбираем вкладку "Application" (Приложение).

Project -> Options (опции нашего проекта)

  Видим, что в настройках приложения выведена иконка приложения, она в виде стандартного значка Delphi 7, который расположен в файле ресурсов Project1.res. Поменяем иконку на другую. Для этого жмём кнопку "Load Icon" (загрузить иконку). Выбираем нашу иконку для программы - это файл с картинкой, который имеет расширение "ico".

Загрузка иконки в файл ресурсов

  Иконка поменялась! В строке "Title" можно написать "Создать папку". Если бы наше приложение запускалось, создавая форму и выход из него осуществлялся бы через закрытие форму на "кнопку-крестик" в верхнем правом углу, то надпись "Создать папку" отображалась бы в "скрытом" окне внизу экрана. Но в нашем случае приложение запускается, создаёт папку и тут же закрывается, так что ничего мы не увидим, только создастся папка, как результат работы программы.

  Последний шаг - сохраняем проект в рабочей папке нажатием кнопки, указанной на первом рисунке, или сочетанием клавиш Ctrl + Shift + S, или пункт меню File -> Save All.

Cохраняем проект в рабочей папке

  Выбираем имя проекта. В моём случае это CrDir. Исполняемый файл будет иметь название "CrDir.exe". Запустите приложение, нажав кнопку F9 на клавиатуре и убедитесь, что папка создана, так же создан файл "CrDir.exe". Исполняемый файл у нас в виде выбранной иконки, и папка успешно создаётся.

Папка с файлами проекта

  Можно сделать так же, чтобы при вызове нашей программы, создавалась каждый раз новая папка, в названии которой было бы значение текущих даты и времени. Для этого нужно воспользоваться процедурой DateTimeToStr вместо TimeToStr. Попробуйте самостоятельно! Кстати, ещё полезный совет при написании кода: перед тем как написать имя процедуры, нажмите сочетание клавиш "Ctrl + Пробел", тогда будет показано окно со словарём процедур, так можно выбрать нужную процедуру во всплывающем окне словаря!

  Если у вас есть какие-то вопросы по данному уроку, смело пишите. Успехов!

  Архив со всеми файлами проекта и с иконкой можно скачать внизу статьи на этой странице: http://yerkhov.narod.ru/p9_1.htm

WWW: http://yerkhov.narod.ru/

E-mail: yerkhov@yandex.ru

Copyright (C) 2010-2011 СКОРАЯ ПОМОЩЬ для ВАШЕГО КОМПЬЮТЕРА

Перепечатка любых материалов разрешена только при сохранении авторства и размещении активной ссылки на наш сайт.

Отправляя письма, Вы соглашаетесь с тем, что они могут быть опубликованы в рассылке.

--

 С уважением к Вам, Игорь.

 

 
В избранное