PDA

View Full Version : اجرای فایلهای فلش با یک برنامه شخصی



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

اَرژنگ
جمعه 11 آذر 1384, 11:38 صبح
برداشت شده از : 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
جمعه 11 آذر 1384, 12:33 عصر
آرژنگ عزیز دستت درد نکنه.
عالی بود.ممنونم

babak869
سه شنبه 15 آذر 1384, 18:42 عصر
با تشکر از جواب دوست خوبم
این کد فقط برنامه شخصی رو بصورت اجرا کننده Default ویندوز انجام میده اما من میخوام بدونم چطور میشه با کلیک کردن روی یه فایل فلش اون فایل در برنامه جا بگیره و خاصیت Movie URL کامپوننت فلش آدرس فایلی باشه که کلیک شد مثل تمام برنامه های اجرایی که با اونها سروکار داریم.
ممنون میشم اگه کمک کنید

سید مسعود موحد
شنبه 19 آذر 1384, 11:54 صبح
شما باید نام و آدرس فایل را به عنوان پارامتر در اول برنامه خود بخوانید و سپس آنرا در تکمیل برنامه ارسالی دوست عزیزمون قرار دهید یک نگاهی در رجستری به باز شدن فایلهای گوناگون دیگر از جمله ورد بیندازید

babak869
شنبه 19 آذر 1384, 16:00 عصر
سلام
میشه بیشتر توضیح بدید ممنون میشم

سید مسعود موحد
شنبه 19 آذر 1384, 16:43 عصر
دوست عزیز




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

babak869
شنبه 19 آذر 1384, 20:02 عصر
ممنون از جوابتون
متشکرم