Ir para conteúdo
Fórum Script Brasil
  • 0

Mudando O Botão Iniciar Do Windows.


Rodolfo_Bass

Pergunta

3 respostass a esta questão

Posts Recomendados

  • 0

Olha só não sei muito bem o que você quer

mas ta ai

pra mudar e retornar a figura do botao iniciar ..

//para deixar o botao padrão
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
SendMessage(Iniciar,BM_SetImage,0,OldBitmap);
NewImage.Free;
end;
//para setar um figura nova
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
NewImage:=TPicture.create;
NewImage.LoadFromFile(OpenPictureDialog1.FileName);
Iniciar := FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'Button',nil);
OldBitmap:=SendMessage(Iniciar,BM_SetImage,0,NewImage.Bitmap.Handle);
end;

Espero que seja isso que você esteja querendo abraços e fui

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152,2k
    • Posts
      651,9k
×
×
  • Criar Novo...