اگر جستجو می کردید زودتر به جواب می رسیدید
در کل ابزارهای بسیار دیگری برای این منظور هستند ولی در صورت استفاده از ابزار TMediaPlayerخود دلفی , این ابزار از mci خود ویندوز برای پخش فایلهای صوتی و تصویری استفاده می کند و درصورتی که Codec خاصی برای فایلهای موردنظر (پسوند dat) را نداشته باشه، TMediaPlayer هم نمی تونه فایلهای مربوط به اون رو پخش کنه.
پس لازم است که در ابتدا تنظیم موردنظر برای پخش فایلهای dat را در رجیستری انجام دهید (چرا که در حقیقت فایلهای پسوند dat نیز از خانواده mpeg هستند) بدین صورت که در صورت عدم وجود معرفی فایل dat به عنوان لیست فایلهای که توسط mci ویندوز پشتیبانی می شوند شما آن را به لیست اضافه کنید.
procedure Add_DAT_File_Support;
type
Tgetver=record
winver,winrev :Dword;
end;
var
Reg : TRegistry;
allver:Tgetver ;
begin
allver.winrev := GetVersion ;
allver.winver := GetVersion ;
allver.winrev := (LOBYTE(LOWORD(allver.winrev)));
allver.winver := (HIBYTE(LOWORD(allver.winver)));
if (allver.winrev=5) and (allver.winver=1) then
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\MCI Extensions',False) then;
if not Reg.ValueExists('dat') then
Reg.WriteString('dat','MPEGVideo')
finally
Reg.Free;
end;
end;
end;
البته اصل برنامه متعلق به آقای علی کشاورز است
http://www.barnamenevis.org/sh...ad.php?t=32296
و بنده تغییر کوچکی جهت انجام آن در محیط ویندوز xp کردم چرا که آدرس آن در ویندوز 98و... متفاوت است ودر صورتی که مایل به انجام این کار در ویندوزهای دیگر نیز باشید با توجه به آدرس رجیستری مطابق سورس فوق آن را اضافه کنید.