Недавно добавленные исходники

•  TDictionary Custom Sort  507

•  Fast Watermark Sources  873

•  3D Designer  1 803

•  Sik Screen Capture  1 456

•  Patch Maker  1 459

•  Айболит (remote control)  1 387

•  ListBox Drag & Drop  1 156

•  Доска для игры Реверси  21 251

•  Графические эффекты  1 336

•  Рисование по маске  1 274

•  Перетаскивание изображений  1 085

•  Canvas Drawing  962

•  Рисование Луны  801

•  Поворот изображения  754

•  Рисование стержней  801

•  Paint on Shape  486

•  Генератор кроссвордов  747

•  Головоломка Paletto  659

•  Теорема Монжа об окружностях  839

•  Пазл Numbrix  607

•  Заборы и коммивояжеры  835

•  Игра HIP  549

•  Игра Go (Го)  522

•  Симулятор лифта  544

•  Программа укладки плитки  505

•  Генератор лабиринта  560

•  Проверка числового ввода  519

•  HEX View  595

•  Физический маятник  522

•  Задача коммивояжера  556

 
скрыть


Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



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



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

  1. В меню Project..Import Type Library
  2. Выберите Microsoft Shell Controls & Automation (version 1.0).
  3. Нажмите 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; {case}
end;

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








Copyright © 2004-2022 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте   Facebook   Ссылка на Twitter   Ссылка на Telegram