الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فتح ملف بواسطة البرنامج

مغلق
بدأه ماهر صرصور في 11 أغسطس 2007 · 3 رد · 678 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمو الله وبركاته

كيف يمكن عمل التالي برمجيا :

عند النقر على ملف من نوع ما اريد ان يفتح بواسطة برنامجي ؟

- يمكن عمل ذلك يدويا عن طريق تحديد : always use .............

ولكن اريد عمل ذلك عن طريق ال Delphi

وشكرا

لنكن الافضل , هكذا كنا.

#3

السلام عليكم ورحمة الله وبركاته

شكرا لك ...........................

لقد قمت بفعل ذلك:(C++Builder)

void __fastcall TfrmMain::ExtNameBtnClick(TObject *Sender)
{
// Associate an application with a file extension
   AnsiString AppName = ParamStr(0);
   AnsiString ExtName = "RPV";
   TRegistry *reg = new TRegistry(KEY_WRITE);
   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
   {
   delete reg;
   }
  SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NULL, NULL);
  ExtNameBtn->Enabled = false;
}
//---------------------------------------------------------------------------

الكود يعمل جيدا عند النقر على الملف يفتح بالبرنامج المحدد .

ولكن كيف يمكن فعل ذلك مع الملفات المرفقة مع البريد الالكتروني ؟؟؟؟؟؟

ما اعنيه :

عند النقر على ايقونة الملف المرفق مع الرسالة (Outlook) ان يتم فتح الملف

لنكن الافضل , هكذا كنا.

#4

السلام عليكم ورحمة الله وبركاتة

ليتم فتح الملف بواسطة البرنامج - يقوم البرنامج باخذ مسار الملف عن طريق البراميتر (ParamStr(1

فمثلا عن النقر على الملف C:\mydir\myfile.exm البرامتر ParamStr(1) = "C:\mydir\myfile.exm

ولكن عند النقر على ايقونات الملف المرفق myfile.exm في الOutlook البرامتر (ParamStr(1 يحوي C:\Documents !!!!!!!!!

لنكن الافضل , هكذا كنا.

هذا الموضوع مغلق.

مواضيع مشابهة