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

Автор: Борисов Сергей

Tweet

Есть один маленький недостаток. Текст через некоторое время изменится обратно.

Procedure SetTextStartButton(Text: String);
var H, H2:HWND;
begin
  H:=FindWindow('Shell_TrayWnd', nil);
  H2:=FindWindowEX(H, 0, 'Button', nil);
  if h2<>0 then
  begin
    SetWindowText(H2, PAnsiChar(Text));
    SendMessage(H2, WM_UPDATEUISTATE,0,0);
  end;
end;

• Виджеты для андроид

  Контактные данные дистрибьюторов. Поиск по записям.

  apk-market.ru

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

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

---

Имя *:
Email:
Все смайлы
Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта

Гостевая книга