اضافه کردن آیتم به کلیک راست

[kharaee_com]

سلام...
وقتی آنتی ویروس نصب می کنیم یه آیتم به کلیک راست اضافه میشه که معمولاً برای اسکن کردنه.... چطوری میشه چنین کاری کرد؟ با دلفی میشه یا باید توی رجیستری موقع نصب کاری کنم؟ کسی می تونه منو راهنمائی کنه؟!

[vcldeveloper]

قبلا بحث شده

[dkhatibi]

با جستجو کد زیر یافت شد....


uses Registry,

procedure TForm1.AddContextMenuItem(key,caption,command:stri ng);
var
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_CLASSES_ROOT;
reg.LazyWrite := false;
reg.OpenKey(key + '\shell\'+ caption +'\command', true);
reg.WriteString('', command);
reg.CloseKey;
reg.free;
end;

here are some examples to go with that procedure:

all files>Open in Notepad

AddContextMenuItem('*','Open in notepad','notepad.exe %1');

directory>Open in DOS
AddContextMenuItem('Directory','Open in DOS','command.com /K cd %1');

special directory (eg My Documents)>Open in DOS
AddContextMenuItem('Folder','Open in DOS','command.com /K cd %1');

drive>Open in DOS
AddContextMenuItem('Drive','Open in DOS','command.com /K cd %1');
_