Category: Windows
Title: Hide the start button
Date added: 15.03.2006
Hits: 1826


procedure ShowStartButton(bValue: 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
        if bValue = True then ShowWindow(Child, 1)
        else
          ShowWindow(Child, 0);
      end;
    end;
    Child := GetWindow(Child, GW_HWNDNEXT);
  end;
end;

1. How to get the content of clipboard? (2432 Hits)

2. How to check if Windows taskbar's auto hide feature enabled? (1491 Hits)

3. How to kill a task? (5232 Hits)

4. How to change the caption of other applications? (1725 Hits)

5. How to invoke Shutdown Windows dialog? (2753 Hits)

For any problems or recommendations about Delphi Tricks site, please

feel free to contact us on that e-mail: support@delphitricks.com.
If you want to advertise on the site use that e-mail: advertise@delphitricks.com.

You can freely use or modify these Delphi source codes for non-commercial use. We are not responsible of any damages that can be caused by the utilisation of that source codes.