Desktop & Taskbar

[Starworld1000]

Hallo zusammen

Ich bin auf der Arbeit darauf aufmerksam gemacht worden, das eine Desktopverwaltung ganz nützlich wäre. Da ich mich hier an Standards halten muss, entwerfe ich mal schnell selbst ein Tool dazu.
Nun hänge ich einwenig an der Umsetzung !


[code]
procedure TForm1.Button1Click(Sender: TObject);

var desktop : HDESK ;
begin
desktop := CreateDesktop('mydesk',nil,nil,0,
DESKTOP_CREATEMENU or DESKTOP_CREATEWINDOW or
DESKTOP_ENUMERATE or DESKTOP_HOOKCONTROL or
DESKTOP_WRITEOBJECTS or DESKTOP_READOBJECTS or
DESKTOP_SWITCHDESKTOP or GENERIC_WRITE,
nil);
SwitchDesktop(desktop);
SetThreadDesktop(desktop);
end;

Das funktioniert auch ganz toll, nur wie bekomm ich nun die Windows Taskbar auf den neuen Desktop?
Hat jemmand eine Idee ?

Liebe Grüße