[kaizer131]

немогу найти файл ни в ручную ни через поиск brcc32.exe его нет в системе

Нашел скомпилил, вставил, при компиляции он выдал:


[DCC Warning] Dor.pas(41): W1035 Return value of function 'TForm1.PlaySound' might be undefined

[DCC Error] E1026 File not found: 'sounds.res'

Вот код , как вставлял:

Код:

unit Dor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls, MPlayer,mmsystem;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    MediaPlayer1: TMediaPlayer;
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    function PlaySound(pszSound:PChar; hmod:HINST; fdwSound:Cardinal):boolean;


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
uses name,shcool;
var
A:integer;

{$R *.dfm}
 {$R sounds.res}
function TForm1.PlaySound(pszSound: PChar; hmod: HINST;
  fdwSound: Cardinal): boolean;
begin
PlaySound('Doraemon', 0, SND_RESOURCE or SND_ASYNC);
end;


procedure TForm1.FormActivate(Sender: TObject);
begin

 PlaySound('Doraemon', 0, SND_RESOURCE or SND_ASYNC);
end;

Подскажите, плиз