var
hTaskBar, hDeskIcon: HWND;
hwndDesk,hLastFind,hButton: HWND;
begin
hTaskBar := FindWindow('Shell_TrayWnd', nil);//find taskbar handle
ShowWindow(hDeskIcon,SW_HIDE);
hButton := FindWindow('Button', nil);//find start menu
ShowWindow(hButton,SW_HIDE);
end;
hTaskBar, hDeskIcon: HWND;
hwndDesk,hLastFind,hButton: HWND;
begin
hTaskBar := FindWindow('Shell_TrayWnd', nil);//find taskbar handle
ShowWindow(hTaskBar,SW_HIDE);
ShowWindow(hDeskIcon,SW_HIDE);
hButton := FindWindow('Button', nil);//find start menu
ShowWindow(hButton,SW_HIDE);
end;