І. Шапошников. Web-сторінка своїми руками. ? СПб.: БХВ-Петербург, 2008
Ареф'єва О.Н., Кропотіна Н.М. Інтерактивні електронні навчальні засоби у підготовці конкурентоспроможних фахівців.// Професійна освіта, 2003 - № 12.-с.13-14.
Башмаков А.І., Башмаков І.А. Розробка комп'ютерних підручників і навчальних систем.- М.: Інформаційно-видавничий дім «Філін», 2003. - 616с.
Гречихин А.А., Древс Ю.Г. Вузівська навчальна книга: Типологія, стандартизація, комп'ютеризація. М.: Логос, 2006.
Архангельський, А. Я. «Програмування в Delphi 7».- М.: «Біном-Пресс», 2007. - 1152 с. ISBN: 5-9518-0042-0
Гвоздьова В.А., Лаврентьєва І.Ю. «Основи побудови АІС» - М.: ВД «ФОРУМ»: ИНФРА-М, 2007. - 320с. ISBN: 978-5-16-003007-4
Баженова І.Ю. «Delphi 9 Самовчитель програміста» - М.: «КУДИЦ-ОБРАЗ», 2010. - 448с ISBN: 978-5-93378-072-4
Фаронов В. «Програмування БД в Delphi 7» - СПб.: «Пітер», 2009. - 459с.
Лістинг програми
Unit1;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Buttons, MPlayer, StdCtrls, ExtCtrls, ComCtrls, ShellCtrls;
type
TForm1=class (TForm): TListBox;: TMediaPlayer;: TSpeedButton;: TLabel;: TLabel;: TTimer;: TCheckBox;: TShellTreeView; PlayList (Path: String); Play; FormCreate (Sender : TObject); ListBox1Click (Sender: TObject); SpeedButton1Click (Sender: TObject); Timer1Timer (Sender: TObject); ShellTreeView1Change (Sender: TObject; Node: TTreeNode);// Відтворення
{Private declarations}
{Public declarations}
end;
Form1: TForm1;: String;, sec: Integer;// Час відтворення
implementation
{$ R *. dfm}
/ / формуємо список файловTForm1.PlayList (Path: String);
LpBuf: PChar;: String;: TSearchRec;// Структура SearchRec містить
/ / інформацію про фото, що засвідчував
/ / умові пошуку
ListBox1.Clear;
/ / сформувати список файловFindFirst (Path + «*. mp3», faAnyFile, SearchRec)=0 then.Items.Add (SearchRec.Name); (FindNext (SearchRec)=0) do. Items.Add (SearchRec.Name);; ListBox1.Items.Count> 0 Then
ListBox1.ItemIndex:=0;// Встановити покажчик на перший рядок;
/ / відтворити композицію, назва котрой виділено в спіскеTForm1.Play;
Label1.Caption:=ListBox1.Items [ListBox1.ItemIndex];. FileName:=cDir + '' + ListBox1.Items [ListBox1.ItemIndex];. Open; EMCIDeviceError do
begin («Помилка звертання до файлу»);
Exit;;;. Play;:=0;:=0;. Enabled:=True;
SpeedButton1.Caption:=«Стоп»;;
procedure TForm1.FormCreate (Sender: TObject);
begin
{GetDir (0, cDir);// Каталог з програмою
PlayList («»);. ItemIndex:=0;. Caption:=ListBox1.Items [ListBox1.ItemIndex];}
end;
/ / к...
