Solved

How to kill that annoying Start button?

Posted on 2001-07-31
6
188 Views
Last Modified: 2010-08-05
How can i HIDE the start button and make sure that it cant be accessed from the keyboard?
0
Comment
Question by:Yevgen
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
6 Comments
 
LVL 2

Expert Comment

by:joepezt
ID: 6338017

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
 

Author Comment

by:Yevgen
ID: 6338533
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
 
LVL 5

Accepted Solution

by:
alanwhincup earned 50 total points
ID: 6338793
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
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Expert Comment

by:St3v13
ID: 6338796
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
 

Author Comment

by:Yevgen
ID: 6338813
Great Idea and works great...

I did everything but i havent thought about setting the Parent window to 0... Thanks...
0
 

Author Comment

by:Yevgen
ID: 6338818
Alanwhincup's way is the best...
0

Featured Post

Enroll in June's Course of the Month

June’s Course of the Month is now available! Experts Exchange’s Premium Members, Team Accounts, and Qualified Experts have access to a complimentary course each month as part of their membership—an extra way to sharpen your skills and increase training.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special. It's completely agentless, but does let you create an agent, if you desire. It offers powerful scalability …
Monitoring a network: how to monitor network services and why? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the philosophy behind service monitoring and why a handshake validation is critical in network monitoring. Software utilized …

691 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question