Category: Windows
Title: Control the windows task bar and the windows start button
Author: Damian Cipolat
E-mail: Damian_Cipolat@hotmail.com
Date added: 02.06.2006
Hits: 1853


procedure TForm1.Button1Click(Sender: TObject);
var
  hTaskBar : THandle;
begin
  hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  ShowWindow(hTaskBar, SW_HIDE);
end;

// Show the windows task bar.

procedure TForm1.Button2Click(Sender: TObject);
var
  hTaskBar : THandle;
begin
  hTaskbar := FindWindow('Shell_TrayWnd', Nil);
  ShowWindow(hTaskBar, SW_SHOWNORMAL);
end;


// Hide the windows start button.

procedure TForm1.Button1Click(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;

// Show the windows start button.

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


// Disable the windows start button.

procedure TForm1.Button3Click(Sender: TObject);
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),false);
end;

// Enable the windows start button.

procedure TForm1.Button4Click(Sender: TObject);
begin
  EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil),0,'Button',nil),true);
end

1. How to hide icons on the Desktop? (2314 Hits)

2. How to start the screensaver? (1691 Hits)

3. How to hide a program from the taskbar? (2327 Hits)

4. How to restart the own program? (3653 Hits)

5. How to install a keyboard hook? (15314 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.