Изменить размер кнопки ПУСК

Изменить размер кнопки ПУСК

procedure TForm1.Button1Click(Sender: TObject);
 begin
  MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),
  300, 0, 80, 22, true);
 end;

Взято с сайта: http://www.swissdelphicenter.ch

А не знаете, как достучаться до Пуска в windows 7? Старые трюки с исчезновением кнопочки и "убеганием" её от мышки там не работают :(

Этот код в XP сработает,в семёрке WinAPI изменился, поэтому код уже не пойдёт. Тоже было бы интересно найти аналогичное решение.

Windows 7 - фигня! У кого она - идите скачивайте вин хр и нет проблем!!!

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
Проверка
Антиспам проверка
Image CAPTCHA
...