Add Item To Explorer Context Menu

هل تقصد هذا !

http://www.orwah.net/modules/newbb/viewtop...6#forumpost1996

في المجمل نعم هذا هو ما اريده لكن المثال هناك لم يعمل معي ثم ماريده هو شي اخر اريد التحكم في الامر الموجود داخل العنصر الذي اضفته

http://msdn2.microsoft.com/en-us/library/aa753589.aspx

اليس لهذا علاقة بالموضوع ؟؟

جميل انه شغل رجستري ولكن ماذا عن اضافة ايقونة وبجانبها كتابة كما يفعل صديقنا Winrar

لا بد ان هذا المقال مفيد لمن يعرف السي++

http://shellrevealed.com/blogs/shellblog/a...dard-menus.aspx

وهذه ايضا بل انه اعجبني اكثر من الاول

http://www.nanoant.com/programming/themed-...sta-xp-solution

ساواصل البحث وادلكم على النتائج

غريب كنت اظن هذا الموضوع مثير لكثير من الاعضاء لكن يبدو تني المبرمج المبتدئ الوحيد :blink: :blink:

عموما

 
uses
Registry;
procedure TForm1.Button1Click(Sender: TObject);
var
R : TRegIniFile;
begin
R := TRegIniFile.Create('');
with R do begin
RootKey := HKEY_CLASSES_ROOT;
WriteString('.myext','ooo','MyExt');
WriteString('MyExt','','Some description of MyExt files');
WriteString('MyExt\DefaultIcon','','Check.bmp,0');
WriteString('MyExt\Shell','','This_Is_Our_Default_Action');
WriteString('MyExt\Shell\First_Action','','This is our first action');
WriteString('MyExt\Shell\First_Action\command','',
'C:\MyApp.Exe /LotsOfParamaters %1');
WriteString('MyExt\Shell\This_Is_Our_Default_Action','',
'This is our default action');
WriteString('MyExt\Shell\This_Is_Our_Default_Action\command',
'','C:\MyApp.Exe %1');
WriteString('MyExt\Shell\Second_Action','','This is our second action');
WriteString('MyExt\Shell\Second_Action\command',
'','C:\MyApp.Exe /TonsOfParameters %1');
Free;
end;
end;

//*********************************//

هناك موضوع جميل جدا في كتاب Borland Delphi 5 Developer's Guide

الجزء الثاني في الباب رقم 24 الباب يتحدث عن Shell Extension ومن المفيد جدا ان

تقرا

نسيت المرفقات

UnitContMenu.rar

UnitContMenu.rar

UnitContMenu.rar

UnitContMenu.rar

كان من الممكن تطوير كود الوحدة

البرمجية بحيث يتفاعل مع اكثر من ملف وذلك في المنهاج

function TContextMenu.SEIInitialize
CreateListFile(strName: TFileNameFull);

وذلك كالاتي

اضف الى خواص الصنف TContextMenu

FListFile: array of TFileNameFull

procedure CreateListFile(strName: TFileNameFull);

وبعد ذلك

في المنهاج SEIInitialize قم بتعديل المنهاج كالتالي

[code]function TContextMenu.SEIInitialize(pidlFolder: PItemIDList;
							   lpdobj: IDataObject; hKeyProgID: HKEY): HResult;
var
  StgMedium: TStgMedium;
  FormatEtc: TFormatEtc;
  CountFiles: Integer;
  IndexFile: Integer;
begin
  if (lpdobj = nil) then begin Result := E_INVALIDARG; Exit; end;
  with FormatEtc do begin
	cfFormat:= CF_HDROP;
	ptd:= nil;
	dwAspect:= DVASPECT_CONTENT;
	lindex:= -1;
	tymed:= TYMED_HGLOBAL;
  end;
  Result := lpdobj.GetData(FormatEtc, StgMedium);
  if Failed(Result) then Exit;

  FFileName[0]:= #0;

  CountFiles:= DragQueryFile(StgMedium.hGlobal, $FFFFFFFF, nil, 0);

لاحظ اننا هنا اخذنا عدد الملفات التي ظللناها قبل الضغط علة الزر الا

اخيرا انتهى الموضوع بعد كم اسبوع من الترقيع والبحث عن الاكواد الجاهزة والبحث في الكتب اظن اني ذكرت المراجع في البداية

ولكن اهم شي هو كتاب Borland Delphi 5 Developer's وجدت فيه الموضوع بالتفصيل اهم شي هو البحث والحب وفقط البحث

والصبر ..والنت اليوم اتعبني لذلك مشاركاتي مشوهة اليوم

أظن أنني وصلت متأخرا :D

لكن بما أنك تريد عمل نفس ما يقوم به winrar

فلو كنت مكانك لعملت التالي:

1/حفظ نسخة عن الـregistry قبل تنصيب winrar

2/حفظ نسخة عن الـregistry بعد تنصيب winrar

3/ عمل مقارنة بين الملفين (الأمر fc يفي بالغرض)

أتمنى أن تفيدك هذه الفكرة

:rolleyes:

اخي الكريم حتى لو كنت فعلت قلته كيف كنت سانفذ هذا برمجيا ؟ عموما الاجابة في كتاب Delphi Dev Guid5 volume 2

شكرا عزيزي ولكم ماهو الFC

مازلت اجمع الوصلات حول الموضوع لعله يشكل مرجعا متكاملا لمن يبحث عن هذا السؤال فيما بعد..

http://msdn2.microsoft.com/en-us/library/b...881(VS.85).aspx

نسيت ان اذكر انه لابد من تسجيل المكتبة الديناميكية

من قائمة ابدا اختر Run ثم :

REGSVR32.EXE /s C:\c\UnitContMenu\UnitContMenu.dll

طبعا ضع المسار الخاص ببرنامجك

شغل البرنامج الموجود في المرفقات وضعه في المسار الخاص والموجود في المكتبه الديناميكية

كان المفرض ان ااجعل كود البرنامج بحيث يقوم بتسجيل نفسه في منطقة معينة من الرجستري ومن ثم تقوم المكتبه الديناميكية باستدعاءه من هناك

ولكن تكاسلت

fc هو أحد أوامر الـdos والتي تقوم بالمقارنة بين الملفات ascii files

لمزيد من المعلومات

fc /?

السلام عليكم,

ContextMenuHandler

موضوعك عزيزي شيق وممتع وانا كنت علي وشك فتح هذا الموضوع منذ فترة في قسم دلفي بعد ان اصبح عمل ShellExt غير امن في بيئة الدوت نت.

ولكن كثرة انشغالي هي السبب في عدم فتح هذا الموضوع.

في الرابط التالي يوجد شيفرة ممتازة لكيفية إنشاء عنصر قائمة رئيسي وفرعي مع رسم صورة عليها والتحكم بالعنصر.

CustomContextMenu

Delphi Stuff

شكرا يا اخ Moudey

تم التحميل وساطلع على الشيفرة مساء

لم اكن اعرف انك تعرف الدلفي ايضا ...

لمن يحيد السي++

The Complete Idiot's Guide to Writing Shell Extensions - Part I

The Complete Idiot's Guide to Writing Shell Extensions - Part II