Рассмотрим создание небольшой программы. Очень простой, вместе с этим, в некоторых случаях, полезной. Например,
каждый день у вас в какой-то рабочей папке, допустим, на "Рабочем столе", скапливаются за весь день файлы. Их очень много, и нужно как-то структурировать по дням.
В этом случае удобно иметь в корневой директории ярлык на программу, кликая на него, вы получаете создание новой папки, имя которой совпадает с сегодняшней датой.
Сразу приступим к созданию такой программы, используя среду программирования Delphi 7. Запускаем среду разработки.
Вот так выглядит эта среда после загрузки. Напоминаю о кнопке сохранения всех файлов проекта (Ctrl + Shift + S) и кнопке
запуска приложения (F9)
Теперь открываем окно менеджера проектов (Project Manager) выбором пункта главного меню "View -> Project Manager" или
нажав сочетание клавиш "Ctrl + Alt + F11"
В открывшемся окне менеджера проектов выбираем модуль "Unit1" нашего проекта "Project1.exe" (как называется проект, с таким именем и
будет создан исполняемый файл программы - файл с расширением "exe"). Правой клавишей мыши жмём по модулю "Unit1" и во всплывающем окне
выбираем пункт меню "Remove From Project" - удалить из проекта. В нашей программе не будет никаких форм, поскольку это лишнее для поставленной задачи!
Подтвердите удаление нажатием на кнопку "Yes"
В окне подтверждения о сохранении изменений в модуле "Unit1.pas" нажмите кнопку "No". Сохранять этот модуль нам ни к чему.
Теперь у Вас останется только окно "Менеджера проектов". Нажмите правой клавишей мыши на проекте "Project1.exe", во всплывающем окне выберите пункт меню
"View Source" (просмотр источника)
Далее вы увидите окно с кодом основного приложения. Начинается кодировка с "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).
В открывшемся окне
выбираем вкладку "Application" (Приложение).
Видим, что в настройках приложения выведена иконка приложения, она в виде стандартного значка Delphi 7, который расположен в файле ресурсов Project1.res.
Поменяем иконку на другую. Для этого жмём кнопку "Load Icon" (загрузить иконку). Выбираем нашу иконку для программы - это файл с картинкой, который имеет расширение
"ico".
Иконка поменялась! В строке "Title" можно написать "Создать папку". Если бы наше приложение запускалось, создавая форму и выход из него осуществлялся
бы через закрытие форму на "кнопку-крестик" в верхнем правом углу, то надпись "Создать папку" отображалась бы в "скрытом" окне
внизу экрана. Но в нашем случае приложение запускается, создаёт папку и тут же закрывается, так что ничего мы не увидим, только создастся папка, как результат работы программы.
Последний шаг - сохраняем проект в рабочей папке нажатием кнопки, указанной на первом рисунке, или сочетанием клавиш Ctrl + Shift + S, или пункт меню File -> Save All.
Выбираем имя проекта. В моём случае это CrDir. Исполняемый файл будет иметь название "CrDir.exe". Запустите приложение, нажав кнопку F9 на клавиатуре и
убедитесь, что папка создана, так же создан файл "CrDir.exe". Исполняемый файл у нас в виде выбранной иконки, и папка успешно создаётся.
Можно сделать так же, чтобы при вызове нашей программы, создавалась каждый раз новая папка, в названии которой было бы значение
текущих даты и времени. Для этого нужно воспользоваться процедурой DateTimeToStr вместо TimeToStr. Попробуйте самостоятельно!
Кстати, ещё полезный совет при написании кода: перед тем как написать имя процедуры, нажмите сочетание клавиш
"Ctrl + Пробел", тогда будет показано окно со словарём процедур, так можно выбрать нужную процедуру во всплывающем окне словаря!
Если у вас есть какие-то вопросы по данному уроку,
смело пишите. Успехов!
Архив со всеми файлами проекта и с иконкой можно скачать здесь f_d7_2.rar.
Вернуться к списку статей, посвящённых программированию в Delphi 7
Вы так же можете подписаться на бесплатную рассылку о новых статьях на сайте.
Если Вам понравилась статья, или вы хотели бы освещения другой, интересующей Вас темы, то напишите нам. Это очень важно!
Наверх
Перейти к списку статей по программированию в среде Delphi 7
Свяжитесь с нами!
 | Тел:  . |
