FiveTech Software tech support forums

www.FiveTechSoft.com
http://forums.fivetechsoft.com/

Windows 7 taskbar button progress bar

http://forums.fivetechsoft.com/viewtopic.php?f=3&t=22872

Page 1 of 2

Windows 7 taskbar button progress bar

Posted: Mon Nov 14, 2011 6:07 am
by AlexSchaft
Hi,

I'm trying to show progress on the windows taskbar via the api from http://msdn.microsoft.com/en-us/library ... 85%29.aspx but can't seem to get it to work.

Has anyone else done this?

Alex

Re: Windows 7 taskbar button progress bar

Posted: Thu May 24, 2012 9:19 am
by AlexSchaft
Just a bump on this in case anyone has done this by now.

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 7:53 am
by AntoninoP
Hello,
I resurrect this thread to share a FiveWin support for progress bar in task bar:

Code: Select all

#include <fivewin.ch>
#include <slider.ch>

function main()
   LOCAL oDlg, oBru, nSlider := 40
   DEFINE WINDOW oDlg FROM  0,0 TO 500,400 PIXEL TITLE "Test" BRUSH oBru
   
   @   8,8 BUTTON "RESET"      SIZE 80,36 PIXEL ACTION TBL_RESET(oDlg:hWnd)
   @  48,8 BUTTON "PROCESSING" SIZE 80,36 PIXEL ACTION TBL_PROCESSING(oDlg:hWnd)
   @  88,8 BUTTON "PROGRESS"   SIZE 80,36 PIXEL ACTION (TBL_SETPROGRESS(oDlg:hWnd), TBL_SETVALUE(oDlg:hWnd, nSlider, 100))
   @ 128,8 BUTTON "ERROR"      SIZE 80,36 PIXEL ACTION TBL_SETERROR(oDlg:hWnd)
   @ 168,8 BUTTON "PAUSE"      SIZE 80,36 PIXEL ACTION TBL_SETPAUSE(oDlg:hWnd)
   
   @ 208,8 SLIDER nSlider HORIZONTAL RANGE 0, 100 SIZE 380,36 PIXEL ON THUMBPOS TBL_SETVALUE(oDlg:hWnd, nVar, 100)
   
   ACTIVATE WINDOW oDlg 
   
return nil

#pragma BEGINDUMP
#include <windows.h>
#include <ShObjIdl.h>
#include <hbapi.h>

ITaskbarList3* TBL_SetProgressState(HWND hWnd, TBPFLAG state)
{
   ITaskbarList3* m_pTaskBarlist;
   HRESULT hr;
   if((hr = CoCreateInstance( &CLSID_TaskbarList, 0, CLSCTX_ALL, &IID_ITaskbarList3, ( void ** ) &m_pTaskBarlist ) )==S_OK)
   {
      if (state != -1)
         m_pTaskBarlist->lpVtbl->SetProgressState( m_pTaskBarlist, hWnd, state );
      return m_pTaskBarlist;
   }
   return NULL;
}

 #ifndef _WIN64
   #define GETHWND ( HWND ) hb_parnl( 1 )
#else
   #define GETHWND ( HWND ) hb_parnll( 1 )
#endif

HB_FUNC( TBL_RESET ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_NOPROGRESS); }

HB_FUNC( TBL_PROCESSING ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_INDETERMINATE); }

HB_FUNC( TBL_SETPROGRESS ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_NORMAL); }

HB_FUNC( TBL_SETVALUE ) //  hWnd, n, max
{
   HWND hWnd = GETHWND;
   ULONGLONG n = hb_parnll(2);
   ULONGLONG m = hb_parnll(3);
   ITaskbarList3* m_pTaskBarlist = TBL_SetProgressState(GETHWND,-1);
   if( m_pTaskBarlist )
   {
      m_pTaskBarlist->lpVtbl->SetProgressValue( m_pTaskBarlist, hWnd, n, m );
   }
}

HB_FUNC( TBL_SETERROR ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_ERROR); }

HB_FUNC( TBL_SETPAUSE ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_PAUSED); }

#pragma ENDDUMP
Here a test program with C code for slider support, I compiled it with Harbour 3.2, FWH 15.03 and Visual Studio compiler.

Maybe It can be include in the next FiveWin release :wink:
Regards,
Antonino

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 8:23 am
by Antonio Linares
Antonino,

Many thanks! :-)

I am testing it with Borland and I get this error:

Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland
antonino.c:
Error E2141 test.prg 25: Declaration syntax error

