delphi 如何在桌面添加右键菜单

添加一个aaa.exe：

procedure TForm1.BtnMenuClick(Sender: TObject);

var

    Reg : TRegistry;

    GetSource : String;

begin

    GetSource := Application.ExeName;

    try

        Reg := TRegistry.Create;

        with Reg do

        begin

        RootKey := HKEY_CLASSES_ROOT;

        OpenKey('Directory\Background\shell\aaa', True);

        Writestring('', '打开aaa程序');

        OpenKey('Command', true);

        Writestring('', GetSource);

        Free;

        ShowMessage( '注册表导入成功!');

        end;

    except

        MessageDlg( '注册表导入失败!',mtError, [mbOK], 0 );

    end;

end;

从注册表中删除

procedure TForm1.BtnDelClick(Sender: TObject);

var

    Reg : TRegistry;

begin

    try

        Reg := TRegistry.Create;

        with Reg do

        begin

        RootKey := HKEY_CLASSES_ROOT;

        DeleteKey('Directory\Background\shell\aaa'); //即使执行多次也不会对注册表造成影响

        Free;

        ShowMessage( '注册表删除成功!');

        end;

    except

        MessageDlg( '注册表删除失败!',mtError, [mbOK], 0 );

    end;

end;