Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

SendMessage(Self.Handle, WM_SYSCOMMAND, SC_TASKLIST, 0);

end;

 

 

Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).

 

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

  MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),

             300, 0, 80, 22, true);

end;

 

 

Итак, если Вам надоело привычное статическое изображение кнопки "Пуск", то предлагаю немного оживить её :) Надеюсь, что это доставит Вам удовольствие.

Для начала создайте какой-нибудь Bitmap, который вы будете натягивать на кнопку [т.к. такого понятия как "заголовок кнопки ПУСК" в действительности не существует], а та надпись, что находится на стартовой кнопке, является рисунком. Создавая рисунок, учитывайте размеры и то, что левая сторона должна быть "плоской", как у нас на рисунке слева, это связано с особенностями наложения.

 

 

Приведенный пример прячет и показывает кнопку "Пуск", а также разрешает и запрещает ее.