Coloca en el formulario un
componente TTaskbar.
Con código como este, puedes conseguir el efecto que necesitas:
Código Delphi
[-] Taskbar1.ProgressMaxValue := ProgressBar1.Max;
Taskbar1.ProgressState := TTaskBarProgressState.Normal;
for var i:integer := 0 to 99 do begin
ProgressBar1.Position := i;
Taskbar1.ProgressValue := i;
Sleep(60);
Application.ProcessMessages;
end;
En un Windows 10 se ve así:
En un Windows 11, así:
