دمج ملفات الاوفيس في واجهة ams

[أبوبلقيس]

السلام  عليكم

 

لديك أخي ملف ايكسل , باوربونت ,وورد

تريد دمجه مباشرة في داخل الاوتوبلاي دون مشاكل  أي يظهر داخل الاسطوانة مباشرة

استغل فتح او استدعاء ملف الايكسل في عنصر ويب= موجود في البرنامج==  بالطريقة العادية

 

 

قبل ذلك  ازرع في on startup  لتوفر سلاسة في الدمج داخل الاوتوبلاي

 Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.8","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.RTF.8","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.12","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.DocumentMacroEnabled.12","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.8","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetBinaryMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.8","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.ShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.8","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.12","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.12","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.12","hex(0)",REG_BINARY);

[أبوبلقيس]

الكود التالي لتشغيل ملفات
الاوفيس مباشرة في عنصر الويب دون مراعاة الاصدار

 Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.8","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.RTF.8","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.Document.12","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Word.DocumentMacroEnabled.12","BrowserFlags","2147483684",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.8","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.Sheet.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\Excel.SheetBinaryMacroEnabled.12","BrowserFlags","2147486208",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.8","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.Show.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.ShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.8","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShow.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_LOCAL_MACHINE,"SOFTWARE\\Classes\\PowerPoint.SlideShowMacroEnabled.12","BrowserFlags","2147483808",REG_DWORD);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.12","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.12","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.12","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Excel.Sheet.8","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","Word.Document.8","hex(0)",REG_BINARY);
Registry.SetValue(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}","PowerPoint.Show.8","hex(0)",REG_BINARY);

 بالتوفيق    والسلام عليكم

[حمادة عمر]

جزاك الله خيرا

[أبوبلقيس]

مشكور أخي حمادة عمر على المرور الطيب

 

وجب التذكير  عند الخروج  من التجميعية " إغلاقها "

أن نعيد أو نحذف قيمة الريجستري التي زرعناها

و يتم التراجع في حدث مناسب  كأن يكون

ON SHUTDOWN

أو في حدث الصفحة

في ON CLOSE

 

نزرع الكود :

 Registry.DeleteKey(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}");

بالتوفيق

[أبوبلقيس]

 و هذا توضيح سريع للمقصود على الرابط

http://im35.gulfup.com/iVgNv.swf

تم تعديل مارس 11, 2014 بواسطه أبوبلقيس

[Akram Galal]

مشكور أخي حمادة عمر على المرور الطيب

 

وجب التذكير  عند الخروج  من التجميعية " إغلاقها "

أن نعيد أو نحذف قيمة الريجستري التي زرعناها

و يتم التراجع في حدث مناسب  كأن يكون

ON SHUTDOWN

أو في حدث الصفحة

في ON CLOSE

 

نزرع الكود :

 Registry.DeleteKey(HKEY_CURRENT_USER, "Software\\Microsoft\\Windows\\Shell\\AttachmentExecute\\{0002DF01-0000-0000-C000-000000000046}");

بالتوفيق

أ/ أبو بلقيس

ممكن ارفاق ملف

للتوضيح والإستفادة

جزاك الله خيراً .

[كريم تواتي]

شكرا اخي ابو بلقيس

[hafez81]

حياكم الله