Veja como esconder o botão iniciar do Windows.

Em algumas situações desejamos esconder o botão iniciar do Windows para que nosso usuário não tenha acesso a outros programas. Para fazer isto é bem simples. procedure HideButton(Visible: Boolean); var   TaskBar: HWND;   ButHand: HWND; begin   TaskBar := FindWindow('Shell_TrayWnd', nil);   ButHand := GetWindow(TaskBarHandle, GW_CHILD);   if Visible then      ShowWindow(ButtonHandle, SW_RESTORE)   else      ShowWindow(ButtonHandle, SW_HIDE) end; Para esconder o botão basta chamar a procedure acima: HideButton(False); E para mostrar o botão basta chamar a mesma procedure: HideButton(True);

Quebra-Linha

Colaborador..: Marcelo Torres
Categoria(s).: Delphi;
Versão.......: 1.0
Data.........: 20/12/2004 11:14:13
Visualizado..: 4745 vezes
Fonte........: Marcelo Torres