Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2015
167
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.18 KB | None | 0 0
  1. ; Copyright (c) 2013 XIDA Design & Technik
  2.  
  3. ; http://www.xida.de
  4.  
  5. ;
  6.  
  7. ; Permission is hereby granted, free of charge, to any person obtaining
  8.  
  9. ; a copy of this software and associated documentation files (the "Software"),
  10.  
  11. ; to deal in the Software without restriction, including without limitation
  12.  
  13. ; the rights to use, copy, modify, merge, publish, distribute, sublicense,
  14.  
  15. ; and/or sell copies of the Software, and to permit persons to whom the
  16.  
  17. ; Software is furnished to do so, subject to the following conditions:
  18.  
  19. ;
  20.  
  21. ; The above copyright notice and this permission notice shall be included
  22.  
  23. ; in all copies or substantial portions of the Software.
  24.  
  25. ;
  26.  
  27. ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
  28.  
  29. ; OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  30.  
  31. ; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  32.  
  33. ; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  34.  
  35. ; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  36.  
  37. ; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  38.  
  39. ; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  40.  
  41. ;
  42.  
  43.  
  44. ; Delete the current running video from media player classic with F12 key.
  45. ; Afterwards the player advances to the next file. Caution: The video is deleted from your hard drive.
  46. ; To make this work you need to open Media Player Classic -> View - Options - Player - Title Bar "Display full path"
  47.  
  48.  
  49.  
  50. #NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
  51. SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
  52. #SingleInstance force
  53. #Persistent ;Script nicht beenden nach der Auto-Execution-Section
  54.  
  55. SetWorkingDir %A_ScriptDir%
  56. SetTitleMatchMode, 2
  57.  
  58.  
  59. ;Menu, tray, NoStandard
  60. Menu, tray, add ; Creates a separator line.
  61. Menu, tray, add, Reload
  62. Menu, tray, add, Exit
  63.  
  64.  
  65. return
  66.  
  67. F12::
  68. IfWinActive, ahk_class MediaPlayerClassicW
  69. {
  70. WinGetTitle, output
  71. ;MsgBox, %output%
  72. Send, .
  73. FileDelete, %output%
  74. Sleep, 500
  75. TrayTip, File Delete, %output%
  76. Sleep, 500
  77. Send, {PgDn}
  78. }
  79. return
  80.  
  81. Reload:
  82. Reload
  83. return
  84.  
  85. Exit:
  86. ExitApp
  87. return
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement