PureBasic Forums - English

... but can't get them both.
this maybe can help here.


; ---== Windows Hiding from the Taskbar (professional way) ==---

Procedure HideFromTaskBar(hWnd, State) ; VOID .. State == Hide (1) and Show (0)
Protected TBL.ITaskbarList

CoInitialize_(0) ; CoInitializeEx_(0, #COINIT ...

... desktop.l
size.l
EndStructure

Declare.s ReadAutoStartString()
Declare WriteAutoStartString(appName$)
Declare EmptyAutoStartString()
Declare HideFromTaskBar(iWin.i)

DataSection
Icon:
IncludeBinary "DesktopCalendar.ico"
EndDataSection

; primär skärm är första index (0).
nDesktops ...

... simple to fully hide the windows console :cry:

Structure RunProgramExtendedStructure
ProgramID.i
WindowHandle.i
EndStructure

Procedure HideFromTaskBar(hWnd.l, Flag.l) ; TsSoft
Protected TBL.ITaskbarList

CoInitialize_(0)
If CoCreateInstance_(?CLSID_TaskBarList, 0, 1, ?IID_ITaskBarList ...

RSBasic, your HideFromTaskBar() procedure is fantastic, but I need to know how to tell if a hWnd has a taskbar button already (so I can toggle it). Do you know how?

I know I can check for the #WS_EX_TOOLWINDOW style but not all hWnds have that style set. I also tried comparing two Notepad windows ...

... will not display in the Task bar.

If that is not a good solution, the following API code does it (this is not coded by me):

Procedure HideFromTaskBar(iWin.i)
;#------------------------------
;Use to prevent upteen icons appearing on the task bar when child windows are displayed

DataSection ...

... task switcher (Alt+Tab), the second window will be seen below the main window...

Meanwhile I am doing this (seems to be fine):

Procedure HideFromTaskBar(hWnd.l, Flag.l)

Protected TBL.ITaskbarList

CoInitialize_(0)
If CoCreateInstance_(?CLSID_TaskBarList, 0, 1, ?IID_ITaskBarList, @TBL) = #S ...

Ah

EnableExplicit

Procedure HideFromTaskBar(hWnd.i, Flag.l)
Protected TBL.ITaskbarList
CoInitialize_(0)
If CoCreateInstance_(?CLSID_TaskBarList, 0, 1, ?IID_ITaskBarList, @TBL) = #S_OK
TBL\HrInit()
If Flag
TBL\DeleteTab(hWnd)
Else
TBL\AddTab(hWnd)
EndIf
TBL\Release()
EndIf
CoUninitialize ...

RSBasic's WinApiLibrary says :

#MainWindow = 1

Procedure HideFromTaskBar(hWnd.i, Flag.l)
Protected TBL.ITaskbarList
CoInitialize_(0)
If CoCreateInstance_(?CLSID_TaskBarList, 0, 1, ?IID_ITaskBarList, @TBL) = #S_OK
TBL\HrInit()
If Flag
TBL\DeleteTab(hWnd)
Else
TBL\AddTab(hWnd)
EndIf
TBL ...

... Window_ScreenCentered | #PB_Window_SystemMenu)

RedrawWindow_(WindowID(0),0,0,#RDW_INVALIDATE | #RDW_ERASE)
UpdateWindow_(WindowID(0))

HideFromTaskBar(WindowID(0),1)
StickyWindow(0,#True)
ResizeWindow(0,#PB_Ignore,#PB_Ignore,FrameWidth,FrameHeight)
SmartWindowRefresh(0,0)
HideWindow(0,1 ...

... KTIPOShell",#WS_OVERLAPPEDWINDOW | 1 | #PB_Window_BorderLess | #PB_Window_Invisible) ;(1)__-=::[ CREATE INVISIBLE/HIDDEN WINDOW ]::=-__
HideFromTaskBar(WindowID(0),1)
WindowOnTop(WindowID(0))
Color = RGB(0, 0, 0)
InitWW = WindowWidth(0):InitWH = WindowHeight(0)
SetWindowColor(0, Color ...

... INITWin
UsePNGImageDecoder()
OpenWindow(0,0,0,#Width,#Height,"KTIPOShell",#WS_OVERLAPPEDWINDOW | #WS_VISIBLE | 1 | #PB_Window_BorderLess)
HideFromTaskBar(WindowID(0),1)
WindowOnTop(WindowID(0))
Color = RGB(0, 0, 0)
InitWW = WindowWidth(0):InitWH = WindowHeight(0)
SetWindowColor(0, Color ...

... Hide a Window from the Taskbar
;----------------------------------------
;----------------------------------------
EnableExplicit

Global _hideFromTaskbar_Object.ITaskbarList
;
; Hide or UnHide a Window from the Windows Taskbar
;
; STATES: #FALSE (0) = Show Window on Taskbar
; #TRUE (<>0) = Hide ...

First : http://purebasic.fr/german/images/smilies/allright.gif

I modified the code a bit.

Fit to Module
Comments added
HideFromTaskBar added ( ts-soft )

;:=============================================================================
;:- CustomPopupWindow.pbi
;:- Author : Eddy (modified by ...

... KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_SHIFT,0,#KEYEVENTF_KEYUP,0)
keybd_event_(#VK_STARTKEY, 0, #KEYEVENTF_KEYUP, 0)

EndProcedure

Procedure HideFromTaskBar(hWnd, Flag)
Protected TBL.ITaskbarList

CoInitialize_(0)
If CoCreateInstance_(?CLSID_TaskBarList, 0, 1, ?IID_ITaskBarList, @TBL) = #S_OK ...