midi müzik

[semenderip]

s.a arkadaşlar benim yapmak istediğim yazdıgım programa bir midi müzik gömmek istiyorum ama program calıştıgında otomatik çalmaya başlayacak ve form kapanana kadar hiç susmayacak sizden eger ilgilene olursa acemi biri oldugum içinn detaylı bir anlatım rica ediyorum varsa benimle örnek dosyaları paylaşırmısınız şimdiden sagolun

[delphi_programmer]

Şu şekilde Midi dosyasını çaldırabilirsin.

uses
MMSystem;

Kod: Tümünü seç

//ÇAL
procedure TForm1.Button1Click;
const
  FileName = 'C:\dosya.mid';
begin
  MCISendString(PChar('play ' + FileName), nil, 0, 0);
end;

// DURDUR
procedure TForm1.Button2Click;
const
  FileName = 'C:\dosya.mid';
begin
  MCISendString(PChar('stop ' + FileName), nil, 0, 0);
end;

Ana formun OnShow olayına TForm1.Button1Click procedürünü çağırın.
OnClose olayına da TForm1.Button2Click procedürünü çağırın.
İsterseniz Onclose'a birşey yazmaya da gerek kalmayabilir.
Zaten form kapanınca müzik kesilecektir.

[semenderip]

tam olarak anlatamadım galiba ben diyorumki forma buton falan istemiyorum botona tıklayıp calışsın demiyorum exe ye gömülü olsun acılınca hiçbirseye tıklamadan otomatik kendi kendine calsın taki kapatana kadar heralde anlatmışımdır

[semenderip]

arkadaşlar ilgilenecek kimse yokmu şu işi bi ögretin bana

[aslangeri]

s.a
arkadaşım kod ortada. armut piş ağzıma düş yok.
butonun clicinde istemiyorsan formun showuna yaz olsun bitsin.

[sabanakman]

viewtopic.php?t=4194

Yukarıdaki Arama bağlantısını kullanırsan muhtemelen çok daha fazlasını bulacaksın.