Изменить размер кнопки "Пуск"

Автор: http://www.swissdelphicenter.ch

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

Просмотров: 5143

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.