Var DoDefault: Boolean);

procedure FormCreate(Sender: TObject);

procedure N1Click(Sender: TObject);

procedure Image2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, memory_, game15_, tir_,

Unit8, Unit9, Unit10, Unit11;

{$R *.dfm}

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.Image1Click(Sender: TObject);

begin

Image10.Visible:=true;

Image6.Visible:=true;

Image7.Visible:=true;

Image8.Visible:=true;

Image9.Visible:=true;

end;

procedure TForm1.Image4Click(Sender: TObject);

begin

image5.Visible:=true;

image11.Visible:=true;

image12.Visible:=true;

end;

procedure TForm1.Image5Click(Sender: TObject);

begin

form5.Show;

end;

procedure TForm1.Image6Click(Sender: TObject);

begin

form3.Show;

end;

procedure TForm1.Image7Click(Sender: TObject);

begin

form4.Show;

end;

procedure TForm1.Image8Click(Sender: TObject);

begin

form8.Show;

end;

procedure TForm1.Image11Click(Sender: TObject);

begin

form6.show;

end;

procedure TForm1.Image2DblClick(Sender: TObject);

begin

Image5.Visible:=false;

Image6.Visible:=false;

Image7.Visible:=false;

Image8.Visible:=false;

Image9.Visible:=false;

Image10.Visible:=false;

Image11.Visible:=false;

Image12.Visible:=false;

end;

procedure TForm1.Image10Click(Sender: TObject);

begin

form2.Show;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

VV.Show;

end;

procedure TForm1.Image9Click(Sender: TObject);

begin

form9.show;

end;

procedure TForm1.Image12Click(Sender: TObject);

begin

form10.show;

end;

procedure TForm1.Image3Click(Sender: TObject);

begin

form11.show;

end;

procedure TForm1.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;

Var DoDefault: Boolean);

begin

MediaPlayer1.FileName := 'd:\Диплом чё\Новая папка\malenkaya_strana.wav';

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

MediaPlayer1.Open;

MediaPlayer1.Play;

end;

procedure TForm1.N1Click(Sender: TObject);

begin

MediaPlayer1.Stop;

end;

procedure TForm1.Image2Click(Sender: TObject);

begin

end;

end.

unit Unit10;

Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;

type

TForm10 = class(TForm)

ListBox1: TListBox;

WindowsMediaPlayer991: TWindowsMediaPlayer99;

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Barashek.Shon.1.avi ';

end;

1 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.2.avi ';

end;

2 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.3.avi ';

end;

3 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.4.avi ';

end;

4 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.5.avi ';

end;

5 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.6.avi ';

end;

6 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.7.avi ';

end;

7 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim3\Barashek.Shon.8.avi ';

end;

end;

end;

end.

end;

end.

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, XPMan;

type

TForm11 = class(TForm)

Button1: TButton;

Button3: TButton;

XPManifest1: TXPManifest;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form11: TForm11;

implementation

uses memory_, game15_, tir_;

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);

begin

buga.show;

end;

procedure TForm11.Button2Click(Sender: TObject);

begin

pyatna.show;

end;

procedure TForm11.Button3Click(Sender: TObject);

begin

vv.show;

end;

procedure TForm11.FormCreate(Sender: TObject);

begin

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, StdCtrls, ExtCtrls, Menus;

type

TForm2 = class(TForm)

ListBox1: TListBox;

WB1: TWebBrowser;

Splitter1: TSplitter;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

procedure ListBox1Click(Sender: TObject);

procedure N2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WB1.Navigate(GetCurrentDir+'/Files/index1.htm');

end;

1 : begin

WB1.Navigate(GetCurrentDir+'/Files/index2.htm');

end;

2 : begin

WB1.Navigate(GetCurrentDir+'/Files/index3.htm');

end;

3 : begin

WB1.Navigate(GetCurrentDir+'/Files/index4.htm');

end;

4 : begin

WB1.Navigate(GetCurrentDir+'/Files/index5.htm');

end;

5 : begin

WB1.Navigate(GetCurrentDir+'/Files/index6.htm');

end;

6 : begin

WB1.Navigate(GetCurrentDir+'/Files/index7.htm');

end;

7 : begin

WB1.Navigate(GetCurrentDir+'/Files/index8.htm');

end;

8 : begin

WB1.Navigate(GetCurrentDir+'/Files/index9.htm');

end;

9 : begin

WB1.Navigate(GetCurrentDir+'/Files/index10.htm');

end;

10 : begin

WB1.Navigate(GetCurrentDir+'/Files/index11.htm');

end;

11 : begin

WB1.Navigate(GetCurrentDir+'/Files/index12.htm');

end;

12 : begin

WB1.Navigate(GetCurrentDir+'/Files/index13.htm');

end;

13 : begin

WB1.Navigate(GetCurrentDir+'/Files/index14.htm');

end;

14 : begin

WB1.Navigate(GetCurrentDir+'/Files/index15.htm');

end;

15 : begin

WB1.Navigate(GetCurrentDir+'/Files/index16.htm');

end;

16 : begin

WB1.Navigate(GetCurrentDir+'/Files/index17.htm');

end;

17 : begin

WB1.Navigate(GetCurrentDir+'/Files/index18.htm');

end;

18 : begin

WB1.Navigate(GetCurrentDir+'/Files/index19.htm');

end;

19 : begin

WB1.Navigate(GetCurrentDir+'/Files/index20.htm');

