AutoHotkey Community

^m::
   send, ^+0               ;winamp5 hotkey (place mp3 filename in clipb)
   sleep 100
   PostMessage, 0x111, 40048, , ,Winamp    ;skip to next song
   ;clipwait
   send ^c                           ;required command ?
   FileMove, %clipboard%, f:\aMp3\delete   ; move mp3 to delete dir
return

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Copy the file playing in winamp to a directory
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
^m::
   ;winamp5 hotkey ^+0 (place mp3 filename in clipb)
   send, ^+0
   sleep 100
   ; copy mp3 to favorites dir
   FileCopy, %clipboard%, c:\music\_favorites   
return

^+d::
SendMessage, 0x400,0,120,,ahk_class Winamp v1.x ;Writes current playlist to <winampdir>\Winamp.m3u and returns the current track number as the variable ErrorLevel (with the first track being 0)
FileReadLine, CurrentSongLocation, %ProgramFiles%\Winamp\winamp.m3u,  ( ErrorLevel + 1) * 2 + 1 ;Reads the location of the currently playing song and adjusts the linenumber based on the format of the m3u
PostMessage, 0x111,40048,,,ahk_class Winamp v1.x ;Plays next song
FileRecycle, C:%CurrentSongLocation% ;Deletes previous song (C: needs to be appended because of the format of the m3u)
PostMessage, 0x111,40222,,,ahk_class Winamp PE ;Empties missing files from playlist
return

^+d::
  SendMessage, 0x400,0,120,,ahk_class Winamp v1.x ;Writes current playlist to <winampdir>\Winamp.m3u and returns the current track number as the variable ErrorLevel (with the first track being 0)
  FileReadLine, CurrentSongLocation, %ProgramFiles%\Winamp\winamp.m3u,  ( ErrorLevel + 1) * 2 + 1 ;Reads the location of the currently playing song and adjusts the linenumber based on the format of the m3u
  StringLeft, FirstLetter, CurrentSongLocation, 1
  PostMessage, 0x111,40048,,,ahk_class Winamp v1.x ;Plays next song
  if FirstLetter != "\" ;If the track is on drive C: the drive letter is omitted
  {
    FileRecycle, %CurrentSongLocation% ;Deletes previous song from other drive
  }
  else
  {
    FileRecycle, C:%CurrentSongLocation% ;Deletes previous song from C: drive
    return
  }
  PostMessage, 0x111,40222,,,ahk_class Winamp PE ;Empties missing files from playlist
  return

^+d::
  IfWinExist, iTunes
    Run, %A_ScriptDir%\iTunesDelete.au3
  Else
  {
  SendMessage, 0x400,0,120,,ahk_class Winamp v1.x ;Writes current playlist to <winampdir>\Winamp.m3u and returns the current track number as the variable ErrorLevel (with the first track being 0)
  FileReadLine, CurrentSongLocation, %ProgramFiles%\Winamp\winamp.m3u,  ( ErrorLevel  * 2 ) + 3 ;Reads the location of the currently playing song and adjusts the linenumber based on the format of the m3u
  StringLeft, FirstLetter, CurrentSongLocation, 1 ;Used to determine what drive the track is on
  PostMessage, 0x111,40048,,,ahk_class Winamp v1.x ;Plays next song
  IfEqual, FirstLetter, \ ;If the track is on drive C:, Winamp omits the drive letter in the m3u so we check to see if it is on the C: drive
  {
   FileRecycle, C:%CurrentSongLocation% ;Deletes song from C: drive
  }
  else
  {
   FileRecycle, %CurrentSongLocation% ;Deletes song from other drive
  }
  IfWinExist, ahk_class BaseWindow_RootWnd
   ControlSend, Winamp Playlist Editor, !{DEL} ;Empties missing files from playlist
  }
  return

#del:: ;Delete currently playing track from disk (Winamp)
CurrentSongPath := GetWinampTrackInfo("path")
PostMessage, 0x111,40048,,,ahk_class Winamp v1.x ;Plays next song
FileRecycle, %CurrentSongPath% ;Recycle song
sleep 10000
IfWinExist, ahk_class BaseWindow_RootWnd
 ControlSend,Winamp Playlist Editor,!{DEL}  ;Remove missing files from playlist
return


GetWinampTrackInfo( Mode="Title", Track="Current" )
{ ; Function by [VxE]. Version 0.1
   Window = ahk_class Winamp v1.x
   Message = 211
   SendMessage, 0x400, 0, 125, , %Window%
   IfEqual, ErrorLevel, Fail, Return
   IfEqual, Track, Current, SetEnv, Track, %errorlevel%
   Else   EnvSub, Track, % Track > 0
   If InStr(Mode, "t") = 1
      message += 1
   SendMessage, 0x400, %Track%, %message%,, %Window%
   index := errorlevel
   winget, pid, PID, %Window%
   hProcess := DllCall("OpenProcess","Int",16,"Int",0,"UInt",pid)
   VarSetCapacity(MVALUE,1,0)
   Loop, 255 ; can be bigger if truly necessary
   {
      DllCall("ReadProcessMemory","UInt",hProcess
      ,"UInt",index+A_Index-1,"Str",MVALUE,"UInt",1,"UInt *",0)
      IfEqual, MValue,, Break ; null terminate string
      str .= MValue
   }
   DllCall("CloseHandle", "UInt", hProcess)
   return %str%
}

    IfWinExist, ahk_class BaseWindow_RootWnd
    {
      WinActivate, ahk_class BaseWindow_RootWnd
      ControlClick,,, Playlist Editor
      Send, {Alt Down}{DEL}{Alt Up}
    }

^+d::
  ClipStore := ClipboardAll            ; Save the entire clipboard to a variable of your choice.
  Clipboard =
  Send, ^!+7                   ; Winamp Global Hotkey for "Copy file path (unicode)"
  ClipWait
  PostMessage, 0x111,40048,,,ahk_class Winamp v1.x    ; Plays next song
  FileRecycle, %Clipboard%

  IfWinExist, ahk_class BaseWindow_RootWnd
  {
    ControlSend, Winamp PE1, !{DEL}          ; Remove missing files from playlist
  }

  Clipboard := ClipStore               ; Restore the original clipboard. Note the use of Clipboard (not ClipboardAll).
  ClipStore =                  ; Free the memory in case the clipboard was very large.
  return