اجرا و یا باز کردن فایلها با برنامه خودمون. ..

مثل برنامه jetaudio که فایلهای موزیک رو وقتیکه دابل کلیک کنیم با jetaudio باز میشه که در کادر proprties هر فایل هم میشه مشخص کرد که با چه برنامه ای باز بشه
فرض کنید که یه برنامه mp3 player ساختیم و میخوایم که مثلا کل فایلهای mp3 که در سیستم هست با برنامه ما باز بشه.
تیکه اولشو فکر میکنم کار با رجیستری باشه درسته؟؟

درسته كه بايد اول در رجيستري اطلاعات مربوط به اين پسوند مورد نظرت رو وارد كرد.
بعد در برنامت هم بايد پارامتر تعيين كني كه بتونه اسم فايلها رو به صورت پارامتر ورودي بگيره و بعد كار برنامت شروع بشه

سلام

App Controls > acExtAssociation

با این یونیت میتونی اطلاعات اون فایلی که میخواهی به رجیستری اظافه کنی

کد:

---

// add new file to registry for windows reconnize it//
//create by lord_viper//
//dttp team//
unit newfile;
interface
uses
windows,registry,sysutils;
procedure newextfile(extname,extype,iconader:string);
procedure addtomenu(extype,nametomenu:string);
implementation
procedure newextfile(extname,extype,iconader:string);
var
reg:tregistry;
begin
reg:=tregistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(extname,true);
reg.WriteString('',extype);
reg.CloseKey;
reg.OpenKey(extype+'\DefaultIcon',true);
reg.WriteString('',iconader);
reg.CloseKey;
reg.OpenKey(extype+'\shell\open\command',true);
reg.WriteString('','"'+paramstr(0)+'",%1');
reg.CloseKey;
finally
reg.Free;
end;
end;
procedure addtomenu(extype,nametomenu:string);
var
reg:tregistry;
begin
reg:=tregistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(extype+'\shell\'+nametomenu+'\command',true);
reg.WriteString('',paramstr(0)+' %1');
reg.CloseKey;
finally
reg.Free;
end;
end;
end.

---