Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11656
Последний выпуск: 19.06.2015

Оболочка для компакт-диска своими руками

Автор: Панков Константин (kosfiz)
3 октября 2005 года
kosfiz@rambler.ru

Предыстория.

Дело в том, что иногда ты сносишь свою винду по ряду причин будь то атака вирусов или отсутствие свободного места на жестких(бывают и такие) и после её перестановки ты начинаешь устанавливать необходимый тебе софт. Всё бы нечего, но есть одно "но" - все нужные проги находятся на разных дисках, казалось бы создал диск, записал на него что надо и все, но разве так поступает настоящий 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 причем код даже менять не надо - просто замените нужные компоненты на соответствующие.

Заранее приношу извинения за опечатки и ошибки. Пишите комментарии (почитаю).

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 

Комментарии

1.
Аноним
Мне нравитсяМне не нравится
25 октября 2005, 11:21:17
Нормальная статья...на всех не угодишь - надо читать что хочешь. Когда знаешь всегда просто, когда не знаешь ...
2.
Аноним
Мне нравитсяМне не нравится
11 октября 2005, 15:56:29
Начинающим много непонятного (сам язык объяснений такой), для более опытных слишком просто.
3.
Аноним
Мне нравитсяМне не нравится
6 октября 2005, 01:16:53
Прога рулец, эту статью полезно почитать таким как я (новичкам). Автору статьи большое спасибо.
4.
Аноним
Мне нравитсяМне не нравится
5 октября 2005, 21:01:50
Разместил исходник на сайте. Смотрите в разделе простенькие программы.
5.
Аноним
Мне нравитсяМне не нравится
5 октября 2005, 20:20:52
Пишите письма на kosfiz@rambler.ru. Обещаю разберусь, если что-то не получается, и отвечу.
6.
Аноним
Мне нравитсяМне не нравится
5 октября 2005, 14:22:20
а AutoPlay прога не катит ;)?
7.
Аноним
Мне нравитсяМне не нравится
4 октября 2005, 21:45:31
ШАРА это!!! я не понял!!!Хотелось бы Delphi дапонять???
8.
Аноним
Мне нравитсяМне не нравится
3 октября 2005, 15:30:03
Статья исключительно для тех, кто не знает Delphi. Создать обложку для диска дело не сложное, только кому она нужна. Вот если бы ты описал, для широкого круга, возможность создания списка программ на установку и запуском их в соответствии с очередностью в списке, это было бы уже другое дело. А так не вижу смысла в такой обложке, проще весь софт разложить по папкам на диске и инсталить.
9.
Аноним
Мне нравитсяМне не нравится
3 октября 2005, 14:17:40
2/3 текста к теме непосредственно не относится! Про медиаплеер можно много писать отдельно
10.
Аноним
Мне нравитсяМне не нравится
3 октября 2005, 10:49:00
Kozirno. Ve4erkom, kogda za svoj doma6nij kompik na Delphi sjadu, obazatelno poprobuju!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог