Welcome to BitCell. Click here to register !
Let's begin the party code
.In primul rand trebuie sa definim cateva variabile globale.
- var StartButton : hWnd;
- OldBitmap : THandle;
- NewImage : TPicture;
Apoi cream un event in form-ul principal numit "OnCreate"
- procedure TForm1.FormCreate(Sender: TObject) ;
- begin
- NewImage:=TPicture.Create;
- NewImage.LoadFromFile('C:\Windows\fotografie.BMP') ; {dam calea de acces catre fotografie + extensia}
- StartButton := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil) ;
- OldBitmap:=SendMessage(StartButton, BM_SetImage, 0, NewImage.Bitmap.Handle) ;
- end;
Al doilea event care trebuie creat este "OnDestroy", caruia ii atribuim urmatorul cod.
- procedure TForm1.FormDestroy(Sender: TObject) ;
- begin
- SendMessage(StartButton, BM_SetImage, 0, OldBitmap) ;
- NewImage.Free;
- end;
Sper ca am tradus bine si nu am greseli in cod, nu l-am testat inca, dar o sa o fac dupa sesiune.
P.S. Sper sa nu iau bataie pentru cod de la cei doi Delphi Masters
.
