quote:

ORIGINAL: Yashin

А теперь выключаем компьютер и … облом. юзай мой вариант, это тоже самое только пропаченное.

quote:

ORIGINAL: MNSHacker

О чем ты говориш, он не просил закрыт окно с мыщкой он просил с клавой

quote:

ORIGINAL: Yashin

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

quote:


TForm1 = class(TForm)
private
{ Private declarations }
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
public
{ Public declarations }
end;
…
procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if Message.WParam <> SC_CLOSE then begin
inherited;
end;
end;

quote:

ORIGINAL: 5_nix

Правильно подметил, blacksun, именно так и надо. Благодарю.

quote:

Ну ты посмотри, что ты спросил

quote:

ORIGINAL: 5_nix

quote:

Ну ты посмотри, что ты спросил

Я просил, чтобы форма не закрывалась на Alt+F4. Оба ответа отвечают этому требованию, но при дальнейших исследованиях выяснилось: если в панели задач правой кнопкой нажать на программу, а затем нажать закрыть, то в случае, предложенном Yashin, программа уходит в "небытие" и вот тогда приходится ковыряться в коде, вставляя разные ухищрения. Например удаление этих менюшек:

procedure TForm1.FormCreate(Sender: TObject); var hwndHandle: THANDLE; hMenuHandle: HMENU; begin hwndHandle:=FindWindow (nil,'Project1'); if (hwndHandle <> 0) then begin hMenuHandle:=GetSystemMenu (hwndHandle,false); if hMenuHandle <> 0 then begin DeleteMenu (hMenuHandle, SC_CLOSE, MF_BYCOMMAND); DeleteMenu (hMenuHandle, SC_MINIMIZE, MF_BYCOMMAND); DeleteMenu (hMenuHandle, SC_MAXIMIZE, MF_BYCOMMAND); end; end; end; Признаюсь, по началу у меня был вариан, который предложил Yashin, в совокупности с тем, что я описал выше. Но в процессе разработки он меня не устроил, да и по компактности он уступает.

Yashin: Не обижайся, иногда простое решение лучше сложного.

quote:

не дать закрыть форму ВООБЩЕ

quote:

Тоже элементарно в обжект инспекторе отключаются.

quote:

ORIGINAL: 5_nix

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

quote:

в ребут тыкнуть им никто не помешает

quote:

Кстати, никто не запрещает тупо срубить процесс, что неизбежно приведет к завершению работы программы.

quote:

Но дело не в этом.
Подобная логика, как правило, ни к чему хорошему не приводит.

quote:

ORIGINAL: 5_nix

Опишу суть программы, может тогда отпадут некоторые вопросы. При вкл. компа программа автоматически запускается, раскрывается на весь экран и не дает себя ни закрыть, ни свернуть; так же запрещает использовать комбинации клавиш, которые направлены на изменение активности окон. В рабочей области программы расположены иконки приложений, которые разрешены для запуска. Как вы сами видете, это своеобразная оболочка, которая надстраивается над оболочкой Windows 95,98,Me (на XP к сожалению не работает, ну и ладно, так как писал я ее именно под Windows 98) - explorer.exe

quote:

в ребут тыкнуть им никто не помешает

Если ты имеешь ввиду кнопочку на системнике, так я программу в автозагрузку вместе с сервисами записал.

quote:

Кстати, никто не запрещает тупо срубить процесс, что неизбежно приведет к завершению работы программы.

С этим все впорядке. Программу нельзя вырубить всеми известными мне способами (хотя если кто знает какой-нибудь шаманский способ, поделитесь, протестирую; если сработает, исправлю).

quote:

Но дело не в этом.
Подобная логика, как правило, ни к чему хорошему не приводит.

Что ты хочешь этим сказать?

quote:

А как ты блокируешь приложения не "разрешенные для запуска"?

quote:

ORIGINAL: 5_nix

quote:

А как ты блокируешь приложения не "разрешенные для запуска"?

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

quote:

ORIGINAL: 5_nix

Win+D, Win+E - заблокированы, также отказ в работе получают функциональные клавиши (F1-F12). Программа писалась по заказу учебного заведения, поэтому в список допустимых программ входят только стандартные (блокнот, paint, калькулятор), MS Office (word, excel, powerpoint, access), языки и среда программирования (Pascal, Basic, Delphi), и некоторые др специфические программы, прописанные в учебном курсе. Доступ к Far  или другим файловым менеджерам я предоставлять не стал, т.к. пропадает вся суть программы ради чего я ее делал.

quote:

ORIGINAL: alexbozhko

quote:

ORIGINAL: 5_nix

Win+D, Win+E - заблокированы, также отказ в работе получают функциональные клавиши (F1-F12). Программа писалась по заказу учебного заведения, поэтому в список допустимых программ входят только стандартные (блокнот, paint, калькулятор), MS Office (word, excel, powerpoint, access), языки и среда программирования (Pascal, Basic, Delphi), и некоторые др специфические программы, прописанные в учебном курсе. Доступ к Far  или другим файловым менеджерам я предоставлять не стал, т.к. пропадает вся суть программы ради чего я ее делал.

Ну блокнота достаточно для того, что бы я свой, и любой другой exe файл  запустил :)
Работы - секунд на 15 по сносу такого решения

quote:

ORIGINAL: 5_nix

Win+D, Win+E - заблокированы, также отказ в работе получают функциональные клавиши (F1-F12). Программа писалась по заказу учебного заведения, поэтому в список допустимых программ входят только стандартные (блокнот, paint, калькулятор), MS Office (word, excel, powerpoint, access), языки и среда программирования (Pascal, Basic, Delphi), и некоторые др специфические программы, прописанные в учебном курсе. Доступ к Far  или другим файловым менеджерам я предоставлять не стал, т.к. пропадает вся суть программы ради чего я ее делал.

quote:

ORIGINAL: TeNbOK

Божко, где взял коду?