Delphi

Разработка сайтов

Наши проекты

Главная » Статьи по Delphi » Рабочий стол » Изменить текст кнопки "Пуск"

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

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

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

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;

Ремонт ноутбуков

Сеть компьютерных салонов в Ярославле. Ремонт бытовой и оргтехники.

asp-service.ru
Тамада на свадьбу

Дискуссионная площадка "Пресс-Клуб". Услуги тамады.

antonovshow.ru

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

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