Изменить размер кнопки ПУСК
Falk0ner, вс, 06/07/2008 - 15:34.
Изменить размер кнопки ПУСК
procedure TForm1.Button1Click(Sender: TObject);
begin
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),
300, 0, 80, 22, true);
end;
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 - фигня! У кого она - идите скачивайте вин хр и нет проблем!!!
ресурс понравился и админ отлично придумал Домашний Очаг №2 HQ Умный аватар вконтакте Новая Книга рекордов Гиннеса 2008 Магнолия / Magnolia BDRip 1080p База «Клейтон» / Basic DVDRip
Отправить комментарий