We need to make this line Borland 5.82 compatible:

ITaskbarList3* TBL_SetProgressState(HWND hWnd, TBPFLAG state)

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 8:41 am
by AntoninoP
Hello,
Sorry, I don't have Borland C++, and googling it I don't know how get it.
Anyway, It looks like a Windows Kit version issue, I am using the version 8.1 .

Usual disclaimer (from GPL)
This code is provide "as is" without warranty of any kind. The entire risk as to the quality and performance of the program is with you. :D

Regards,
Antonino

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 2:29 pm
by Antonio Linares
Antonino,

If I try to build it using FWH\samples\buildh32.bat I get these errors:

Microsoft (R) C/C++ Optimizing Compiler Version 18.00.31101 for x86
Copyright (C) Microsoft Corporation. All rights reserved.

antonino.c
antonino.prg(29) : error C2664: 'HRESULT CoCreateInstance(const IID &,LPUNKNOWN,DWORD,const IID &,LPVOID *)' : cannot convert
argument 1 from 'const CLSID *' to 'const IID &'
Reason: cannot convert from 'const CLSID *' to 'const IID'
No constructor could take the source type, or constructor overload resolution was ambiguous
antonino.prg(32) : error C2039: 'lpVtbl' : is not a member of 'ITaskbarList3'
C:\Program Files (x86)\Windows Kits\8.1\include\um\ShObjIdl.h(17308) : see declaration of 'ITaskbarList3'
antonino.prg(32) : error C2227: left of '->SetProgressState' must point to class/struct/union/generic type
antonino.prg(58) : error C2664: 'ITaskbarList3 *TBL_SetProgressState(HWND,TBPFLAG)' : cannot convert argument 2 from 'int' to
'TBPFLAG'
Conversion to enumeration type requires an explicit cast (static_cast, C-style cast or function-style cast)
antonino.prg(61) : error C2039: 'lpVtbl' : is not a member of 'ITaskbarList3'
C:\Program Files (x86)\Windows Kits\8.1\include\um\ShObjIdl.h(17308) : see declaration of 'ITaskbarList3'
antonino.prg(61) : error C2227: left of '->SetProgressValue' must point to class/struct/union/generic type
LINK : fatal error LNK1181: cannot open input file 'antonino.obj'
* Linking errors *

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 2:30 pm
by Antonio Linares
It seems to me as you are using C++ mode, not C mode.

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 2:49 pm
by AntoninoP
Hello,
You are using the C++ style, if you look in ShObjIdl.h at line 17366, you can see: above the C++ interface, with method inside the structure, and below the C interface with a structure of pointers at functions that take as first parameter the pointer of interface.
Anyway:
C++:
m_pTaskBarlist->SetProgressState( hWnd, state );
C:
m_pTaskBarlist->lpVtbl->SetProgressState( m_pTaskBarlist, hWnd, state );

I compile with this command:

Code: Select all

hbmk2 taskBarList.prg -gui -i..\include -L..\lib -lFiveH32 -lFiveHC32 xhb.hbc -ldflag=Version.lib -ldflag=oledlg.lib -ldflag=gdiplus.lib -ldflag=/NODEFAULTLIB:libcmt

from the fivewin samples directory.

Here a version that compile in both mode:

Code: Select all

#include <fivewin.ch>
#include <slider.ch>

function main()
   LOCAL oDlg, oBru, nSlider := 40
   DEFINE WINDOW oDlg FROM  0,0 TO 500,400 PIXEL TITLE "TaskBarList" BRUSH oBru
   
   @   8,8 BUTTON "RESET"      SIZE 80,36 PIXEL ACTION TBL_RESET(oDlg:hWnd)
   @  48,8 BUTTON "PROCESSING" SIZE 80,36 PIXEL ACTION TBL_PROCESSING(oDlg:hWnd)
   @  88,8 BUTTON "PROGRESS"   SIZE 80,36 PIXEL ACTION (TBL_SETPROGRESS(oDlg:hWnd), TBL_SETVALUE(oDlg:hWnd, nSlider, 100))
   @ 128,8 BUTTON "ERROR"      SIZE 80,36 PIXEL ACTION TBL_SETERROR(oDlg:hWnd)
   @ 168,8 BUTTON "PAUSE"      SIZE 80,36 PIXEL ACTION TBL_SETPAUSE(oDlg:hWnd)
   
   @ 208,8 SLIDER nSlider HORIZONTAL RANGE 0, 100 SIZE 380,36 PIXEL ON THUMBPOS TBL_SETVALUE(oDlg:hWnd, nVar, 100)
   
   ACTIVATE WINDOW oDlg 
   
