隐藏启动菜单
procedure hideTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
// This hides the taskbar
ShowWindow(wndHandle, SW_HIDE);
end;
//隐藏右键菜单
procedure showTaskbar;
var wndHandle : THandle;
wndClass : array[0..50] of Char;
begin
StrPCopy(@wndClass[0], 'Shell_TrayWnd');
wndHandle := FindWindow(@wndClass[0], nil);
// This restores the taskbar
ShowWindow(wndHandle, SW_RESTORE);
end;