Alterando foto do menu INICIAR

[Master_GC15 0]

Ola Pessoal To aki para postar Como Colokar Uma foto no menu iniciar

 

1° Passo

 

Variáveis globais do form:

 

var

Form1: TForm1;

Iniciar : hWnd;

OldBitmap : THandle;

NewImage : TPicture;

 

2°Passo

 

No Oncreate do Form:

 

 

procedure TForm1.FormCreate(Sender: TObject);

begin

NewImage:=TPicture.create;

NewImage.LoadFromFile('C:\Delphi3\Images\DEFAULT\OutOpen.BMP');

Iniciar := FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);

OldBitmap:=SendMessage(Iniciar,BM_SetImage,0,NewImage.Bitmap.Handle);

end;

 

3°Passo

 

No OnDestroy

 

procedure TForm1.FormDestroy(Sender: TObject);

begin

SendMessage(Iniciar,BM_SetImage,0,OldBitmap);

NewImage.Free;

end;

 

Espero ter ajudado

 

OBRIGADO