Delphi-int.ru: портал программистов

Вход Регистрация | Забыли пароль?

События

Сегодня:
Вопросы0    Ответы0    Мини-форумы0


Последние:
Вопрос09.08, 09:39 / #6696
Ответ29.03, 23:32 / #6682
Новости8 июля 2023


Сейчас онлайн:
На сайте — 18
На IRC-канале — 2

Ссылки

Краткий обзор приёмов работы с Windows Shell

Автор: Ерёмин Андрей

Вы когда-нибудь задумывались о том, что представляет из себя весь интерфейс Windows? Так вот, это вполне целостная ограниченная оболочка (программа попросту), которая содержит стандартные элементы - меню, окна, диалоги и т.д. В этой статье я покажу вам, как используются возможности этой оболочки в средах программиста.

Итак, для начала нужно импортировать в среду Delphi компоненты, позволяющие получить доступ к функциям оболочки (Microsoft Shell Controls & Automation Type Library). Для этого откройте окно Project - Import Type Library. Найдите в списке строку "Microsoft Shell Controls & Automation (version 1.0)" и нажмите Install. Установленные компоненты при неизменных параметрах установки появятся на вкладке ActiveX. Выглядят они немного невзрачно :-)

Импортированные компоненты в Component Palette

Компонент TShell как раз и предоставляет те функции оболочки, которые нас интересуют. Поместите его на форму. Он включает все необходимые методы. Например, чтобы свернуть все окна (аналог функции значка Minimize all на панели быстрого запуска), следует написать всего одну строку:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
   Shell1.MinimizeAll; 
end;

Также я перечислю все остальные функции, которые теперь находятся в нашем распоряжении:

Explore('путь') - открытие Проводника Windows на указанном каталоге.

Open('команда') - примерно то же самое, что и функции WinExec(), ShellExecute() и т.д., т.е. выполнение указанной команды - запуск программы, открытие документа и т.д.

MinimizeAll - команда "Свернуть все окна".

UndoMinimizeALL - обратная команда - восстанавливает все окна, которые ранее были открыты.

FileRun - открывает диалог запуска программы (Пуск - Выполнить).

CascadeWindows - расставляет все открытые окна в каскадном порядке.

TileVertically - расставляет окна таким образом, чтобы все они были видны на экране и не перекрывали друг друга.

TileHorizontally - тоже самое, что и TileVertically только в горизонтальном направлении.

ShutdownWindows - запускает диалог завершения работы Windows.

SetTime - открывает окно установки даты и системного времени.

TrayProperties - открывает окно настроек иконок системной области (tray).

Help - вызывает справочную систему Windows.

FindFiles - запускает диалог поиска файлов.

FindComputer - запускает диалог поиска компьютеров.

С помощью всех этих функций можно создать полноценную замену всему меню "Пуск". Однако, обратите внимание, что в разных версиях Windows некоторые из этих функций могут работать слегка по-разному.

Автор: Ерёмин А.А.

Статья добавлена: 10 марта 2007

Следующая статья: Работа с форматом M3U »

Рейтинг статьи: 4.00 Голосов: 2 Ваша оценка:

Зарегистрируйтесь/авторизируйтесь,
чтобы оценивать статьи.


Статьи, похожие по тематике

 

Для вставки ссылки на данную статью на другом сайте используйте следующий HTML-код:

Ссылка для форумов (BBCode):

Быстрая вставка ссылки на статью в сообщениях на сайте:
{{a:27}} (буква a — латинская) — только адрес статьи (URL);
{{статья:27}} — полноценная HTML-ссылка на статью (текст ссылки — название статьи).

Поделитесь ссылкой в социальных сетях:


Комментарии читателей к данной статье

Пока нет комментариев к данной статье. Оставьте свой и он будет первым.

Оставлять комментарии к статьям могут только зарегистрированные пользователи.