پروژه حذف موزیک از هر جای ویندوز با AutoHotkey

کد کامل

نسخه‌ای که در تست نهایی استفاده شد:

#Requires AutoHotkey v2.0
#SingleInstance Force
Persistent
; ============================================================
; DJH AIMP - Delete Current Playing Track
; Version : 1.1.0
; Hotkey  : Ctrl + Delete
;
; Direct / plugin-free:
;   1) Reads current track from AIMP shared memory
;   2) Switches AIMP to Next
;   3) Moves previous file to Recycle Bin
;
; Safety:
;   - Never permanently deletes
;   - Never deletes unless a valid local file path is read
;   - Writes a small diagnostic log beside this script
; ============================================================
global FILE_MAP_READ := 0x0004
global MAP_SIZE      := 2048
global Busy          := false
global LogFile       := A_ScriptDir "\DJH-AIMP-Delete.log"
^Delete::
{
    global Busy
    if Busy
        return
    Busy := true
    try
        DeleteCurrentTrack()
    finally
        SetTimer(ReleaseLock, -600)
}
ReleaseLock()
{
    global Busy
    Busy := false
}
DeleteCurrentTrack()
{
    Log("HOTKEY | Ctrl+Delete")
    if !ProcessExist("AIMP.exe")
    {
        Fail("AIMP.exe is not running")
        return
    }
    TrackPath := GetCurrentAIMPFile()
    if (TrackPath = "")
    {
        Fail("Could not read current track from AIMP")
        return
    }
    Log("TRACK | " TrackPath)
    Attr := FileExist(TrackPath)
    if (Attr = "")
    {
        Fail("Track path is not a local file")
        return
    }
    if InStr(Attr, "D")
    {
        Fail("Track path points to a directory")
        return
    }
    FileToDelete := TrackPath
    SplitPath(FileToDelete, &FileName)
    ; First try sending Next directly to an AIMP process window.
    NextOK := SendNextToAIMP()
    if !NextOK
    {
        Log("NEXT | direct message failed -> media-key fallback")
        try
        {
            Send("{Media_Next}")
            NextOK := true
        }
        catch
            NextOK := false
    }
    if !NextOK
    {
        Fail("Could not switch AIMP to next track")
        return
    }
    Log("NEXT | sent")
    ; Allow decoder / file handle to move away from previous track.
    Sleep(700)
    ; Confirm AIMP has actually moved away when possible.
    NewTrack := GetCurrentAIMPFile()
    if (NewTrack != "")
    {
        Log("AFTER NEXT | " NewTrack)
        if PathsEqual(NewTrack, FileToDelete)
        {
            ; One additional media-key attempt.
            Log("NEXT | track unchanged -> retry")
            try Send("{Media_Next}")
            Sleep(900)
            NewTrack := GetCurrentAIMPFile()
            if (NewTrack != "" && PathsEqual(NewTrack, FileToDelete))
            {
                Fail("AIMP did not leave the current track; nothing deleted")
                return
            }
        }
    }
    ; Recycle with short retries for delayed file-handle release.
    for Delay in [0, 300, 700, 1200]
    {
        if (Delay > 0)
            Sleep(Delay)
        try
        {
            FileRecycle(FileToDelete)
            Log("RECYCLE | PASS | " FileToDelete)
            Notice("Recycled: " FileName)
            return
        }
        catch as Err
        {
            Log("RECYCLE | retry | " Err.Message)
        }
    }
    Fail("Could not move file to Recycle Bin")
}
GetCurrentAIMPFile()
{
    global FILE_MAP_READ, MAP_SIZE
    ; AIMP installations / Windows sessions can expose the mapping
    ; with or without a Local\ namespace prefix.
    for MapName in ["AIMP2_RemoteInfo", "Local\AIMP2_RemoteInfo"]
    {
        Result := ReadAIMPMapping(MapName)
        if (Result != "")
        {
            Log("MAPPING | PASS | " MapName)
            return Result
        }
    }
    Log("MAPPING | FAIL")
    return ""
}
ReadAIMPMapping(MapName)
{
    global FILE_MAP_READ, MAP_SIZE
    hMap := DllCall(
        "Kernel32\OpenFileMappingW",
        "UInt", FILE_MAP_READ,
        "Int",  0,
        "WStr", MapName,
        "Ptr"
    )
    if !hMap
        return ""
    pView := DllCall(
        "Kernel32\MapViewOfFile",
        "Ptr",  hMap,
        "UInt", FILE_MAP_READ,
        "UInt", 0,
        "UInt", 0,
        "UPtr", MAP_SIZE,
        "Ptr"
    )
    if !pView
    {
        DllCall("Kernel32\CloseHandle", "Ptr", hMap)
        return ""
    }
    Result := ""
    try
    {
        ; Packed AIMP2FileInfo structure:
        ; DWORD cbSizeOf          @ 0
        ; BOOL  nActive           @ 4
        ; DWORD nBitRate          @ 8
        ; DWORD nChannels         @ 12
        ; DWORD nDuration         @ 16
        ; INT64 nFileSize         @ 20
        ; DWORD nRating           @ 28
        ; DWORD nSampleRate       @ 32
        ; DWORD nTrackID          @ 36
        ; DWORD nAlbumLen         @ 40
        ; DWORD nArtistLen        @ 44
        ; DWORD nDateLen          @ 48
        ; DWORD nFileNameLen      @ 52
        ; DWORD nGenreLen         @ 56
        ; DWORD nTitleLen         @ 60
        ;
        ; UTF-16 strings follow immediately after cbSizeOf bytes.
        StructSize  := NumGet(pView, 0,  "UInt")
        Active      := NumGet(pView, 4,  "Int")
        AlbumLen    := NumGet(pView, 40, "UInt")
        ArtistLen   := NumGet(pView, 44, "UInt")
        DateLen     := NumGet(pView, 48, "UInt")
        FileNameLen := NumGet(pView, 52, "UInt")
        Log("REMOTE | size=" StructSize
            " active=" Active
            " album=" AlbumLen
            " artist=" ArtistLen
            " date=" DateLen
            " filename=" FileNameLen)
        if (StructSize < 64 || StructSize > 512)
            return ""
        if (FileNameLen < 1 || FileNameLen > 800)
            return ""
        PrefixChars := AlbumLen + ArtistLen + DateLen
        FileOffset  := StructSize + PrefixChars * 2
        FileBytes   := FileNameLen * 2
        if (FileOffset < StructSize)
            return ""
        if (FileOffset + FileBytes > MAP_SIZE)
            return ""
        FilePtr := pView + FileOffset
        Result := StrGet(FilePtr, FileNameLen, "UTF-16")
        Result := Trim(StrReplace(Result, Chr(0)), " `t`r`n")
    }
    catch as Err
    {
        Log("REMOTE | exception | " Err.Message)
        Result := ""
    }
    finally
    {
        DllCall("Kernel32\UnmapViewOfFile", "Ptr", pView)
        DllCall("Kernel32\CloseHandle", "Ptr", hMap)
    }
    return Result
}
SendNextToAIMP()
{
    ; WM_APPCOMMAND is sent to a real top-level AIMP window, not the
    ; hidden shared-memory window used in v1.0.0.
    static WM_APPCOMMAND := 0x0319
    static APPCOMMAND_MEDIA_NEXTTRACK := 11
    DetectHiddenWindows(true)
    hwnd := 0
    ; Prefer a visible/top-level AIMP process window.
    try hwnd := WinExist("ahk_exe AIMP.exe")
    if !hwnd
    {
        DetectHiddenWindows(false)
        return false
    }
    lParam := APPCOMMAND_MEDIA_NEXTTRACK << 16
    try
    {
        SendMessage(
            WM_APPCOMMAND,
            hwnd,
            lParam,
            ,
            "ahk_id " hwnd
        )
        DetectHiddenWindows(false)
        return true
    }
    catch as Err
    {
        Log("NEXT | SendMessage exception | " Err.Message)
        DetectHiddenWindows(false)
        return false
    }
}
PathsEqual(A, B)
{
    return StrLower(Trim(A)) = StrLower(Trim(B))
}
Notice(Text)
{
    ToolTip(Text)
    SetTimer(() => ToolTip(), -2200)
}
Fail(Text)
{
    Log("FAIL | " Text)
    SoundBeep(800, 120)
    ToolTip("AIMP Delete: " Text)
    SetTimer(() => ToolTip(), -3500)
}
Log(Text)
{
    global LogFile
    try
    {
        Stamp := FormatTime(, "yyyy-MM-dd HH:mm:ss")
        FileAppend("[" Stamp "] " Text "`r`n", LogFile, "UTF-8")
    }
}