This site is temporarily down. Please come back. Show/ Hide the 'Start' button
DelphiFAQ Home Search:

Show/ Hide the 'Start' button

 

commentsThis article has not been rated yet. After reading, feel free to leave comments and rate it.

The following procedure hides or shows the start button:

Procedure hideStartbutton (visi: boolean);
Var
  Tray,
  Child : HWnd;
  c     : Array [0..127] Of Char;
  s     : String;
Begin { hideStartButton } 
  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 
        // IsWindowVisible(Child) 
        startbutton_handle := Child; 
        If visi Then 
          ShowWindow (Child, 1) 
        Else 
          ShowWindow (Child, 0) 
      End 
    End;
    Child := GetWindow (Child, GW_HWNDNEXT) 
  End
End; { hideStartButton }

Content-type: text/html

Comments:

2007-02-01, 13:47:31
frever39@yahoo.com from United States  
How do I use the Hide start button procedure. Where do I put it. Thank for your help and concern. Sincerly Bill

 

 

NEW: Optional: Register   Login
Email address (not necessary):

Rate as
Hide my email when showing my comment.
Please notify me once a day about new comments on this topic.
Please provide a valid email address if you select this option, or post under a registered account.
 

Show city and country
Show country only
Hide my location
You can mark text as 'quoted' by putting [quote] .. [/quote] around it.
Please type in the code:

Please do not post inappropriate pictures. Inappropriate pictures include pictures of minors and nudity.
The owner of this web site reserves the right to delete such material.

photo Add a picture: