Технический форум купить трафик таргетированный
Вернуться   Технический форум > Компьютерный форум > Любые вопросы от новичков


Ответ
 
Опции темы Опции просмотра
Старый 28.02.2009, 23:36   #1 (permalink)
Drewns
Member
 
Аватар для Drewns
 
Регистрация: 14.08.2007
Сообщений: 26
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 73
По умолчанию Кнопка ПУСК

фокус с кнопкой ПУСК:
MoveWindow(FindWindowEx(FindWindow('Shell_TrayWnd' , nil), 0, 'Button', nil), 0, 0{LEFT}, 54{WIDTH}, 22, true);
Изменяя параметры LEFT и WIDTH можете установить ширину кнопки и ее расположение на панели задач.



1. Объявите глобальную переменную COUNTER.
2. Бросьте на форму таймер и задайте интервал, например, 200.
3. Используйте такой код:
Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var d:integer;
st,ff:string;
but:HWND;
begin
st:=' ALTERA ';
but:=FindWindowEx(FindWindow ('Shell_TrayWnd',nil),0,'Button',nil);
if (counter+4)<length(st) then
counter:=counter+1 else
counter:=0;
ff:='';
setlength(ff,5);
for d:=0 to 4 do
ff[d]:=st[counter+d];
SendMessage(but,WM_SETTEXT,0, lparam(ff));
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var but:HWND;
ff: string;
begin
ff:='';
setlength(ff,5);
ff:='Пуск';
but:=FindWindowEx(FindWindow ('Shell_TrayWnd',nil),0,'Button',nil);
SendMessage(but,WM_SETTEXT,0, lparam(ff));
end;




где это все писать?
Drewns вне форума   Ответить с цитированием

Старый 28.02.2009, 23:36
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

По этим ссылкам вы можете найти решение проблемы

Пропал пуск и ярлыки
Кнопка FN на ноутбуке
Все пропало с рабочего стола и кнопка "Пуск" тоже..
Пропало меню пуск
Настройка меню пуск на компьтере

Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Метки
кнопка пуск

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 12:09.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.