![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
![]()
кто нибудь знает как заменить кнопку пуск
вот мой код: { объявляем глобальные переменные } var Form1: TForm1; StartButton: hWnd; OldBitmap: THandle; NewImage: TPicture; { добавляем следующий код в событие формы OnCreate } procedure TForm1.FormCreate(Sender: TObject); begin NewImage := TPicture.create; NewImage.LoadFromFile('C:\Windows\Circles.BMP'); StartButton := FindWindowEx (FindWindow( 'Shell_TrayWnd', nil), 0,'Button', nil); OldBitmap := SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle); end; { Событие OnDestroy } procedure TForm1.FormDestroy(Sender: TObject); begin SendMessage(StartButton,BM_SetImage ,0,OldBitmap); NewImage.Free; end;
ICQ-465033557
WINDOWS CE THE BEST |
![]() |
![]() |
![]() |
#2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 183
|
![]()
Если у тебя XP то в нём вроде нельзя поменять изображение
Until The End Of Time
|
![]() |
![]() |
![]() |
#3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
I'm learning to live...
|
![]() |
![]() |
![]() |
#4 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
![]()
это я там вопрос задал
ICQ-465033557
WINDOWS CE THE BEST |
![]() |
![]() |
![]() |
#5 |
Форумчанин Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 183
|
![]()
Значит можно
Until The End Of Time
|
![]() |
![]() |
![]() |
#6 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
![]()
можно но при наведении исчезает
делаю таймер с интервалом 1 все равно на мгновение исчезает делаю цикл while true do begin комп виснет
ICQ-465033557
WINDOWS CE THE BEST |
![]() |
![]() |
![]() |
#7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Хук можеш поставить или заменить оконную процедуру кнопки.
I'm learning to live...
|
![]() |
![]() |
![]() |
#8 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
![]()
на что и как хук
ICQ-465033557
WINDOWS CE THE BEST |
![]() |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
![]()
Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).
Код:
Последний раз редактировалось Трофимов Александр; 05.09.2007 в 08:11. |
![]() |
![]() |
![]() |
#10 | |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
![]() Цитата:
ICQ-465033557
WINDOWS CE THE BEST |
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Caption кнопки ПУСК (START) - изменить надпись на кнопке Пуск в Windows XP | Altera | Win Api | 19 | 29.12.2011 15:49 |
Кнопка пуск | Черничный | Общие вопросы Delphi | 2 | 07.08.2008 08:30 |
Пуск | Rahim1993 | Общие вопросы Delphi | 4 | 10.02.2008 20:14 |
аналог меню пуск | RammFan | Общие вопросы Delphi | 14 | 27.02.2007 08:49 |