Оболочка для компакт-диска своими руками
Предыстория.
Дело в том, что иногда ты сносишь свою винду по ряду причин будь то атака вирусов или отсутствие свободного места на жестких(бывают и такие) и после её перестановки ты начинаешь устанавливать необходимый тебе софт. Всё бы нечего, но есть одно "но" - все нужные проги находятся на разных дисках, казалось бы создал диск, записал на него что надо и все, но разве так поступает настоящий Delphi кодер. К тому же у меня, например часто спрашивают мои диски с софтом, а потом задают вопросы: "Что за прога?"; "Для чего она нужна?" и т.д. Так вот ты видел диски от AlexSoft? Мы сделаем такой же. Приступим.
С самого начала.
Для написания программы нам понадобится голова, руки, Delphi (6,7), Блокнот, небольшое знание HTML.
Пишем основу.
Берем стандартную форму, я назвал её MainForm и ставим на неё (в зависимости от ваших дизайнерских предпочтений) компонент WebBrowser с вкладки Internet. В свойстве name напишем HTMLView. А в FormCreate поместим этот код:
path:=extractfilepath(application.ExeName); HTMLView.Navigate(path+'INTRO.html');
Этот код определяет какой html будет загружен первым (при старте программы). Также бросим на форму две кнопки. В свойствах Caption и Name напишем соответственно: Назад, Вперед, BackButton, ForwardButton. И напишем к ним соответственные обработчики событий:
procedure TMainForm.backbuttonClick(Sender: TObject); begin try HTMLView.GoBack; except end; end; procedure TMainForm.forwardbuttonClick(Sender: TObject); begin try HTMLView.GoForward except end; end;
Структура try...except...end направлена на то, чтобы спасти программу от краха в том случае есди пользователь еще никуда не сдвинулся или двигаться уже некуда.
Теперь поговорим о навигации. Здесь все зависит от ваших нужд. Лично я выделил три раздела SYSTEM, NET, DOCS на своем диске и соответственно добавил столько же кнопок на форму с соответствующими Caption'ами и name'ами. И написал такой код:
procedure TMainForm.systemClick(Sender: TObject); begin HTMLView.Navigate(path+'html\system.html'); end; procedure TMainForm.NETClick(Sender: TObject); begin HTMLView.Navigate(path+'html\net.html'); end; procedure TMainForm.DOCSClick(Sender: TObject); begin HTMLView.Navigate(path+'html\DOCS.html'); end;
Как видно невооруженым глазом при нажатии на соответствующие кнопки в HTMLView'е будут отображаться нужные html файлы(конечно назвать их можете по своему усмотрению, главное не запутаться). Можно также создать еще одну кнопку с Caption:='Browse CD' и Name:='BrowseCD'. Предназначение её самое простое : при нажатии на неё в explorer'е откроется наш диск со всеми файлами, чтобы так произошло напишем это:
procedure TMainForm.BrowseCDClick(Sender: TObject);
begin
winexec(PChar('explorer.exe '+extractfiledir(application.ExeName)),1);
end;
Конечно можно использовать функцию CreateProcess, но уж слишком параметров много, а так проще.
Пикантности.
Основа готова, но можно добавить немного живости приложения. Поместим на форму компонент MediaPlayer и обзовем его MediaPlayerMenu, свойство Visible=false. С помощью него будет проигрываться соответствующий звук, когда курсор будет над какой-либо кнопкой. Для этого пишем код:
procedure TMainForm.NETMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin MediaPlayerMenu.FileName:=extractfiledir(application.ExeName)+'\check.wav'; mediaplayermenu.Open; mediaplayermenu.Play; end;
Файл check.wav находится в папке с екзешником (ваш файл может называться по-другому). И всем оставшимся кнопкам ставим в Events->OnMouseMove соответствующую процедуру.
Музыка, музыка, музыка...
Устанавливать программы не всегда весело, поэтому можно сделать так, что во время пока работает наша оболочка будет проигрываться музыка (конечно, твоя любимая). Помещаем на форму компонент MediaPlayer и называем его musicmenu или как-нибудь по-другому. В свойство Visible ставим fasle. И помещаем на форму четыре кнопки с name'ами previousbutton(предыдущая мелодия), nextbutton(следующая), playbutton(играть), pausebutton(пауза). Пишем обработчики:
procedure TMainForm.playbuttonClick(Sender: TObject);
begin
musicmenu.Play;
pausebutton.Enabled:=true;
playbutton.Enabled:=false;
end;
procedure TMainForm.pausebuttonClick(Sender: TObject);
begin
musicmenu.Pause;
playbutton.Enabled:=true;
pausebutton.Enabled:=false;
end;
procedure TMainForm.nextbuttonClick(Sender: TObject);
var i:integer;
begin
s2:=musicmenu.filename;
count:=1;
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
if musicmenu.FileName=path+'music\'+sr.name then
begin
i:=findnext(sr);
musicmenu.FileName:=path+'music\'+sr.Name;
end
else
begin
repeat
if musicmenu.filename=path+'music\'+sr.Name then
begin
i:=findnext(sr);
musicmenu.FileName:=path+'music\'+sr.Name;
end
until findnext(sr)<>0;
end;
end;
if musicmenu.filename=s2 then
begin
findclose(sr);
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
musicmenu.FileName:=path+'music\'+sr.Name;
end;
end;
findclose(sr);
try
musicmenu.Open;
musictime:=musicmenu.length; // об этой переменной чуть позже
musicmenu.Play;
playbutton.Enabled:=false;
pausebutton.Enabled:=true;
except
end;
end;
procedure TMainForm.previousbuttonClick(Sender: TObject);
var ss: string;
i: integer;
begin
if count=1 then
begin
count:=0;
musicmenu.FileName:=s2;
end
else
begin
s1:=musicmenu.FileName;
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
if musicmenu.FileName=path+'music\'+sr.name then
begin
repeat
i:=findnext(sr)
until i<>0;
musicmenu.FileName:=path+'music\'+sr.Name;
end
else
begin
findclose(sr);
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
ss:=sr.Name;
repeat
if musicmenu.filename=path+'music\'+sr.Name then
musicmenu.FileName:=path+'music\'+ss;
ss:=sr.Name;
until findnext(sr)<>0;
end;
end;
end;
end;
try
musicmenu.Open;
musictime:=musicmenu.length;
musicmenu.Play;
playbutton.Enabled:=false;
pausebutton.Enabled:=true;
except
end;
end;
Теперь можно осуществлять действия с воспроизведением музыки. Файлы я брал в формате mp3. Встречающиеся переменные должны распространяться на всю прогу. Но вот беда после окончания одного трека переход на другой не осуществляется. Думаем и пишем вот это как отдельную процедуру(общую):
procedure TMainForm.musicchange;
var i:integer;
begin
s2:=musicmenu.filename;
count:=1;
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
if musicmenu.FileName=path+'music\'+sr.name then
begin
i:=findnext(sr);
musicmenu.FileName:=path+'music\'+sr.Name;
end
else
begin
repeat
if musicmenu.filename=path+'music\'+sr.Name then
begin
i:=findnext(sr);
musicmenu.FileName:=path+'music\'+sr.Name;
end
until findnext(sr)<>0;
end;
end;
if musicmenu.filename=s2 then
begin
findclose(sr);
if findfirst(path+'music\'+'*.mp3',faanyfile,sr)=0 then
begin
musicmenu.FileName:=path+'music\'+sr.Name;
end;
end;
findclose(sr);
try
musicmenu.Open;
musictime:=musicmenu.length;
musicmenu.Play;
playbutton.Enabled:=false;
pausebutton.Enabled:=true;
except
end;
end;
А чтобы музыка играла сразу после начала работы пишем вот это в FormCreate:
findfirst(path+'\music\*.mp3',faanyfile,sr); findnext(sr); findnext(sr); musicmenu.filename:=path+'\music\'+sr.Name; musicmenu.Open; musictime:=musicmenu.length; musicmenu.Play; playbutton.Enabled:=false;
В коде встречается переменная musictime, так вот она нужна для того, чтобы хранить длительность mp3, и если текущая позиция равна концу файла, то осуществляем переход. Для проверки кладем на форму компонент Timer и пишем процедуру:
procedure Tautorunform.Timer1Timer(Sender: TObject); begin if musictime=0 then musicchange else if musicmenu.Position>=musictime then musicchange; end;
Свойство Interval=500.
Во избежании недомолвок напишу и вот это(а то всякое бывает):
private
{ Private declarations }
public
{ Public declarations }
end;
var
MainForm: TMainForm;
count,musictime:integer;
s2,s1,path:string;
sr :tsearchrec;
implementation
{$R *.dfm}
Это до FormCreate.
Создание HTML.
Программа написана, но не хватает html файлов. Так вот краткая структура:
// так надо <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> // начало самой html'ки <head> <title>NET</title> //заголовок // тоже надо <meta http-equiv="Content-Type" content="text/html; charset=windows-1251"> // это если стили использовать <link href="style.css" rel="stylesheet" type="text/css"> </head> <body> // здесь будет размещать сам текст до </body> //название программы <br> //перенос на новую строку // пишите о чем прога <br> <a href="здесь путь до папки">здесь текст обозначающий ссылку</a> // еще текст // текст // и текст </body> </html> //конец
Больше о html на этом сайте (сами посмотрите - куча материала).
Заключение.
Программу можно дополнить по-вашему усмотрению. Конечно, все выглядит блекло, но можно подключить скины, лично я использовал компоненты Dinamic Skin Form причем код даже менять не надо - просто замените нужные компоненты на соответствующие.
Заранее приношу извинения за опечатки и ошибки. Пишите комментарии (почитаю).
Оставить комментарий
Комментарии
