TProgressbar auf der Taskleiste plazieren

[Amalkotey]

Moin,

Habe schon heftig gesucht, aber leider nichts verwertbares gefunden. Ich möchte ein TProgressBar auf die Taskbar legen (z. B. wie Desktop-Search von Google). Wie ich das Handle ermittel habe ich beim googeln gefunden:

Delphi-Quellcode:

Var
  Shell_TrayWnd,
  ReBarWindow32,
  MSTaskSwWClass,
  ToolbarWindow32: HWND;
  Progress: TProgressBar;

Begin
  Shell_TrayWnd   := FindWindow('Shell_TrayWnd',0);
  ReBarWindow32   := FindWindowEx(Shell_TrayWnd,0,'ReBarWindow32',0);
  MSTaskSwWClass  := FindWindowEx(ReBarWindow32,0,'MSTaskSwWClass',0);
  ToolbarWindow32 := FindWindowEx(MSTaskSwWClass,0,'ToolbarWindow32',0);

  If ToolbarWindow32 <> 0 Then Begin
    Progress := TProgressBar.CreateParented(ToolbarWindow32);
    ...
    Progress.Free;
  End Else Raise
    Exception.Create('konnte Shell_TrayWnd-ReBarWindow32-MSTaskSwWClass-ToolbarWindow32 nicht finden');

Leider habe ich keine Vorstellung, wie ich die Progressbar anzeigen und aktualisieren kann. Über euere Hilfe würde ich mich freuen. Vielen Dank im voraus.

Gruss
Amalkotey