Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ; Copyright (c) 2013 XIDA Design & Technik
- ; http://www.xida.de
- ;
- ; Permission is hereby granted, free of charge, to any person obtaining
- ; a copy of this software and associated documentation files (the "Software"),
- ; to deal in the Software without restriction, including without limitation
- ; the rights to use, copy, modify, merge, publish, distribute, sublicense,
- ; and/or sell copies of the Software, and to permit persons to whom the
- ; Software is furnished to do so, subject to the following conditions:
- ;
- ; The above copyright notice and this permission notice shall be included
- ; in all copies or substantial portions of the Software.
- ;
- ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
- ; OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
- ; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
- ; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
- ; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
- ; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
- ; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
- ;
- ; Delete the current running video from media player classic with F12 key.
- ; Afterwards the player advances to the next file. Caution: The video is deleted from your hard drive.
- ; To make this work you need to open Media Player Classic -> View - Options - Player - Title Bar "Display full path"
- #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
- SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
- #SingleInstance force
- #Persistent ;Script nicht beenden nach der Auto-Execution-Section
- SetWorkingDir %A_ScriptDir%
- SetTitleMatchMode, 2
- ;Menu, tray, NoStandard
- Menu, tray, add ; Creates a separator line.
- Menu, tray, add, Reload
- Menu, tray, add, Exit
- return
- F12::
- IfWinActive, ahk_class MediaPlayerClassicW
- {
- WinGetTitle, output
- ;MsgBox, %output%
- Send, .
- FileDelete, %output%
- Sleep, 500
- TrayTip, File Delete, %output%
- Sleep, 500
- Send, {PgDn}
- }
- return
- Reload:
- Reload
- return
- Exit:
- ExitApp
- return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement