Пытаюсь выставить нужные размеры в панели задач, но они все время возвращаются к исходным значения (через секунду), как зафиксировать их размеры под WinMe
| Код |
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); {часы}
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
GetHandles; {получаем хендлы}
SetWindowPos(hSysTab, 0, 0, 0, 794, 22, SWP_NOMOVE); {меняем размеры панели задач}
SetWindowPos(hTray, 0, 855, 0, 165, 22, SWP_SHOWWINDOW); {размер и позицию иконок с часами}
SetWindowPos(hTime, 0, 0, 0, 102, 20, SWP_NOMOVE); {размер часов}
end;
|
хочу вместо стандартных часов в трее запихнуть свои, но большего размера  |