Как пользоваться командой шела - MinimizeAll?

Материал из DRKB

Как пользоваться командой шела - MinimizeAll?[править | править код]

Для этого надо импортировать Microsoft Shell Controls & Automation Type Library.

В меню Project..Import Type Library

Выберите Microsoft Shell Controls & Automation (version 1.0).

Нажмите Install...

На панели компонентов, в закладке ActiveX появится несколько компонентов. Перетащите на форму компонент TShell. После этого, например, можно всё минимизировать:

Shell1.MinimizeAll;


/*********************************************************************
  Так же в этом компоненте присутствует давольно много забавных примочек.
*********************************************************************/
procedure TForm1.Shell(sMethod: Integer);
begin
  case sMethod of
    0:  // Минимизируем все окна на рабочем столе
    begin
      Shell1.MinimizeAll;
      Button1.Tag := Button1.Tag + 1;
    end;
    1:  // Показываем диалоговое окошко Run
    begin
      Shell1.FileRun;
      Button1.Tag := Button1.Tag + 1;
    end;
    2:  // Показываем окошко завершения работы Windows
    begin
      Shell1.ShutdownWindows;
      Button1.Tag := Button1.Tag + 1;
    end;
    3:  // Показываем окно поиска файлов
    begin
      Shell1.FindFiles;
      Button1.Tag := Button1.Tag + 1;
    end;
    4:  // Отображаем окно настройки времени и даты
    begin
      Shell1.SetTime;
      Button1.Tag := Button1.Tag + 1;
    end;
    5:  // Показываем диалоговое окошко настройки интернета (Internet Properties)
    begin
      Shell1.ControlPanelItem('INETCPL.cpl');
      Button1.Tag := Button1.Tag + 1;
    end;
    6:  // Предлагаем пользователю выбрать директорию из Program Files
    begin
      Shell1.BrowseForFolder(0, 'My Programs', 0, 'C:\Program Files');
      Button1.Tag := Button1.Tag + 1;
    end;
    7:  // Показываем диалоговое окошко настройки панели задач
    begin
      Shell1.TrayProperties;
      Button1.Tag := Button1.Tag + 1;
    end;
    8:  // Восстанавливаем все окна на рабочем столе
    begin
      Shell1.UndoMinimizeAll;
      Button1.Tag := 0;
    end;

  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Shell(Button1.Tag);
end;


Source: Взято из http://forum.sources.ru
ID: 01736