Windows 10 progress bar api

[unixkd]

Hi all

Thanks for your contributions.

Greatly appreciated.

Joe

[unixkd]

Furthermore

I am still having issues with postgresql backup which I posted under postgresql topic

Thanks

Joe

[Auge_Ohr]

hi,

here are the *.EXE from DEMO CODE compiled by "Microsoft Visual Studio\2022\Community" (free) under Fivewin/harbour.
harbour can use "C" CODE "direct" in a *.PRG so it i easy to use "C" CODE Sample like from ShlObj_core.h

PPROGRES.zip

(1.84 MiB) Downloaded 90 times

[SlavkoDam]

Hi,

I created a new function ProgDlg() in my PowerUtl library, using Alaska CAPI and WinAPI interface IProgressDialog. This interface doesn't has a graph display option. Here is an example on Windows 8.

ProgDlg.JPG (20.71 KiB) Viewed 1089 times

@Jimmy. I can't run your demo PPROGRES.EXE on Windows 8, what could be a problem?

[Auge_Ohr]

hi,

@Jimmy. I can't run your demo PPROGRES.EXE on Windows 8, what could be a problem?

i have never try to run it under Windows 8, only under Windows 10 /11

[unixkd]

Hi SlavkoDam and Jimmy

Thanks a lot for your contributions, great.

I was just thinking that Progress bar with graphs could be done.

Once more thanks for your time.

Joe

[SlavkoDam]

Hi Joe,

If you are looking for the following progress display with graph, it is achieved with WinAPI function SHFileOperation(). It is used for file operations copy, move, rename, delete. It has the same outlook on Windows 8, as well.

Progress.png (15.78 KiB) Viewed 192 times

[unixkd]

Hi Slavkodam

Great to hear from you. That's the progressbar I am talking about. You are very correct.

The winapi you mentioned is it easy to implement.

Once again thanks for your contributions.

Joe

[SlavkoDam]

The winapi you mentioned is it easy to implement.

This winapi is easy to implement in Xbase++. I implemented it in function FileOper() in my PowerUtl library. If you have problem with that, let me know.

Slavko

[unixkd]

Hi Slavkodam

Thanks for your response.

I am using ot4Xb library and I am aware that I have to pass a STRUCTURE to the api SHFileOperation(). Therefore the structure will look as follows:

BEGIN STRUCTURE oFileOperation
MEMBER BOOL hWind
MEMBER BYTE wFunc
MEMBER WORD pFrom
MEMBER DWORD pTo
MEMBER DWORD64 fFlags
MEMBER DOUBLE fAnyOperationAborted
MEMBER FLOAT hMappings
MEMBER BINSTR lpzProgressTitle SIZE 100
END STRUCTURE

Then I will have

Local oFParam := oFileOperation():New()
oFParam:hWind := CurrentWindowHandle()
oFParam:wFunc := I don't know
oFParam:pFrom := "C:\My_Documents\0\0"
oFParam:pTo := "E:\My_Documents\0\0"
oFParam:fFlags := I don't know
oFParam:fAnyOperationAborted := 0
oFParam:hMappings := I don't know
oFParam:lpzProgressTitle := "Coping Files..."

@Shell32:SHFileOperation(oFParam)

Now I dont know if my inputs are correct and some values, I dont know.

Need help on that

Thanks

Joe