Угу. Отключить никак. А вот всплыть обратно можно. Некоторые игрушки просто рисуют себя, используя поверхность DC(0), которую просто невозможно свернуть по определению.
Кстати, кто-нить пробовал приведенный мною выше код в 98-х? В ХР отрабатывает на ура.

Цитата(Snowy @ 31.1.2005, 13:10)

Угу. Отключить никак. А вот всплыть обратно можно. Некоторые игрушки просто рисуют себя, используя поверхность DC(0), которую просто невозможно свернуть по определению.

Светодиод винчестера даже НЕ "блымнул".

Это сообщение отредактировал(а) dsergey - 5.2.2005, 11:49

Проверьте код, у меня работает ...
Не сворачивается даже по WINDOWS+D

Цитата

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject); begin begin Application.Minimize; Application.Restore; Application.BringToFront; end; end;

Посмотри сюда
http://forum.vingrad.ru/index.php?showtopic=41584

Цитата

Посмотри сюда

25-е июля .... ???

Что -то я не пойму, это получается , что вообще WINDOWS - D работать не будут в системе ...???

Цитата

Что -то я не пойму, это получается , что вообще WINDOWS - D работать не будут в системе ...???

Этого то и добиваемся (еще меня радует, что отключается Win+L). А какой смысл отключать Win+D только для своего приложения. Впрочем, можно переделать глобальную ловушку в локальную (без DLL).

P.S. Кстати, Alt-Tab тоже отрубается, хотя везде говорят, что его "нельзя победить"

Цитата

Этого то и добиваемся

Стртранно
Я думал тема называется
"Хочу, чтобы программа не сварачивалась!?, при нажатии Windows+D???"

Цитата

А какой смысл отключать Win+D только для своего приложения

Потому что многие покупать что-то подобное не будут ...

Цитата

Стртранно Я думал тема называется "Хочу, чтобы программа не сварачивалась!?, при нажатии Windows+D???"

Я тебя, кажется понимаю, твой код приводит к тому, что все другие окна сворачиваются, а твоя форма - нет. Но есть еще такие клавиши как

Win+E ==> Explorer
Win+F+(Ctrl) ==> Find:All (and Find: Computer)
Win+M ==> Minimize all
Win+R ==> Run program.
Win+F1 ==> Windows Help
Alt+Tab

С ними-то как быть? А в XP еще и "страшная" Win+L

Если же надо, чтобы все эти сочетания не работали именно для твоей программы, а в других окнах обрабатывались, то используй локальную ловушку, вот примерно так:

Код

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs; type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);    procedure FormClose(Sender: TObject; var Action: TCloseAction);  private    { Private declarations }  public    { Public declarations }  end; //------------------------------------ KBDLLHOOKSTRUCT = record    vkCode: DWORD;    scanCode: DWORD;    flags: DWORD;    time: DWORD;    dwExtraInfo:Pointer;  end;  PKBDLLHOOKSTRUCT = ^KBDLLHOOKSTRUCT;  TPMsg = ^TMsg; const  HookHandle: hHook = 0;  LLKHF_ALTDOWN  = KF_ALTDOWN shr 8;  WH_KEYBOARD_LL = 13; //------------------------------------ var  Form1: TForm1; implementation {$R *.dfm} //------------------------------------ // функция-фильтр function KeyboardProc(nCode: integer; wParam: longint; lParam: longint): integer; stdcall; var  KeyStroke: boolean;  p: PKBDLLHOOKSTRUCT; begin    KeyStroke := false;    if (nCode = HC_ACTION) and {только для нашего приложения} Application.Active  then    begin        case wParam of          WM_KEYDOWN, WM_SYSKEYDOWN,          WM_KEYUP,    WM_SYSKEYUP:          begin            p := PKBDLLHOOKSTRUCT(lParam);            KeyStroke :=                ( (p^.vkCode = VK_LWIN) or (p^.vkCode = VK_RWIN)) or                ( (p^.vkCode = VK_TAB) and ((p^.flags and LLKHF_ALTDOWN) <> 0) ) or                ( (p^.vkCode = VK_ESCAPE) and ((p^.flags and LLKHF_ALTDOWN) <> 0) ) or                ( (p^.vkCode = VK_ESCAPE) and ((GetKeyState(VK_CONTROL) and $8000) <> 0) ) or                ( (p^.vkCode = VK_F4) and ((p^.flags and LLKHF_ALTDOWN) <> 0) );          end;        end;//case    end;  if KeyStroke then    result := 1  else    result := CallNextHookEx(0, nCode, wParam, lParam); end; //------------------------------------ // установка, отключение ловушки procedure Hook(lRun:Boolean); begin if lRun then  HookHandle:=SetWindowsHookEx(WH_KEYBOARD_LL, @KeyboardProc, HInstance, 0) else  begin   UnhookWindowsHookEx(HookHandle);   HookHandle:=0;  end; end; //------------------------------------ procedure TForm1.FormCreate(Sender: TObject); begin Hook(True); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Hook(False); end; end.

