| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Свернуть все окна + Shell32.dll

Darmidon ©   (2005-08-30 11:33:00) 

Мне нужно программно свернуть все окна, как это делается клавишами Win+D. Т.е. чтобы сворачивались именно все окна, а не только те, которые "могут свернуться".

Покапавышись в интернете, нашел следующие (C++):

In short, if you want to programmatically show the desktop (tile windows, minimize all windows, run explorer, browse for folders, or any other numerous shell functionality exposed by this object use the following code), set a reference to shell32.dll and use the following code (C#):

// Create an instance of the shell class
Shell32.ShellClass objShel = new Shell32.ShellClass();
               
// Show the desktop
((Shell32.IShellDispatch4) objShel).ToggleDesktop();
               
// Do some operations here

// Restore the desktop
((Shell32.IShellDispatch4) objShel).ToggleDesktop();

Как это записать на Delphi?

---

Darmidon   (2005-08-30 12:07:00) [1]

Где именно читать? У меня Delphi 6, не могу там найти.

---

Darmidon   (2005-08-30 12:06:00) [2]

Кому интересно посылает сообщение эквивалентное WIN+D:

PostMessage(FindWindow('Shell_TrayWnd', nil), $0111, 407, 0); // WM_COMMAND = $0111

---

kblc   (2005-08-30 12:04:00) [3]

Почитай справку!

---

Darmidon   (2005-08-30 12:01:00) [4]

Толко где взять IShellDispatch4?

---

kblc   (2005-08-30 11:48:00) [5]

Вот кажется так это пишется на делфи:

var
 objShel: IShellDispatch4;
begin
 objShel:=CreateOleObject('Shell32.ShellClass') as IShellDispatch4;
 objShel.ToggleDesktop();

// Do some operations here

 objShel.ToggleDesktop();
end;

---

dmitry501   (2005-08-30 11:47:00) [6]

В меню Project\Import Type Library
Выберите Microsoft Shell Controls & Automation (version 1.0).
из вкладки ActiveX перетащите на форму компонент TShell.
После этого, например, можно всё минимизировать:
Shell1.MinimizeAll
или показываем диалоговое окошко Run
Shell1.FileRun
ну там много еще чего есть...

---

Наверх