我想把windows2000托盘的时间显示替换掉，有什么办法？(100分)

我想把windows2000托盘的时间显示替换掉，有什么办法？

做个假窗口把原来的遮住

FindWindow('TaskXXX')

用下面函数隐藏它.再显示你自己的在托盘区.
function ShowTrayClock(bValue: Boolean) : Boolean;
var
TrayWnd, TrayNWnd, ClockWnd: HWND;
begin

TrayWnd := FindWindow('Shell_TrayWnd', nil);
TrayNWnd := FindWindowEx(TrayWnd, 0, 'TrayNotifyWnd', nil);
ClockWnd := FindWindowEx(TrayNWnd, 0, 'TrayClockWClass', nil);
Result := IsWindow(ClockWnd);
if Result then

begin

ShowWindow(ClockWnd, Ord(bValue));
PostMessage(ClockWnd, WM_PAINT, 0, 0);
end;

end;

peng_qs：
请问我怎么样才能确保我们的时钟显示在托盘的最右边啊？
还有，我想把日期也显示出来，可是好像没有那么大的区域，有办法吗？