Mega Code Archive
Task Bar problem
Title: Task Bar problem
Question: How to hide and restore back TaskBar?
Answer:
//first you need these two procedures
procedure hideTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_HIDE); // This hides the taskbar
end;
procedure showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
ShowWindow(wndHandle, SW_RESTORE); // This restores the taskbar
end;
//Just call first procedure OnCreate or OnActivate
//and second onDestroy or onDeactivate
//like this:
procedure TForm1.FormCreate(Sender: TObject);
begin
hideTaskbar;
end;
//
procedure TForm1.FormCreate(Sender: TObject);
begin
showTaskbar;
end;