我的软件是剪辑,并登记在背景/目录和桌面右 click上。 我在Win XP上演,工作成绩良好,但现在在视窗7上测试时,工作并不好。 背景项目只在桌面右边点菜单上存在,但并不在背景/目录上。 需要帮助!
这里是Delphi的常规功能,但关于接受的任何语言的例子,如果需要,可显示扩展的DL弧。
const
CLSID_ContextMenu = {AB69D961-B907-11D0-B8FA-A85800C10000} ;
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
try
with Reg do
begin
RootKey := HKEY_CLASSES_ROOT;
OpenKey( CLSID + CLSID_ContextMenu, True);
WriteString( , Context Menu Shell Extension );
OpenKey( CLSID + CLSID_ContextMenu + InProcServer32 , True);
WriteString( , ExtractFilePath(Application.ExeName) + Project1.dll );
WriteString( ThreadingModel , Apartment );
CreateKey( DirectoryBackgroundShellExContextMenuHandlers + CLSID_ContextMenu);
end;
finally
Reg.Free;
end;
end;