اجرای فایلهای فلش با یک برنامه شخصی

[babak869]

با سلام
من یه برنامه نوشتم که میتونه فایلهای فلش رو اجرا کنه و یکسری تنظیمات و کنترل روی اون فایلها داره.حالا میخوام وقتی روی یک فایل فلش دوبار کلیک میکنم با برنامه من اجرا بشه نه با فلش پلیر البته قبلش روی فایل مذکور کلیک کردم و با گزینه Open With اونا رو آماده اجرا در برنامه کردم اما پخش نمیشه.یا اینکه یه برنامه مثل Notepad نوشتم اما میخوام زمانی که کاربر یک فایل متنی رو باز میکنه(با دوبار کلیک روی اون)با برنامه من باز بشه درضمن محتویات اون فایل هم نمایش داده بشه.
از دوستان کسی میتونه منو کمک کنه؟
متشکرم

[اَرژنگ]

برداشت شده از : http://delphi.about.com/cs/adptips2001/a/bltip0801_3.htm


uses registry, shlobj;

procedure RegisterFileType(ExtName:String; AppName:String) ;
var
reg:TRegistry;
begin
reg := TRegistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.' + ExtName, True) ;
reg.WriteString('', ExtName + 'file') ;
reg.CloseKey;
reg.CreateKey(ExtName + 'file') ;
reg.OpenKey(ExtName + 'file\DefaultIcon', True) ;
reg.WriteString('', AppName + ',0') ;
reg.CloseKey;
reg.OpenKey(ExtName + 'file\shell\open\command', True) ;
reg.WriteString('',AppName+' "%1"') ;
reg.CloseKey;
finally
reg.Free;
end

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, nil, nil) ;
end;


procedure TForm1.Button1Click(Sender: TObject) ;
begin
RegisterFileType('adp','c:\myadpapp.exe') ;
end;

[babak869]

آرژنگ عزیز دستت درد نکنه.
عالی بود.ممنونم

[babak869]

با تشکر از جواب دوست خوبم
این کد فقط برنامه شخصی رو بصورت اجرا کننده Default ویندوز انجام میده اما من میخوام بدونم چطور میشه با کلیک کردن روی یه فایل فلش اون فایل در برنامه جا بگیره و خاصیت Movie URL کامپوننت فلش آدرس فایلی باشه که کلیک شد مثل تمام برنامه های اجرایی که با اونها سروکار داریم.
ممنون میشم اگه کمک کنید

[سید مسعود موحد]

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

[babak869]

سلام
میشه بیشتر توضیح بدید ممنون میشم

[سید مسعود موحد]

دوست عزیز




procedure TForm1.FormCreate(Sender: TObject);
begin
If ParamCount > 0 Then
ShowFlash(ParamStr(0));
end;

[babak869]

ممنون از جوابتون
متشکرم