запрет сворачивания окна

[fate]

не знаю где лучше создать тему тут или в winapi
Как сделать что бы окно не сворачивалась (учитывая win+D)
в процессе думанья набрел на 2 варианта
используя TApplicationEvents

procedure TForm1.ApplicationEvents1Restore(Sender: TObject);
begin
Application.Restore;
end;

и обработка сообщений windows

procedure TForm1.WndProc(var Msg: TMessage);
begin
  inherited;
if msg.Msg =WM_SYSCOMMAND then
  if msg.WParam=SC_MINIMIZE then begin
   Application.Restore;
  end;
end;

но эти способы не как не риагируют на win+D
и если сворачивать как обычно оно сначало свернется а потом развернется, что не есть гуд.
не понятно почему так происходит используя второй пример, ведь сообщение WM_SYSCOMMAND окну посылается до того как оно свернется
кстати так тоже не работает

if msg.Msg =WM_SYSCOMMAND then
if msg.WParam=SC_MINIMIZE then begin
msg.Msg:=0;
end;

[MyLastHit]

Может хук на win+D? Типа вот этого:
http://forum.vingrad.ru/faq/topic-41584.html

[fate]

неужели нет способа без хука?
во вложение пример реализации того что я хочу, на писаный на basic
без всяких dll и работает же, не поверю что бы на basic это можно было сделать а на delphi нет

[Stilet]

Я может и пальцем в небо но попробуй через RegisterHotKey переопределить обработку Win+D

[fate]

не помогает

[veniside]

win+D ничего не сворачивает и не минимизирует, вобще-то. Оно просто рисует десктоп поверх всех окон.

[ArtGrek]

вот, ето событие происходит при сворачивании таким способом,
но что вписать, что б воспрепятствовать не придумал

  private
    procedure WMShowWindow(var Message: TWMShowWindow); message WM_SHOWWINDOW;
...
procedure TForm1.WMShowWindow(var Message: TWMShowWindow);
begin
  ShowMessage('Svernylos');
  inherited;
end;

[fate]

veniside
ну как быть-то, примере что я прикрепил (экзешник) нажимаешь win+D и окно некуда не пропадает. К тому же в моих примерах по отловки сообщений если кликнуть правой мышкой на панели задач по программе и выбрать свернуть оно свернется.

ArtGrek
спасибо за совет, сделал так

procedure TForm1.WndProc(var Msg: TMessage);
begin
if msg.Msg =WM_SHOWWINDOW then
  if msg.WParam=0 then begin
    msg.WParam:=1;
  end;
  inherited;
end;

все работает если попытаться свернуть оно как бы сворачивается, но все равно остается висеть и даже если кликнуть мышкой по проге на панели задач. НО от win+D ее это не спасает, все изчезает

[veniside]

> нажимаешь win+D и окно некуда не пропадает

и очень плохо, что не пропадает.

Вы скажите, чего хотите добиться? Чтобы ваша прога маячила перед глазами у юзера и ее никак нельзя было ни прибить ни свернуть? Ну проверяйте по таймеру, что окно висит поверх других постоянно. Только рано или поздно всесокрушающее ядро налетит на несокрушимый столб, и начнётся нечто страшное.

[fate]

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