return nil

#pragma BEGINDUMP
#include <windows.h>
#include <ShObjIdl.h>
#include <hbapi.h>

ITaskbarList3* TBL_SetProgressState(HWND hWnd, TBPFLAG state)
{
   ITaskbarList3* m_pTaskBarlist;
   HRESULT hr;
#if defined(__cplusplus)
   if((hr = CoCreateInstance( CLSID_TaskbarList, 0, CLSCTX_ALL, IID_ITaskbarList3, ( void ** ) &m_pTaskBarlist ) )==S_OK)
#else
   if((hr = CoCreateInstance( &CLSID_TaskbarList, 0, CLSCTX_ALL, &IID_ITaskbarList3, ( void ** ) &m_pTaskBarlist ) )==S_OK)
#endif
   {
      if (state != -1)
#if defined(__cplusplus) && !defined(CINTERFACE)
         m_pTaskBarlist->SetProgressState( hWnd, state );
#else
         m_pTaskBarlist->lpVtbl->SetProgressState( m_pTaskBarlist, hWnd, state );
#endif
      return m_pTaskBarlist;
   }
   return NULL;
}

 #ifndef _WIN64
   #define GETHWND ( HWND ) hb_parnl( 1 )
#else
   #define GETHWND ( HWND ) hb_parnll( 1 )
#endif

HB_FUNC( TBL_RESET ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_NOPROGRESS); }

HB_FUNC( TBL_PROCESSING ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_INDETERMINATE); }

HB_FUNC( TBL_SETPROGRESS ) //  hWnd, n, max
{ TBL_SetProgressState(GETHWND,TBPF_NORMAL); }

HB_FUNC( TBL_SETVALUE )
{
   HWND hWnd = GETHWND;
   ULONGLONG n = hb_parnll(2);
   ULONGLONG m = hb_parnll(3);
   ITaskbarList3* m_pTaskBarlist = TBL_SetProgressState(GETHWND,(TBPFLAG)-1);
   if( m_pTaskBarlist )
   {
#if defined(__cplusplus) && !defined(CINTERFACE)
      m_pTaskBarlist->SetProgressValue( hWnd, n, m );
#else
      m_pTaskBarlist->lpVtbl->SetProgressValue( m_pTaskBarlist, hWnd, n, m );
#endif
   }
}

HB_FUNC( TBL_SETERROR ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_ERROR); }

HB_FUNC( TBL_SETPAUSE ) //  hWnd
{ TBL_SetProgressState(GETHWND,TBPF_PAUSED); }

#pragma ENDDUMP

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:06 pm
by Antonio Linares
I was able to build it removing /TP flag

I have tested it in Windows 10 and it seems not to work:
Image

I click on the buttons and no action is done

going to digg some more :-)

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:13 pm
by AntoninoP
You really hate me! windows 10!!
:lol: :lol: :lol:

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:16 pm
by Antonio Linares
Antonino,

This control what is supposed to do ? I don't understand what it is for.

I have seen that it is only available from Windows 7 on

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:24 pm
by Antonio Linares
Ok, I found what it does. The color progress bar shown in the taskbar app icon :-)

I have tested it a few times on Windows 10 and just worked once.

Could other users test this EXE on XP, 7 and 8 ?

https://bitbucket.org/fivetech/fivewin- ... arlist.exe

Thanks for the feedback

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:26 pm
by Antonio Linares
Antonino,
AntoninoP wrote:You really hate me! windows 10!!
:lol: :lol: :lol:
I use to test Windows betas before they are publically available to check in advance if Harbour/FWH properly work on them :-)

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:27 pm
by Antonio Linares
BTW, Windows 10 10122 is much more stable! :-)

A very good news

Re: Windows 7 taskbar button progress bar

Posted: Thu May 28, 2015 3:35 pm
by AntoninoP
Antonio Linares wrote:Ok, I found what it does. The color progress bar shown in the taskbar app icon :-)

I have tested it a few times on Windows 10 and just worked once.

Could other users test this EXE on XP, 7 and 8 ?

https://bitbucket.org/fivetech/fivewin- ... arlist.exe

Thanks for the feedback
I am using windows 7 and It should works fine on Windows 8
On XP it should fails to create the Interface and manage it.
All times are UTC
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited