散分：有没有简单的方法添加系统右键菜单？

Question

散分：有没有简单的方法添加系统右键菜单？给出delphi程序。是系统菜单，就是在除了我的电脑、文件夹等外，在任何类型文件上点击右键都会出现包含我的程序的右键菜单。

Answer 1

var
  R: TRegistry;
  Key: string;
begin
  R := TRegistry.Create;
  R.RootKey := HKEY_CLASSES_ROOT;  Key := '\*\Shell\在菜单上显示的串;
  R.OpenKey(Key + '\Command', True);
  if Add then
  begin
    R.WriteString('', 点击执行的文件名(如:Application.ExeName) + ' "%1"');
  end else
    R.DeleteKey(Key);  R.Free;

Answer 2

接受答案了，并将内容公布出来
procedure TfrmOptionsDlg.runCreatRightKey(Add:boolean);
var
  R: TRegistry;
  Key: string;
begin
  R := TRegistry.Create;
  R.RootKey := HKEY_CLASSES_ROOT;
  Key := '\*\Shell\FileControlPlus';
  R.OpenKey(Key + '\Command', True);
  if Add then
  begin
    R.WriteString('', Application.ExeName + ' "%1"');
  end else
    R.DeleteKey(Key);  R.Free;
end;