Esconder / Mostrar o botão Iniciar do Windows

 

Crie uma procedure com o seguinte código:.

 

var

  barra, botao: HWND;

begin

  barra := FindWindow('Shell_TrayWnd', nil );

  botao := GetWindow(barra, GW_CHILD);

  if Visible then

     {mostra o botão}

     ShowWindow(botao, SW_RESTORE)

  else;

     {esconde o botão}

     ShowWindow(botao, SW_HIDE);

end;

 

por Luciano Pimenta