XProfan

// Andreas Miethe
DEF CoInitialize(1)     ! "OLE32","CoInitialize"
DEF CoUnInitialize(0)   ! "OLE32","CoUninitialize"
DEF CoCreateInstance(5) ! "OLE32","CoCreateInstance"
DEF &QueryInterface 0
DEF &AddRef         4
DEF &Release        8
DEF &HrInit         12
DEF &AddTab         16
DEF &DeleteTab      20
DEF &ActivateTab    24
DEF &SetActiveAlt   28
Declare #_Command&
Declare #_HideFromTaskbar_Object&
Declare CLSID_TasbarList#,IID_ITasbarList#
Dim CLSID_TasbarList#,16
Dim IID_ITasbarList#,16
Long CLSID_TasbarList#,0 = $56FDF344
Word CLSID_TasbarList#,4 = $FD6D
Word CLSID_TasbarList#,6 = $11D0
Byte CLSID_TasbarList#,8 = $95
Byte CLSID_TasbarList#,9 = $8A
Byte CLSID_TasbarList#,10 = $00
Byte CLSID_TasbarList#,11 = $60
Byte CLSID_TasbarList#,12 = $97
Byte CLSID_TasbarList#,13 = $C9
Byte CLSID_TasbarList#,14 = $A0
Byte CLSID_TasbarList#,15 = $90
Long IID_ITasbarList#,0 = $56fdf342
Word IID_ITasbarList#,4 = $FD6D
Word IID_ITasbarList#,6 = $11D0
Byte IID_ITasbarList#,8 = $95
Byte IID_ITasbarList#,9 = $8A
Byte IID_ITasbarList#,10 = $00
Byte IID_ITasbarList#,11 = $60
Byte IID_ITasbarList#,12 = $97
Byte IID_ITasbarList#,13 = $C9
Byte IID_ITasbarList#,14 = $A0
Byte IID_ITasbarList#,15 = $90

Proc HideFromTaskbar

    Parameters WINDOW&, STATE&

    If STATE& = 0

        CALL(LONG(#_COMMAND&,&DeleteTab),#_HideFromTaskbar_Object&,Window&)    TaskbarButton ausblenden

    Else

        CALL(LONG(#_COMMAND&,&AddTab),#_HideFromTaskbar_Object&,Window&)       TaskbarButton einblenden

    EndIf

EndProc

Proc InitHFT

    CoInitialize(0)
    CoCreateInstance(CLSID_TasbarList#,0,1,IID_ITasbarList#,Addr(#_HideFromTaskbar_O bject&))
    #_COMMAND& = @LONG(#_HideFromTaskbar_Object&,0)

EndProc

Proc EndHFT

    Dispose CLSID_TasbarList#
    Dispose IID_ITasbarList#
    CALL(LONG(#_COMMAND&,&Release),#_HideFromTaskbar_Object&) Objekt freigeben
    CoUnInitialize()

EndProc

cls
InitHFT
Print "Taste..."
waitinput
HideFromTaskbar %hwnd,0
waitinput
HideFromTaskbar %hwnd,1
waitinput
EndHFT
end