Текущий архив: 2003.08.25;
Скачать: CL | DM;
Вниз
Свернуть все окна... Найти похожие ветки
← →
Злодей © (2003-08-13 10:25) [0]Здраствуйте,с форумом что-то случилось, поэтому я повторюсь: Как свернуть все окна?
← →
wl © (2003-08-13 10:57) [1]Взято из Кулибы, сам не проверял....
// Hачало (MINIMIZE.DPR)
{$APPTYPE CONSOLE}
program Minimize;
uses Windows,Messages;
var Count:integer;
function EnumProc (WinHandle: HWnd; Param: LongInt): Boolean; stdcall;
begin
if (GetParent (WinHandle) = 0) and (not IsIconic (WinHandle)) and
(IsWindowVisible (WinHandle)) then begin
PostMessage (WinHandle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
Inc(Count);
end;
EnumProc := TRUE;
end;
begin
Count:=0;
EnumWindows (@EnumProc, 0);
Writeln("Minimized:",Count," windows");
end.
← →
pasha_golub © (2003-08-13 12:49) [2]Есть проще, посмотри в ФАКе, а точнее используя фичу rundll.exe
← →
Song © (2003-08-13 12:51) [3]Win+M сгенерируй.
← →
pasha_golub © (2003-08-13 12:51) [4]http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988621106&n=15
← →
pasha_golub © (2003-08-13 12:52) [5]2Song
НЕ Win+M, а Win+D
← →
Е-Моё имя © (2003-08-13 12:55) [6]а чем Win+M плох?
← →
Song © (2003-08-13 12:59) [7]Win+D закрывает окна, а Win+M - минмизирует, так что, думаю, я больше прав чем Вы.
← →
Е-Моё имя © (2003-08-13 13:03) [8]у меня эффект одинаковый
← →
Шёл мимо (2003-08-13 13:28) [9]2 pasha_golub © (13.08.03 12:49) [2], [4]
rundll.exe этого делать не может. Он (она) не сворачивает окна, а переводит их в "мозаику" (по аналогии с Win3.x)
← →
pasha_golub © (2003-08-13 14:05) [10]2Song
У меня действительно эффект одинаковый. А какая у вас версия Винды? У меня 98SE, а пользуюсь я этим сочетаниемп отому как вычитал его, в уважаемом, мной журнале
← →
pasha_golub © (2003-08-13 14:17) [11]Вот еще один корявый метод, не знаю как его сделать более красиыво
Создать файл, например c:\my.scf:
[Shell]
Command=2
IconFile=explorer.exe,3
[Taskbar]
Command=ToggleDesktop
===end of my.scf=====
В своей программе пишем
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\my.scf"),
nil,
Pchar("C:\Windows"),SW_SHOWNORMAL);
2Шёл мимо
rundll32.exe сможет это сделать, главное узнать в какой библиотеке лежит процедура ToggleDesktop
← →
Song © (2003-08-13 15:10) [12]pasha_golub © (13.08.03 14:05)
Win XP
← →
Region © (2003-08-13 15:21) [13]Win+D закрывает окна, а Win+M - минмизирует, так что, думаю, я больше прав чем Вы.
Эти сочетания делают одно и то же.
← →
Asteroid © (2003-08-13 16:42) [14]> Region © (13.08.03 15:21) [13]
Не совсем. Win+D еще и перерисовывает иконки на desktop-е (WinME).
← →
dez © (2003-08-13 17:19) [15]а мне все-таки кажецца, что вин+м и вин+д немного разные весчи. при повторном нажатии вин+д окна приходят в первоначальное состояние, а вин+м отдыхает.
← →
Романов Р.В. © (2003-08-13 20:19) [16]Lord Warlock © (12.02.03 16:08)
Если хорошо порыться, все можно найти :)
1. в меню Project выбираем ImportTypeLibrary, говорим Add, лезем в каталог виндов\System32 и находим файл Shell32.DLL, он добавляется в список. Говорим CreateUnit, появряется Shell32_TLB.pas,
2 В программе пишем uses Shell32_TLB; и далее
var f:TShell;
begin
f:=TShell.Create(nil);
f.MinimizeAll;
end;
ЗЫ Сделал минут за 5, может быть криво работать под разными виндами, специально не выяснял
← →
имя (2003-08-13 22:23) [17]Удалено модератором
← →
имя (2003-08-13 22:23) [18]Удалено модератором
← →
имя (2003-08-13 22:24) [19]Удалено модератором
← →
имя (2003-08-13 22:24) [20]Удалено модератором
← →
имя (2003-08-13 22:24) [21]Удалено модератором
← →
имя (2003-08-13 22:24) [22]Удалено модератором
← →
имя (2003-08-13 22:24) [23]Удалено модератором
Страницы: 1 вся ветка
Текущий архив: 2003.08.25;
Скачать: CL | DM;
Память: 0.51 MB
Время: 0.033 c
