كيفية إضافة button في ملف تنفيذي
#1
بسم الله الرحمن الرحيم

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

كيفيه إضافه زر button في ملف تنفيذي ؟

هادا مثال علي إضافه زر button في متصفح Internet Explorer

كود :
procedure CreateExplorerButton(Path: string); const Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\'; var Reg: TRegistry; Path1: string; Merge: string; begin Path := 'c:\your_program_path'; Reg := TRegistry.Create; try with Reg do begin RootKey := HKEY_LOCAL_MACHINE; Path1 := 'Software\Microsoft\Internet Explorer\Extensions'; Merge := Path1 + Tagit; OpenKey(Merge, True); WriteString('ButtonText', 'ButtonText'); WriteString('MenuText', 'Tools Menu Item'); WriteString('MenuStatusBar', 'Run Script'); WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); WriteString('Default Visible', 'Yes'); WriteString('Exec', Path + '\ProgramName.exe'); WriteString('HotIcon', ',4'); WriteString('Icon', ',4'); end finally Reg.CloseKey; Reg.Free; end; end;

لكن هادي الطريقه مابتمشي علي جميع البرامج Sad
الرد
#2
وعليكم السلام ورحمة الله وبركاته
أولا: إضافة Button ليس إلى الملف التنفيذي وإنما إلى ToolBar الواجهة

متصفح Microsoft يقبل الإضافات Extensions من خلال إضافة مفاتيح في الـ Registry
كود :
Path1 := 'Software\Microsoft\Internet Explorer\[color=Blue]Extensions[/color]';
وليست كل البرامج تقبل ذلك...

لكن... يمكن فعل ذلك بطريقة أخرى
بإنشاء الزر برمجيا وإلصاقه بالواجهة التي تريد، أنظر المثال:
http://www.delphi4arab.net/forum/showthr...p?tid=3842
الرد
#3
السلام عليكم ورحمه الله وبركاته

http://www.delphi4arab.net/forum/showthr...p?tid=3842
ماهو الا اضافه أبن ألي أب برنامج يحتوي برنامج أخري

اللي بريد أفهمه كيف نضيف في البرنامج نفسه زر button
وليس احتواء برنامج أخر ؟
الرد
#4
إقتباس :وليس احتواء برنامج أخر ؟
نفس المبدأ، ما تسميه "برنامج" ما هو إلا مكوّن (مثل الزر) "نموذج" يملك مقبض (Handle) يمكن تغييره:
كود :
if WinExec('c:\windows\system32\calc.exe', SW_NORMAL) > 31 then Windows.SetParent(Button1.Handle, FindWindow('SciCalc', nil))

php3man ما الذي تنوي فعله Smile؟
الرد
#5
السلام عليكم ورحمه الله وبركاته

مثال يا غالي علي برنامج msn

عند تنصيب برنامج مسنجر بلس يقوم بإضافه أزرار برمجيا وتلقائيا الي الماسنجر مثال

[صورة: lgana-04148e2467.jpg]

متل هادا

او برامج الابتسامات التي يتم تنصيبها الي برامج الشات متل الياهو أو الماسنجر وتكون مدموجه ويه كانها جزء من البرنامج
الرد
#6
معظم البرنامج التي تقبل الإضافات ترفق معها ضمن الوثائق التقنية أو SDK ما يبين كيفية القيام بذلك...
ابحث في الموقع الرسمي للبرنامج...

إذا وجدت الطريقة فأكيد يمكن القيام بها من خلال دلفي أو أي لغة أخرى Smile
الرد
#7
يمكنك التعديل قليلا بإستعمال برنامج PE Explorer (مبرمج بالدلفي)
ومن يتهيب صعود الجبال يعش أبد الدهر بين التلال و الحفر
الرد
#8
السلام عليكم
مشروع كامل مرفق بالشرح & الصور :
Building Outlook plugins
بالتوفيق,,
I'M Fly Like A G6

الرد


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم