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