Цитата

Цитата А какой смысл отключать Win+D только для своего приложения Потому что многие покупать что-то подобное не будут ...

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

Цитата

Еще как будут. Вот тебе ситуация: мне не раз говорили : "Сделай, чтобы было так, - включил компьютер, загрузилась твоя программа и никаких рабочих столов, переключений между окнами - а то наши пользователи очень уж непродвинутые, напортачат чего-нибудь, или, чего доброго, в игры играть начнут."

Интересный вопрос, что за организация ???
Обучать сотрудников надо. А то блин кричат, что у сотрудников руки кривые ...
А сами ничего не делают ...

Цитата

в игры играть начнут

И как ты это исправишь отключением сочетания клавишь ???

А юзьвери в основном с мышой работают, может я не понимаю чего-нибудь, но если повесить хук на клавиатуру, он что, и мышу отловит ????

Цитата

Обучать сотрудников надо. А то блин кричат, что у сотрудников руки кривые ... А сами ничего не делают ...

Нельзя ли немного покорректнее?...

Цитата

Цитата в игры играть начнут И как ты это исправишь отключением сочетания клавишь ??? А юзьвери в основном с мышой работают, может я не понимаю чего-нибудь, но если повесить хук на клавиатуру, он что, и мышу отловит ????

Я смотрю пошел откровенный флейм, но я отвечу (подробнее). Я говорил о схеме "одна машина - одна задача" (используется, например, в технологическом мониторинге). Выглядит это так:
загружается Windows, затем твоя программа - главная форма во весь экран и можно без заголовка. Панель задач отключается, чтобы не было искушения "с мышой поработать", дополнительно вешается хук на клавиатуру. В итоге пользователь может общаться только с твоей программой. После завершения работы приложения вызывается завершение работы компьютера. И все. Надеюсь, понятно?

win-D не сворачивает ничего, оно десктоп выносит вперёд а все приложения назад... Сворачивает Win-M.

Цитата

Я смотрю пошел откровенный флейм, но я отвечу (подробнее). Я говорил о схеме "одна машина - одна задача" (используется, например, в технологическом мониторинге). Выглядит это так: загружается Windows, затем твоя программа - главная форма во весь экран и можно без заголовка. Панель задач отключается, чтобы не было искушения "с мышой поработать", дополнительно вешается хук на клавиатуру. В итоге пользователь может общаться только с твоей программой. После завершения работы приложения вызывается завершение работы компьютера. И все. Надеюсь, понятно?

Тогда это решается не програмно, а через Policy в реестре - устанавливаются все разрешения и не даются администранивные права, чтоб мышь не трогали - мышь - выдёргивается и кладётся в ящик стола на ключ, в BIOS отключается USB и PS порты, ставится пароль на BIOS. В Hardware профиле для этого пользователя отключается драйвер мыши, а если надо то и клавиатуры... и на фиг програмный огород городить... Моё ИМХО - 99% попыток перехвата Ctrl-Alt-Del, Win-D, Win-L и т.п. - это вредоносный код, вирусы и трояны, а оставшийся 1% - невежество сисадминов, которым лень букварь читнуть по Windows и которые ставять программистам бредовые задачи.

Цитата(Vit @ 8.2.2005, 07:27)

win-D не сворачивает ничего, оно десктоп выносит вперёд а все приложения назад...

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

2
ДЫМ

Короче, действительно щас флей пойдет.
ПРосто, если по моему опыту

Цитата

"одна машина - одна задача"

, такого я не видел.
Если только так, тогда хорошо, без Б. ПРизнаю , что это подеюйствует.
А если несколько -тогда хук на клаву - это не выход, ИМХО.