كيفية حفظ ملف عن طريق برنامجي

(مع أني أظن الموضوع مكرر)

لربط برنامجك بأمتداد جديد

أو لفتح برنامجك عن طريق فتح ملف بامتداد معين عليك القيام بخطوتين

اولا : تسجيل الامتداد الجديد في الريجستري

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

uses  shlobj,Registry;

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(Edit1.Text ,Edit2.Text);
end;

الخطوة الثانية: بعد تسجيل الامتداد الجديد في الريجستري سيقوم الملف عند تشغيله بفتح برنامجك وارسال مساره في البارامتر رقم 1 لبرنامجك او يمكنك تغيير موضع ادخال البارامتر لبرنامجك عن طريق تغيير القيمة 1% في الكود السابق

يمكنك أخذ البارامتر عن طريق الكود التالي كمثال

if ParamCount>0 then
Label3.Caption:= ParamStr(1)

في المرفقات مثال دمج فيه الكود كاملا

ext.rar

شكرا لك اخي decompiler

واسف على التكرار