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