Прога не запускается на другом компе!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Form1.Hide; Form2.Show; Form2.MediaPlayer1.Play
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Close
end;

end.

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, MPlayer, StdCtrls, Buttons, ShellApi;

type
  TForm2 = class(TForm)
    Image1: TImage;
    MediaPlayer1: TMediaPlayer;
    btMusic: TButton;
    btPhoto: TButton;
    btGame: TButton;
    btHide: TButton;
    btClose: TButton;
    btVideo: TButton;
    Panel1: TPanel;
    btRap: TBitBtn;
    btRock: TBitBtn;
    btMelody: TBitBtn;
    btAlternative: TBitBtn;
    Panel2: TPanel;
    btMe: TBitBtn;
    btOther: TBitBtn;
    Panel3: TPanel;
    btVarious: TBitBtn;
    Panel4: TPanel;
    btMy: TBitBtn;
    btLesson: TBitBtn;
    btXilisoft: TBitBtn;
    btPlay: TButton;
    Button2: TButton;
    btAbout: TButton;
    procedure btCloseClick(Sender: TObject);
    procedure btMusicClick(Sender: TObject);
    procedure btPhotoClick(Sender: TObject);
    procedure btGameClick(Sender: TObject);
    procedure btVideoClick(Sender: TObject);
    procedure btRapClick(Sender: TObject);
    procedure btRockClick(Sender: TObject);
    procedure btMelodyClick(Sender: TObject);
    procedure btAlternativeClick(Sender: TObject);
    procedure btHideClick(Sender: TObject);
    procedure btLessonClick(Sender: TObject);
    procedure btMyClick(Sender: TObject);
    procedure btVariousClick(Sender: TObject);
    procedure btXilisoftClick(Sender: TObject);
    procedure btMeClick(Sender: TObject);
    procedure btOtherClick(Sender: TObject);
    procedure btPlayClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure btAboutClick(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;
  h: hwnd;

implementation

uses Unit1, Unit3;

{$R *.DFM}

procedure TForm2.btCloseClick(Sender: TObject);
begin
Form1.Close
end;

procedure TForm2.btMusicClick(Sender: TObject);
begin
Panel1.Visible:=True; Panel2.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False
end;

procedure TForm2.btPhotoClick(Sender: TObject);
begin
Panel2.Visible:=True; Panel1.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False;
end;

procedure TForm2.btGameClick(Sender: TObject);
begin
Panel3.Visible:=True; Panel1.Visible:=False;
Panel2.Visible:=False; Panel4.Visible:=False;
end;

procedure TForm2.btVideoClick(Sender: TObject);
begin
Panel4.Visible:=True; Panel1.Visible:=False;
Panel2.Visible:=False; Panel3.Visible:=False
end;

procedure TForm2.btRapClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Music\Rap',nil,nil,SW_SHOW);
end;

procedure TForm2.btRockClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Music\Rock',nil,nil,SW_SHOW);
end;

procedure TForm2.btMelodyClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Music\Melody',nil,nil,SW_SHOW);
end;

procedure TForm2.btAlternativeClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Music\Alternative',nil,nil,SW_SHOW);
end;

procedure TForm2.btHideClick(Sender: TObject);
begin
Application.Minimize
end;

procedure TForm2.btLessonClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Video\Lesson',nil,nil,SW_SHOW);
end;

procedure TForm2.btMyClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Video\My',nil,nil,SW_SHOW);
end;

procedure TForm2.btVariousClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Programms\Games',nil,nil,SW_SHOW);
end;

procedure TForm2.btXilisoftClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Programms\Xilisoft',nil,nil,SW_SHOW);
end;

procedure TForm2.btMeClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Photo\My',nil,nil,SW_SHOW);
end;

procedure TForm2.btOtherClick(Sender: TObject);
begin
ShellExecute(h,'open','CD7\Photo\Other',nil,nil,SW_SHOW);
end;

procedure TForm2.btPlayClick(Sender: TObject);
begin with MediaPlayer1
do begin Previous; Play
end;
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
MediaPlayer1.Pause
end;

procedure TForm2.btAboutClick(Sender: TObject);
begin
Form3.ShowModal
end;

procedure TForm2.Image1Click(Sender: TObject);
begin
Panel1.Visible:=False; Panel2.Visible:=False;
Panel3.Visible:=False; Panel4.Visible:=False
end;

end.

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;

type
  TForm3 = class(TForm)
    Image1: TImage;
    btClose: TButton;
    procedure btCloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.DFM}

procedure TForm3.btCloseClick(Sender: TObject);
begin
Form3.Close;
end;

end.