Кнопка ПУСК
фокус с кнопкой ПУСК:
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; где это все писать? |
Часовой пояс GMT +4, время: 05:33. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.