VPF::Как изменить картинку пуска в XP?

TDM

Дата 1.2.2006, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.2.2006
Где: SPB

Репутация: нет
Всего: нет

Как это сделать?

_hunter

Дата 1.2.2006, 13:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 9
Всего: 98

что поинмается под "картинка пуска"?

--------------------

Tempora mutantur, et nos mutamur in illis...

Snowy

Дата 1.2.2006, 13:19 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Лучше никак. Рискованное это занятие.
Картина зашита в ехешник, который может меняется автоапдейтом или сервиспаками.

TDM

Дата 1.2.2006, 16:00 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 1.2.2006
Где: SPB

Репутация: нет
Всего: нет

Ну хотя бы как открыть пуск? Можно сделать форму с рисунком, поместить на пуск, а в OnClick чё писать?

~FoX~

Дата 1.2.2006, 16:16 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 0
Всего: 68

TDM
Скачай себе ДРКБ

Код


Автор: Misha Moellner 

Пример из серии "Что можно сделать с рабочим столом". В общем, это обычный трюк с кнопкой "Пуск" (Start). 

{ объявляем глобальные переменные }  

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;

http://vingrad.ru/DELPHI-DLP-000652

Это сообщение отредактировал(а) ~FoX~ - 1.2.2006, 16:18

--------------------

…множественность никогда не следует полагать без необходимости…

Дата 2.2.2006, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

не посущесву:
~FoX~
Это старый код украденный с http://www.swissdelphicenter.ch/en/
к томуже не рабочий под XP.

посущесву:

Либо менять в ресурсах explorer-а либо если установленна тема то в теме.

ЗЫ: Наверняка если порыться в памяти процесса то можно и там сменить smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »