28.02.2009, 23:36 | #1 (permalink) |
Member
Регистрация: 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; где это все писать? |
28.02.2009, 23:36 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
По этим ссылкам вы можете найти решение проблемы Пропал пуск и ярлыки Кнопка FN на ноутбуке Все пропало с рабочего стола и кнопка "Пуск" тоже.. Пропало меню пуск Настройка меню пуск на компьтере |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Метки |
кнопка пуск |
Опции темы | |
Опции просмотра | |
|
|