Lecteur multimedia avec bouton "supprimer"

function descriptor()
  return { title = "DeleteFile for VLC" ;
  version = "0.003" ;
  author = "Trevor Sturdevant";
  shortdesc = "Physically delete a file from disk";
  description = "DeleteFile - Physically deletes/removed the current playing file"
    .. "from disk [eventually]. No confirmation is asked. If you do not want to"
    .. "delete the file do not click the extension. The file is not actually deleted"
    .. "until the next time the extension is activated. This is provided for"
    .. "academic purposes only.  This cannot be sold or reproduced for any profit."
    .. "No warranties are expressed or implied by making use of this code."
    .. "Use at your own risk."
    .. "Place this into %APPDATA%\vlc\lua\extensions\delefile.lua"
    .. "It could be coded better but I just wanted to get it done for personal use"
    .. "but have decided that sharing is caring.";
  url = "http://none.sorry/"
}
end

function activate()
  vlc.msg.dbg("DeleteFile: activated")
  local tempf = string.gsub(os.getenv("TEMP"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
  local f,err = io.open(tempf, 'r')
  if err then
    local tempf = string.gsub(os.getenv("TMP"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
    local f,err = io.open(tempf, 'r')
    if err then
      local tempf = string.gsub(os.getenv("USERPROFILE"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
      local f,err = io.open(tempf, 'r')
    end
  end
  if f~=nil then
    f:close()
    local tempwinf = string.gsub(tempf,"/","\\")
    local delCmd = "start /min /wait cmd /E:ON /c " .. tempwinf
    os.execute(delCmd)
    os.remove(tempf)
  end
  delete()
  deactivate()
end

function deactivate()
 vlc.msg.dbg("DeleteFile: deactivated")
 vlc.deactivate() 
end

function close()
  vlc.msg.dbg("DeleteFile: closing")
  deactivate()
end

function playnext()
  vlc.playlist.next()
end

function delete()
  local item = vlc.input.item()
  local uri = item:uri()
  local filename = vlc.strings.decode_uri(uri)
  filename = string.sub(filename,9)
  local dosfilename = string.gsub(filename,"/","\\");
  vlc.msg.dbg("DeleteFile: received \"" .. filename .. "\"")
  vlc.msg.dbg("DeleteFile: dos fname \"" .. dosfilename .. "\"")
  local tempf = string.gsub(os.getenv("TEMP"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
  local f,err = io.open(tempf, 'a')
  if err then
    local tempf = string.gsub(os.getenv("TMP"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
    local f,err = io.open(tempf, 'a')
    if err then
      local tempf = string.gsub(os.getenv("USERPROFILE"),"\\","/") .. "/vlc_DeleteFile_tmp.bat"
      local f,err = io.open(tempf, 'a')
      if err then
        vlc.msg.dbg("DeleteFile: Failed to open vlcdel.txt for writing - " .. err)
      end
    end
  end
   if f~=nil then
    f:write("del \"" .. dosfilename .. "\"\r\n")
    f:flush()
    f:close()
    vlc.playlist.next()
  else
    vlc.msg.dbg("DeleteFile: Failed to open vlcdel.txt for writing - " .. err)
    box = vlc.dialog("DeleteFile")
    box:add_label("Failed to open a temp file for writing.  I tried my best.")
    box:add_button("CLOSE", deactive)
    box:show()
  end
end

function meta_changed()
end