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