function deleteExtension()
  local openDialog = createOpenDialog()
  openDialog.Filter = 'Lua files (*.lua)|*.lua'
  openDialog.InitialDir = getAutorunPath()
  if not openDialog.Execute() then
    return
  end

  beep()
  if messageDialog("Are you sure to delete this extension?",mtConfirmation,mbYes,mbNo) == mrYes then
    os.execute(('del /Q "%s"'):format(openDialog.FileName))
    if messageDialog("Restart Cheat Engine to apply changes?",mtConfirmation,mbYes,mbNo) == mrYes then
      os.execute('"'..getCheatEngineDir()..'Cheat Engine.exe"')
      closeCE()
    end
  end
end

local useGroupMenu = true
local extGroupMenuCaption = 'Extension tools'
local extItemCaption = 'Delete Extension'
local mf = getMainForm()
local mm = mf.Menu
local extMenu = nil

if useGroupMenu then
  for i=0,mm.Items.Count-1 do
      if mm.Items.Item[i].Caption == extGroupMenuCaption then
          extMenu = mm.Items.Item[i]
          break
      end
  end
  if not extMenu then
      extMenu = createMenuItem(mm)
      extMenu.Caption = extGroupMenuCaption
      mm.Items.add(extMenu)
  end
else
  extMenu = mm.Items
end

local extMenuItem = createMenuItem(extMenu)
extMenuItem.Caption = extItemCaption
extMenu.add(extMenuItem)

extMenuItem.OnClick = function(sender)
  deleteExtension()
end