Sayın hocalarım ve arkadaşlarım sizin sayenizde programımı geliştirmeye başladım ama iki format ve dll geçişler sırasında hata alıyorum . yapmak istediğim şey mp3 çalarkene bass.dll devreye girsin bassvideo.dll kodları devre dışı kalsın avi çalışırken tam tersi olsun opendialogda seçerken sorunyok dediklerim oluyor ama listbox.doubleclik te tıklandıgında biri çalışıyor öteki cevap vermiyor tuhaf tuhaf davranıyor projeyi yüklüyorum yardım ederseniz çok sevinirim arkadaşlar
....
Kod: Tümünü seç
https://hotfile.com/dl/179084472/39cd737/video_mp3.rar.html
Sorunlu Kod:
Kod: Tümünü seç
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
edit1.Text:=extractfileext(listbox1.Items.strings[listbox1.itemindex]);
if edit1.text='.mp3' then
begin
Playmp3(listbox1.Count-1);
PlayVideostop(listbox1.Count-1);
end
else
if edit1.text='.avi' then begin
PlayVideo(listbox1.Count-1);
Playstop(listbox1.Count-1);
form2.show;
end
end;
