السلام عليكم
سؤال كيف أفتح ملف باستخدام برنامجي
بمعنى كيف يمكنني تمرير اسم الملف المراد للبرنامج ليقوم بفتحه فور إقلاعه.
سؤال كيف أفتح ملف باستخدام برنامجي
مغلق
في الفورم الرنيسة وفي الحدث on activ
اكتب
winexec('path',1)
path---> c:autoexec.bat مثال
1 الشكل العادي للفورم
تستطيع بتغيره الى max او min
اطيب التحيات
دائما الى الامام يا شباب
أقصد عندما تنقر الآن على ملف txt فإنه سيفتح بواسطة المفكرة فلو أردت تحويلة إلى أحد برامجي فإنه سينفتح البرنامج بدون فتح الملف لأني لم أعرفه بذلك كيف أقوم بتعريفه ذلك؟
لكي تجعل برنامج يفتح نوع خاص من الملفات لابد من عمل طريقتين لعمل دللك
1- يجب ان تسجل برنامج في الريجيستر لفتح دللك النوع من الملفات
2- يجب ان تجعل برنامج ياخد بارامترت لكي يستطيع فتح الملف
1-
اولا هدا الكود لكي تسجل برنامجك لنوع معين من الملفات
هده الدالة تقوم بتسجيل الملفات التي امتدادها FilePrefix
وتكون بالشكل Menue
ويفتحها برنامج Command
procedure AddFileMenue(FilePrefix, Menue, Command:String);
var
reg:TRegistry;
typ:string;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey('.'+FilePrefix,true);
typ:=reg.ReadString('');
if typ='' then begin
typ:=Fileprefix+'file';
reg.WriteString('',typ);
end;
reg.CloseKey;
reg.OpenKey(typ+'shell'+Menue+'command',true);
reg.WriteString('',command+' "%1"');
reg.CloseKey;
reg.Free;
end;
متلا لو اردنا فتح الملفات التي امتدادها sds باستخدام برنامج المفكرة
notebad
نضع الامر التالي
procedure TForm1.Button1Click(Sender: TObject);
begin
AddFileMenue('sds','Edit with Notepad','C:Windowssystemnotepad.exe');
end;
اما عن - يجب ان تجعل برنامج ياخد بارامترت لكي يستطيع فتح الملف
ففي الرد التاني .
وشكرا
قصدي هو الأخير وشكراً
هدا الكود يجعلك تتعامل مع البارامتر الاتي الى البرنامج
procedure TForm1.FormShow(Sender: TObject);
var
parameter:string;
begin
parameter:=Paramstr(1);
if parameter<>'' then
begin
ShowMessage('Parameter = '+parameter);
end;
if parameter='' then
begin
ShowMessage('No parameter');
end;
end;
لكي تجرب دللك كون مشروع جديد
تم خزنه في دليل folder جديد ,
بعد ان تنفد البرنامج , ادهب الر الدليل الدي كونته ,
ستجد اسم المشروع بامتداد exe
كون اختصار لهShortcut في نفس الدليل , تم خد خصائص هدا الاختصار , وفي خانة Target الهدف , ستجد مسار الملف
متلE:ParamersProject2.exe
في نهاية السطر ضع متلا file
تم اضغط ok
تم نفد الاختصار ,
وشكرا
مشكور يا الغالي وجزاك الله خير الجزاء.
هذا الموضوع مغلق.