Progresbar zur Laufzeit zur Marquee ProgressBar machen?

[FriFra]

So, jetzt hab ichs...

Delphi-Quellcode:

const
  PBS_MARQUEE  = $08;
  PBM_SETMARQUEE = WM_USER + 10;
var
  cs:LongInt;
begin
  cs := GetWindowLong(ProgressBar1.Handle, GWL_STYLE);
  SetWindowLong(ProgressBar1.Handle, GWL_STYLE, cs Or PBS_MARQUEE);
  SendMessage(ProgressBar1.Handle, PBM_SETMARQUEE, 1, 40);
...

Aber das ganze funktioniert leider nur, wenn die unit XPMan engebunden wurde ... somit kann ich's nicht gebrauchen
Bekommt man den ProgressBar auch ohne XPMan in den Marquee-Style?

[Edit]
Ups... da war ja wieder einer schneller