How to kill that annoying Start button?

How can i HIDE the start button and make sure that it cant be accessed from the keyboard?
YevgenAsked:
Who is Participating?
 
alanwhincupConnect With a Mentor Commented:
Try this:

procedure ShowStartButton(Visible : Boolean);
var
  H, TaskWindow : hWnd;
begin
  if Visible = True then
  begin
    H := FindWindowEx(GetDesktopWindow, 0, 'Button', nil);
    TaskWindow := FindWindow('Shell_TrayWnd', nil);
    ShowWindow(H, SW_SHOW);
    Windows.SetParent(H, TaskWindow);
  end
  else
  begin
    H := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
    ShowWindow(H, SW_HIDE);
    Windows.SetParent(H, 0);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowStartButton(False);
end;
0
 
joepeztCommented:

if you want to hide the entire taskbar this should do the trick


  Procedure HideTaskBar(yesno : boolean);
  begin
  if yesno = true then
     ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE)
     else ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_SHOW);
  end;

0
 
YevgenAuthor Commented:
I know about that but i need the TaskBar and i want to make the Start button go away even if the Windows button on the keyboard is pressed...
0
Cloud Class® Course: SQL Server Core 2016

This course will introduce you to SQL Server Core 2016, as well as teach you about SSMS, data tools, installation, server configuration, using Management Studio, and writing and executing queries.

 
St3v13Commented:
procedure TForm1.Button6Click(Sender: TObject);
var  Rgn : hRgn;
begin
{Hide the start button}
      Rgn := CreateRectRgn(0, 0, 0, 0);
      SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                      'Button',
                                       nil),
                                       Rgn,
                                       true);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  {Turn the start button back on}
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                      'Button',
                                       nil),
                                       0,
                                       true);
end;

:-)
Stephen
0
 
YevgenAuthor Commented:
Great Idea and works great...

I did everything but i havent thought about setting the Parent window to 0... Thanks...
0
 
YevgenAuthor Commented:
Alanwhincup's way is the best...
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.