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