Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 604
  • Last Modified:

Hide the Taskbar

Is there any delphi 5 routine(or any other way) that I can hide the task bar in Windows 98.
0
alshepstone
Asked:
alshepstone
  • 2
1 Solution
 
alanwhincupCommented:
Here you are:

// Hide Taskbar
procedure TForm1.Button1Click(Sender: TObject);
var
  H : HWND;
begin
  H := FindWindow('Shell_TrayWnd', nil);
  if H <> 0 then
    ShowWindow(H, SW_HIDE);
end;

// Show Taskbar
procedure TForm1.Button2Click(Sender: TObject);
var
  H : HWND;
begin
  H := FindWindow('Shell_TrayWnd', nil);
  if H <> 0 then
    ShowWindow(H, SW_SHOW);
end;

Cheers,

Alan
0
 
alanwhincupCommented:
Or if you wish to keep the taskbar visible but disable it then try the below:


// Disable Taskbar
procedure TForm1.Button1Click(Sender: TObject);
var
  H : HWND;
begin
  H := FindWindow('Shell_TrayWnd', nil);
  if H <> 0 then
    EnableWindow(H, False);
end;

// Enable Taskbar
procedure TForm1.Button2Click(Sender: TObject);
var
  H : HWND;
begin
  H := FindWindow('Shell_TrayWnd', nil);
  if H <> 0 then
    EnableWindow(H, True);
end;
0

Featured Post

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now