Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > Как изменить картинку пуска в XP?


Автор: TDM 1.2.2006, 12:53
Как это сделать?

Автор: _hunter 1.2.2006, 13:15
что поинмается под "картинка пуска"?

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

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

Автор: ~FoX~ 1.2.2006, 16:16
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

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

посущесву:

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


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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)