修改系统托盘区宽度

Question

var
  Form1: TForm1;
 hSysTab,hTray,htime:Hwnd;
implementation
{$R *.DFM}procedure TForm1.GetHandles;
begin
hSysTab:=FindWindow('Shell_TrayWnd', nil);
 hSysTab:=FindWindowEx(hSysTab, 0, 'ReBarWindow32', nil); hTray:=FindWindow('Shell_TrayWnd', nil);
 hTray:=FindWindowEx(hTray, 0, 'TrayNotifyWnd', nil); hTime:=FindWindow('Shell_TrayWnd', nil);
 hTime:=FindWindowEx(hTime, 0, 'TrayNotifyWnd', nil);
 hTime:=FindWindowEx(hTime, 0, 'TrayClockWClass', nil);
procedure TForm1.Button1Click(Sender: TObject);
begin GetHandles;
 SetWindowPos(hSysTab, 0, 0, 0, 794, 22, SWP_NOMOVE);
 SetWindowPos(hTray, 0,790, 0, 300, 22, SWP_SHOWWINDOW);
 SetWindowPos(hTime, 0, 0, 0, 102, 20, SWP_NOMOVE);
end;上面的代码可以实现调整宽度，但是系统闪一下，又会恢复原来的宽度。这该怎么做呀.（让调整后不再回去）.

Answer 1

偶的win2003，好象调整之后如果托盘区不刷新就不会调整回去，一旦加入个图标就会被整调掉。

Answer 2

用鉤子吧，我也不太清楚具體做法。可以參考一下這裡的老毛子的文章。
他是用鉤子實現換皮膚的系統時鐘。上次我問Kingron,他說很簡單。http://msk.nestor.minsk.by/kg/2005/07/kg50704.html連接有點慢，多刷幾次。

Answer 3

to sailxia, 那个网址的代码中间少了好多。dll无法编　译通过

Answer 4

http://www.somade.com/是个很专业的技术社区,去那里找找吧,或许有你要的答案~