我在看个播放器的例子
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  MPlayer, ExtCtrls, ComCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    TrackBar1: TTrackBar;
    Timer1: TTimer;
    Panel1: TPanel;
    MediaPlayer1: TMediaPlayer;
    open1: TMenuItem;
    close1: TMenuItem;
    about1: TMenuItem;
    exit1: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure about1Click(Sender: TObject);
    procedure open1Click(Sender: TObject);
    procedure exit1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure close1Click(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    opened:boolean;
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.DFM}procedure TForm1.about1Click(Sender: TObject);
begin
aboutbox.show;
end;procedure TForm1.open1Click(Sender: TObject);
begin
if opendialog1.Execute then
begin
  mediaplayer1.filename:=opendialog1.FileName;
  mediaplayer1.open;
  mediaplayer1.display:=panel1;
  opened:=true;
  trackbar1.max:=mediaplayer1.length;
end;end;procedure TForm1.exit1Click(Sender: TObject);
begin
mediaplayer1.Close;
close;end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
if opened then
trackbar1.position:=mediaplayer1.position;end;procedure TForm1.close1Click(Sender: TObject);
begin
mediaplayer1.Close;
opened:=false;end;procedure TForm1.TrackBar1Change(Sender: TObject);
begin
if opened then
   mediaplayer1.Position:=trackbar1.Position;
   
end;procedure TForm1.FormCreate(Sender: TObject);
begin
opened:=false;end;end.用DELPHI7.0编译出错,
提示为[Fatal Error] Unit1.pas(40): File not found: 'unit2.dcu'请问如何解决?

解决方案 »

  1.   

    再问一下如何添加Unit2.pas单元,Unit2.pas单元在此做何用?
      

  2.   

    你把unit2.pas放到和例子所在的目录就可以了。
    至于何用,我估计是用于显示一个关于窗体,即调用aboutbox.show;
    如果没有找到unit2,你就把uses Unit2和aboutbox.show两句删掉,应该可以运行吧
      

  3.   

    还是不行,program如下:program Project1;uses
      Forms,
      Unit2 in 'Unit2.pas' {Form1};{$R *.res}begin
      Application.Initialize;
      Application.CreateForm(TForm1, Form1);
      Application.Run;
    end.