------------网上找的
使程序中的每个Form都产生一个任务条
重载CreateParam函数并进行处理:
protected
procedure CreateParams(Var Param:TCreateParams);override;
....
....
procedure TForm1.CreateParams(Var Param:TCreateParams);
begin
Inherited CreateParams(Param);
Param.wndParent := GetDesktopWindow;
end;