Монопольный контроль экрана приложением

[ImmortalAlexSan]

Много перечитал статей, касающихся директ икс,опен гл, да и просто таких, где выставляется свойство формы formstyle в значение fsStayOnTop и fsmaximized (или как-то так), но ни одна из методик не дает того, что надо. Хочется сделать так, чтобы максимизированное окно (когда оно активно) при нажатии клавиш alt+Tab не показывало меню пуск. Возможно ли такое сделать?

[SalasAndriy]

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.FormStyle := fsStayOnTop;
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
end;

Так пойдёт?

даже вот так:
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.BorderStyle := bsNone;
  Form1.WindowState := wsMaximized;
end;

Только что тестил и работает...

[ImmortalAlexSan]

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

даже вот так:
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
end;

В этом режиме работает Alt+Tab

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.FormStyle := fsStayOnTop;
Form1.BorderStyle := bsNone;
Form1.WindowState := wsMaximized;
end;

В этом режиме, он тоже работает, только не так как надо, а почти так как надо... При свертывании, а точнее попытке это сделать, появляется меню пуск. Да и Ссылку делать на Form1 не обязательно, ведь процедура приватная... Есть ещё идеи, как провернуть подобное?

[SalasAndriy]

ааа, так вам нужно чтобы при нажатии на кнопке Win не появлялось меню пуск? Ну можно попробовать отлавливать нажатие этой кнопки и скрывать меню пуск... Найдите его через FindWindow и скрывайте... или даже таймером...

Может єто тоже подойдёт
Как отключить комбинацию Alt+Tab:

Отключение клавиши Win:

На некоторых современных клавиатурах присутствует клавиша Windows (как правило, логотип-флажок Майкрософт). Некоторым пользователям она мешает при быстрой печати. Чтобы отключить ее, нужно в реестре найти ключ
HKEY_LOCAL_MACHINE\SYSTEM\CurrentCo ntrolSet\Control\Keyboard Layout. Создайте новый двоичный параметр, озаглавив его Scancode Map и присвойте ему значение 00 00 00 00 00 00 00 00 03 00 00 00 00 00 5B E0 00 00 5C E0 00 00 00 00.

И отошлите системе сообщение что вы вносили данные в реестр чтобы обновилась...

[ImmortalAlexSan]

SalasAndriy, ненене, опять не то)))) Как раз-таки отключать это мне нельзя)), они должны работать. Нужен другой способ... Можно же ведь как-то даже если не с помощью свойств формы, а например OGL или DiretcX захватить полностью экран с невозможностью сбросить с переднего плана мою максимизированную форму без появления пуска, как в предыдущих ситуациях. Не подумайте ничего непристойного, я не порно-баннер пишу.

[Stilet]

procedure TForm1.FormCreate(Sender: TObject);
begin
 WindowState:=wsMaximized;
 RegisterHotKey(Handle,0,MOD_ALT,VK_TAB);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 UnregisterHotKey(Handle,0);
end;

Сойдет такой финт ушами?

[ImmortalAlexSan]

Stilet, у меня работают клавиши альт+таб, при запуске приложения, я так понял, что вы их отключаете на созданное окно, или нет? Мне нужно, что бы окно, запущенной программы занимало всю область экрана, позволяя функционировать системе, как нужно, как будто этого окна нет, а насколько я знаю, то в таком режиме можно переключаться на окна других приложений, что бы их активировать.

[Пепел Феникса]

можно узнать цель этого всего?
может есть иной метод.

[Stilet]

я так понял, что вы их отключаете на созданное окно, или нет?

Не отключаю, а регистрирую как глобальные, таким образом перехватывая их обработку на себя но не обрабатывая. Это такой а-ля хук на клавиатуру.

позволяя функционировать системе, как нужно, как будто этого окна нет,

А вот теперь поподробнее зачем.

[ImmortalAlexSan]

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