چگونه یک فایل خاص رو با برنامه ی خودم باز کنم؟؟؟؟

[nilidelphi]

سلام به همه ی اساتید
من دوتا سوال دارم:
1-چطور میشه یک فایل که خودم ساختم (مثلا : *.bit) رو وقتی کاربر در خوده ویندوز روی فایل دوبار کلیک کنه فایل با نرم افزار من باز بشه؟؟؟

2-و اینکه روی اون فایل خاص که با برنامه ی من باز میشه آیکن برنامه ی من بیوفته

مثلا وقتی روی فایل های doc دوبار کلیک میشه این فایل ها با word باز میشه و همچنین آیکن این فایل ها ورد هست.

اینم بگم که جستجو کردم ولی نتیجه نگرفتم.

پیشاپیش از جوابهاتون ممنون

[Felony]

http://delphi.about.com/cs/adptips2000/a/bltip0700_2.htm
http://delphi.about.com/od/adptips2006/qt/appextension.htm
http://delphi.about.com/cs/adptips2001/a/bltip0801_3.htm

[nilidelphi]

آقا مجتبی بسیار ممنون از لینک هایی که گذاشتی
فقط دوتا سواله دیگه برام پیش اومد :

1-این قسمت آیکن گذاشتنشو متوجه نشدم اگه میشه یه کمکی بکنید

2-حالا فرض کنیم ما یک نوع فایل رو به برنامه مون مقید کردیم تا وقتی کاربر روش دوبار کلیک کرد با برنامه ی من باز بشه
حالا سوال اینجاست که برنامه ی من چطور متوجه بشه فایلی بهش ارسال شده تا باز کنه و درضمن چطور اون فایل رو باز کنه؟
ممنون از جوابت

[Mask]

بگردید نزدیک به 3-4 تا تاپیک برا این قضیه قبلا زده شده.
http://barnamenevis.org/showthread.php?160611-%D8%A8%D8%A7%D8%B2-%D8%B4%D8%AF%D9%86-%D9%85%D8%AA%D9%86-%D8%AA%D9%88%D8%B3%D8%B7-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%85%D9%86!!!
موفق باشید.

[Felony]

1-این قسمت آیکن گذاشتنشو متوجه نشدم اگه میشه یه کمکی بکنید
تو همون HKEY_CLASSES_ROOT به کلید فایل های دیگه که رجیستر شدن نگاه کنید ، کلید DefaultIcon حاوی آدرس فایل آیکن هست که میتونه آدرس یک فایل اجرایی باشه که در این صورت آیکن اون فایل اجرایی در نظر گرفته میشه .


2-حالا فرض کنیم ما یک نوع فایل رو به برنامه مون مقید کردیم تا وقتی کاربر روش دوبار کلیک کرد با برنامه ی من باز بشه
حالا سوال اینجاست که برنامه ی من چطور متوجه بشه فایلی بهش ارسال شده تا باز کنه و درضمن چطور اون فایل رو باز کنه؟
با کلیک روی فایل هایی که برای برنامتون رجیستر شدن نام فایل ها به صورت پارامتر به فایل اجرایی برنامتون ارسال میشه ، پس با ParamCount و ParamStr به صورت زیر میتونید به دست بیاریدشون :

var
I: Integer;
begin
for I := 1 to ParamCount do
ShowMessage(ParamStr(I));
end;