Hiding the windows start button

This article demonstrates how to hide the start button in Windows.

procedure hideStartbutton(visi:boolean);

Var

  Tray, Child : hWnd;

  C : Array[0..127] of Char;

  S : string;

begin

  Tray := FindWindow('Shell_TrayWnd', NIL);

  Child := GetWindow(Tray, GW_CHILD);

  while Child <> 0 do

  begin

    if GetClassName(Child, C, SizeOf(C)) > 0 then

    begin

      S := StrPAS(C);

      if UpperCase(S) = 'BUTTON' then

      begin

        startbutton_handle:=child;

        If Visi then ShowWindow(Child, 1) else ShowWindow(Child, 0);

      end;



    end;

    Child := GetWindow(Child, GW_HWNDNEXT);

  end;

end;

 

Share this article!

Follow us!

Find more helpful articles: