procedure TForm1.Button1Click(Sender: TObject); 
 begin 
   SendMessage(FindWindow('Progman', 'Program Manager'), 
   WM_COMMAND, 
   $A065, 
   0); 
 end;