AutoHotkey Community

#Persistent
SetTimer, DeleteTaskBarEntry, 100
return

DeleteTaskBarEntry:
   WinWait, Buddy-Liste
   
   if ErrorLevel
   {
   
   }
   else
   {
      WinGet, ExStyle, ExStyle, Buddy-Liste

      if (ExStyle & +0x80)
      {

      }
      else
      {
         DetectHiddenWindows On
         WinHide
         WinSet, ExStyle, +0x80 ; 0x80 is WS_EX_TOOLWINDOW
         WinShow
      }
   }
return

F12::
   WinGet, hw_notepad, ID, Unbenannt - Editor

   if hw_notepad=
   {
         
   }
   else
   {
      hw_parent := DllCall("GetParent", "uint", hw_notepad)
      WinGet, hw_progman, ID, Program Manager ahk_class Progman
      DllCall("SetParent", "uint", hw_notepad, "uint", hw_progman)
   }
return

DetectHiddenWindows, On

; see source of this program here http://www.autohotkey.com/forum/topic17314.html 

program=notepad.exe  ;procesname program to remove taskbar button (can be pid also)


data:= TaskButtons(program)
pos:=regexmatch(data,"\| idn:( \d+ )\|",idn)
idxTB:=   GetTaskSwBar()
SendMessage, 0x404, idn1, true, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd
sleep 5000
SendMessage, 0x404, idn1, false, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd

Return







TaskButtons(sExeName = "")
{
   WinGet,   pidTaskbar, PID, ahk_class Shell_TrayWnd
   hProc:=   DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar)
   pProc:=   DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 32, "Uint", 0x1000, "Uint", 0x4)
   idxTB:=   GetTaskSwBar()
      SendMessage, 0x418, 0, 0, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd   ; TB_BUTTONCOUNT
   Loop,   %ErrorLevel%
   {
      SendMessage, 0x417, A_Index-1, pProc, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd   ; TB_GETBUTTON
      VarSetCapacity(btn,32,0)
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pProc, "Uint", &btn, "Uint", 32, "Uint", 0)
         iBitmap   := NumGet(btn, 0)
         idn   := NumGet(btn, 4)
         Statyle := NumGet(btn, 8)
      If   dwData   := NumGet(btn,12)
         iString   := NumGet(btn,16)
      Else   dwData   := NumGet(btn,16,"int64"), iString:=NumGet(btn,24,"int64")
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "int64P", hWnd:=0, "Uint", NumGet(btn,12) ? 4:8, "Uint", 0)
      If Not   hWnd
         Continue
      WinGet, pid, PID,              ahk_id %hWnd%
      WinGet, sProcess, ProcessName, ahk_id %hWnd%
      WinGetClass, sClass,           ahk_id %hWnd%
      If !sExeName || (sExeName = sProcess) || (sExeName = pid)
         VarSetCapacity(sTooltip,128), VarSetCapacity(wTooltip,128*2)
      ,   DllCall("ReadProcessMemory", "Uint", hProc, "Uint", iString, "Uint", &wTooltip, "Uint", 128*2, "Uint", 0)
      ,   DllCall("WideCharToMultiByte", "Uint", 0, "Uint", 0, "str", wTooltip, "int", -1, "str", sTooltip, "int", 128, "Uint", 0, "Uint", 0)
      ,   sTaskButtons .= "idx: " . A_Index-1 . " | idn: " . idn . " | pid: " . pid . " | hWnd: " . hWnd . " | Class: " . sClass . " | Process: " . sProcess . "`n" . "   | Tooltip: " . sTooltip . "`n"
   }
   DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pProc, "Uint", 0, "Uint", 0x8000)
   DllCall("CloseHandle", "Uint", hProc)
   Return   sTaskButtons
}


GetTaskSwBar()
{
   ControlGet, hParent, hWnd,, MSTaskSwWClass1 , ahk_class Shell_TrayWnd
   ControlGet, hChild , hWnd,, ToolbarWindow321, ahk_id %hParent%
   Loop
   {
      ControlGet, hWnd, hWnd,, ToolbarWindow32%A_Index%, ahk_class Shell_TrayWnd
      If  Not   hWnd
         Break
      Else If   hWnd = %hChild%
      {
         idxTB := A_Index
         Break
      }
   }
   Return   idxTB
}