[DELPHI] ESCONDER OU MOSTRAR O BOTÃO INICIAR DO WINDOWS

procedure EsconderIniciar(Visible: Boolean);

Var

  thandle, bhandle: HWnd;

begin

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

  bhandle:= GetWindow(thandle, GW_CHILD);

  If ( Visible = True ) Then

    ShowWindow(bhandle, SW_RESTORE) { mostra o botão }

  else

    ShowWindow(bhandle, SW_HIDE); { esconde o botão }

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  EsconderIniciar(True);

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】