playsound yardımı
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
playsound yardımı
arkadaşlar form içindeki üç butona ayrı ayrı basınca farklı ses dosyaları çalmak istiyorum.bunun için daha önceki bir forumda örnek verilmiş.
playSound(PChar(dosyaismi),0,SND_SYNC);
deniyorum ama bir türlü yapamadım.Acaba media player eklemem gerekiyormu?
Şu dosyaları açabileceğim kodu verebilecek varmı???
C:\Belgelerim\a.wav
C:\Belgelerim\b.wav
C:\Belgelerim\c.wav
Bu arada mustafa abi daha önceki sorulara vermiş olduğun cevaplar için teşekkür ederim.
playSound(PChar(dosyaismi),0,SND_SYNC);
deniyorum ama bir türlü yapamadım.Acaba media player eklemem gerekiyormu?
Şu dosyaları açabileceğim kodu verebilecek varmı???
C:\Belgelerim\a.wav
C:\Belgelerim\b.wav
C:\Belgelerim\c.wav
Bu arada mustafa abi daha önceki sorulara vermiş olduğun cevaplar için teşekkür ederim.
merhaba
tam olarak şöyle:
//----------------------------------------------------
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('c:\deneme\bjk.wav', 0, SND_FILENAME + SND_ASYNC);
//şampiyon bjk şarkısını wav olarak kaydetmeyi unutmuyoruz.
end;
end.
//----------------------------------------------------
tam olarak şöyle:
//----------------------------------------------------
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('c:\deneme\bjk.wav', 0, SND_FILENAME + SND_ASYNC);
//şampiyon bjk şarkısını wav olarak kaydetmeyi unutmuyoruz.
end;
end.
//----------------------------------------------------
Bilgi çoğaldıkça krallar ölür
olmadı
sağolun arkadaşlar ama olmadı.
Birazdaha bilgi vereyim delphi7 kullanıyorum uses kısmında şunlar var
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, AccessXP, Menus, ActnList, DBActns,
ExtCtrls, ComCtrls, jpeg;
yani dediklerinizi yaptım olmadı.
Birazdaha bilgi vereyim delphi7 kullanıyorum uses kısmında şunlar var
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleServer, AccessXP, Menus, ActnList, DBActns,
ExtCtrls, ComCtrls, jpeg;
yani dediklerinizi yaptım olmadı.
merhaba.
aynısını yapın.
c de yeni bir klasör oluşturun adı deneme olsun
wav ları bu klasöre kopyalayın.
form1 üzerine bir tane buton koyun.
klikleyin ve aynen hiç ama hiç değiştirmeden şunu yazın
......................
uses
MMSystem; // bu iki -procedure TForm1.Button1Click(Sender: TObject);-
satırının üstünde olacak.
.................................
PlaySound('c:\deneme\a.wav', 0, SND_FILENAME + SND_ASYNC);
...........
tam hali şu:
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('c:\deneme\a.wav', 0, SND_FILENAME + SND_ASYNC);
end;
end.
// test edildi. Çalışıyor.
aynısını yapın.
c de yeni bir klasör oluşturun adı deneme olsun
wav ları bu klasöre kopyalayın.
form1 üzerine bir tane buton koyun.
klikleyin ve aynen hiç ama hiç değiştirmeden şunu yazın
......................
uses
MMSystem; // bu iki -procedure TForm1.Button1Click(Sender: TObject);-
satırının üstünde olacak.
.................................
PlaySound('c:\deneme\a.wav', 0, SND_FILENAME + SND_ASYNC);
...........
tam hali şu:
uses
MMSystem;
procedure TForm1.Button1Click(Sender: TObject);
begin
PlaySound('c:\deneme\a.wav', 0, SND_FILENAME + SND_ASYNC);
end;
end.
// test edildi. Çalışıyor.
Bilgi çoğaldıkça krallar ölür