[ Passwd @ 01.07.2005. 13:07 ] @
Imam neku knjigu i u njoj pise ovo:

Code:

procedure TForm1BadgeBtnClick(Sender: TObject);
begin
if not PlaySound('badges.wav', 0,SND_FILENAME)
then MessageDlg('Problem playing sound file',mtError,[mbOK], 0)
end;



E sada kakav je to BadgeBtn (recimo da je kao obicni samo mu je ime varijable promjenjeno), al svejedno ovaj kod mi NE radi???
Pa dal postoji tako nekakav slican kod za reprodukciju (.mp3, .wav.......bilo cega od glazbe) ako mu ja dam putanju do fajla???
[ Srki_82 @ 01.07.2005. 15:35 ] @
Dodaj u uses MMSound i radice

BadgeBtn je obican TButton koji se zove BadgeBtn
[ Passwd @ 01.07.2005. 17:25 ] @
Jesam ti kad rekao da si car??
[ Passwd @ 01.07.2005. 17:53 ] @
Sta treba promijenit tako da uz pomoc main menu otvorim .wav datoteku??

Code:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, MMSystem;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenDialog1: TOpenDialog;
    File1: TMenuItem;
    Open1: TMenuItem;
    Exit1: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
    procedure Exit1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
with self.OpenDialog1 do
if execute then
self.Caption:=filename;



end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if not PlaySound('lokacija do fajla',0,SND_FILENAME) //tu mi nesto smrdi :)
then showmessage('Problem je nastao!!');

end;

end.