Uzantıya Göre Çalışan Program Yardım Lütfen :(

[alyamus]

Sevgi hocalarım ve arkadaşlarım open dialog ile açılan dosyanın çalışmasını şartlamak istiyorum ama beceremedim şim opendialog ile açılan dosya *.mp3 ise form1 devreye girsin open dialog ile açılan dosya *.avi veya *.mp4 ise form iki devreye girsin bunu şartla nasıl yaparım if else le bişeler yapım dedım olmadı yardım ederseniz çok sevinirim ....

[sabanakman]

if SameText(ExtractFileExt(OpenDialog1.FileName),'.avi') then Form1.Show;
{ExtractFilePath(OpenDialog1.FileName)='.avi' ile kıyaslanırsa büyük küçük harf duyarlılığı oluşur. Bu duyarlılık olmadan kıyaslamak için SameText kullanılabilir.}

Düzeltme..:Uzantıyı bulan fonksiyon isminin doğrusu yazıldı.

[SimaWB]

ExtractFilePath değil ExtractFileExt olmalı.

Kod: Tümünü seç

uzanti := UpperCase(ExtractFileExt(OpenDialog1.FileName));
if uzanti = 'AVI' then
begin
//
else if uzanti = 'MP3' then
begin
//
end
...

[sabanakman]

Sabahın köründe afyonumuz daha patlamamış demek ki .

[alyamus]

cok tesekkurederım hocam extractfileext koduyla uzantıyı serbest bıraka bılıyorum ... yardımınız ıcın cok tsekkurler.