|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.09.2007, 15:13 | #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 |
03.09.2007, 15:18 | #2 |
Форумчанин Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 183
|
Если у тебя XP то в нём вроде нельзя поменять изображение
Until The End Of Time
|
03.09.2007, 15:42 | #3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
I'm learning to live...
|
03.09.2007, 15:56 | #4 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
это я там вопрос задал
ICQ-465033557
WINDOWS CE THE BEST |
03.09.2007, 20:23 | #5 |
Форумчанин Подтвердите свой е-майл
Регистрация: 08.08.2007
Сообщений: 183
|
Значит можно
Until The End Of Time
|
03.09.2007, 20:39 | #6 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
можно но при наведении исчезает
делаю таймер с интервалом 1 все равно на мгновение исчезает делаю цикл while true do begin комп виснет
ICQ-465033557
WINDOWS CE THE BEST |
04.09.2007, 09:38 | #7 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Хук можеш поставить или заменить оконную процедуру кнопки.
I'm learning to live...
|
04.09.2007, 17:38 | #8 |
Дельфист
Форумчанин
Регистрация: 14.08.2007
Сообщений: 317
|
на что и как хук
ICQ-465033557
WINDOWS CE THE BEST |
05.09.2007, 08:07 | #9 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start).
Код:
Последний раз редактировалось Трофимов Александр; 05.09.2007 в 08:11. |
05.09.2007, 08:20 | #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 |