end;

20 : begin

WB1.Navigate(GetCurrentDir+'/Files/index21.htm');

end;

end;

end;

procedure TForm2.N2Click(Sender: TObject);

begin

close;

end;

end.

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, OleCtrls, SHDocVw, StdCtrls;

type

TForm3 = class(TForm)

ListBox1: TListBox;

WebBrowser1: TWebBrowser;

Splitter1: TSplitter;

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index22.htm');

end;

1 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index23.htm');

end;

2 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index24.htm');

end;

3 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index25.htm');

end;

4 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index26.htm');

end;

5 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index27.htm');

end;

6 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index28.htm');

end;

7 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index29.htm');

end;

8 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index30.htm');

end;

9 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index31.htm');

end;

10 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index32.htm');

end;

11 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index33.htm');

end;

12 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index34.htm');

end;

13 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index35.htm');

end;

14 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index36.htm');

end;

15 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index37.htm');

end;

16 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index38.htm');

end;

17 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index39.htm');

end;

18 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index40.htm');

end;

19 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index41.htm');

end;

20 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index42.htm');

end;

21 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index43.htm');

end;

22 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index44.htm');

end;

23 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index45.htm');

end;

24 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index46.htm');

end;

25 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index47.htm');

end;

26 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index48.htm');

end;

27 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index49.htm');

end;

28 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index50.htm');

end;

29 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index51.htm');

end;

end;

end;

end.

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OleCtrls, SHDocVw, ExtCtrls, StdCtrls, XPMan;

type

TForm4 = class(TForm)

ListBox1: TListBox;

WebBrowser1: TWebBrowser;

XPManifest1: TXPManifest;

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/index52.htm');

end;

1 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren1.htm');

end;

2 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren2.htm');

end;

3 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren3.htm');

end;

4 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren4.htm');

end;

5 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren5.htm');

end;

6 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren6.htm');

end;

7 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren7.htm');

end;

8 : begin

WebBrowser1.Navigate(GetCurrentDir+'/Files/zren8.htm');

end;

end;

end;

end.

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, MPlayer, StdCtrls, OleCtrls, WMPLib_TLB, XPMan;

type

TForm5 = class(TForm)

WindowsMediaPlayer991: TWindowsMediaPlayer99;

ListBox1: TListBox;

MediaPlayer1: TMediaPlayer;

XPManifest1: TXPManifest;

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Маленькая школа для маленьких.Занятия для детей 2-3 лет..mp4 ';

end;

1 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Группа здоровья. Дети 2,5 - 3 лет.mp4 ';

end;

2 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Занятия для детей от рождения до 3 лет.mp4 ';

end;

3 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Комплексные занятия для детей от 1,5 до 2 лет..mp4 ';

end;

4 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Маленькая школа для маленьких. Дети 2-3-х лет..mp4 ';

end;

5 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Маленькая школа для маленьких.Занятия для детей 2-3 лет..mp4 ';

end;

6 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Пальчиковая гимнастика для детей 1 - 3 лет. Развивающие игры дома..mp4 ';

end;

7 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Поделки для детей от 2-х до 3-х лет. Занимаемся вместе..mp4 ';

end;

8 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Великая книга о Зайке.mp4 ';

end;

9 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Развивающие игры дети от 2 до 5 лет lya lya ru часть1.mp4 ';

end;

10 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Силовые упражнения для детей 2-3 лет.mp4 ';

end;

11 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim\Учим ЦВЕТА и развиваем МОТОРИКУ. Пособие МОНТЕССОРИ своими руками.mp4 ';

end;

end;

end;

end.

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, XPMan, MPlayer, StdCtrls, OleCtrls, WMPLib_TLB;

type

TForm6 = class(TForm)

WindowsMediaPlayer991: TWindowsMediaPlayer99;

ListBox1: TListBox;

MediaPlayer1: TMediaPlayer;

XPManifest1: TXPManifest;

procedure ListBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.ListBox1Click(Sender: TObject);

begin

case ListBox1.ItemIndex of

0 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Занимательные уроки Р. Саакаянца - Природоведение для самых маленьких.mp4 ';

end;

1 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Занимательные уроки Р. Саакаянца - Твои первые животные.mp4 ';

end;

2 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Математика для детей от 4 до 5 лет..mp4 ';

end;

3 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Математика для малышей (от 2-х лет).mp4 ';

end;

4 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Подготовка к школе 5-6 лет.mp4 ';

end;

5 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Развивающие мультфильмы - Азбука для малышей.mp4 ';

end;

6 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Развивающие мультфильмы - Английский язык для малышей.mp4 ';

end;

7 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Развивающие мультфильмы - Геометрия для детей.mp4 ';

end;

8 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Развивающие мультфильмы - Учимся считать.mp4 ';

end;

9 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Развивающие мультфильмы - Учимся читать.mp4 ';

end;

10 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Утренняя зарядка для детей 4-5 лет..mp4 ';

end;

11 : begin

WindowsMediaPlayer991.URL:='C:\Users\Владимир\Desktop\диплом чё\Новая папка\Files\Multim2\Утренняя зарядка для детей 4-5 лет..mp4 ';

end;

end;

end;

end.

end;

end.

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

type

TForm7 = class(TForm)

Label1: TLabel;

Button1: TButton;

Edit1: TEdit;

Timer1: TTimer;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure Label1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form7: TForm7;