Hide the desktop icon and taskbar

Unit unit1; interfaceuses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, stdctrls; Type tform1 = Class (tform) checkbox1: tcheckbox; checkbox2: tcheckbox; procedure formcreate (Sender: tobject); Procedure checkbox1click (Sender: tobject); Procedure checkbox2click (Sender: tobject); end; var form1: tform1; implementation {$ R *. DFM} {initialization} procedure tform1.formcreate (Sender: tobject); begin checkbox1.caption: = 'hide desktop icons '; checkbox2.caption: = 'hide taskbar'; end; {hide or show desktop icons} procedure tform1.checkbox1click (Sender: tobject); var H: hwnd; begin H: = findwindow ('progman ', nil ); {progman is the class name of the desktop window} If tcheckbox (sender ). checked then showwindow (H, sw_hide) else showwindow (H, sw_restore); end; {hide or display the taskbar} procedure tform1.checkbox2click (Sender: tobject); var H: hwnd; begin h: = findwindow ('Shell _ traywnd ', nil); {shell_traywnd is the class name of the taskbar window} If tcheckbox (sender ). checked then showwindow (H, sw_hide) else showwindow (H, sw_restore); end.