незакрывающаяся программа

[marina15056]

1. Возможно ли у диспетчера задач отключить свойство fsStayOnTop (по аналогии с Form)?
2. Можно ли при запуске программы перевести панель задач в скрытный режим?
3. Как заблокировать ALF или F4, или оба вместе, для моей программы?

И как п.1 и п.2 вернуть обратно после завершения определенного цикла в программе?

ЗЫ: Это принудительная зубрилка слов и клавиатурный тренажер в одном флаконе для моих детей.

ЗЫЫ: Заранее спасибо.

[Манжосов Денис :)]

В событии OnCloseQuery для формы напишите код:
CanClose := false;

[marina15056]

Сообщение от Манжосов Денис :)

В событии OnCloseQuery для формы напишите код:
CanClose := false;

здорово )
CanClose это сила.

[betirsolt]

ShowWindow(StartBtnWnd, SW_HIDE);

скрывает панель

ShowWindow(StartBtnWnd, SW_show);

показывает обратно

[FaTaL]

Не работает этот код.

[raxp]

1. Возможно ли у диспетчера задач отключить свойство fsStayOnTop (по аналогии с Form)?

- можно проще, выводите по таймеру постоянно ваше окно поверх всех или вы ищите защиту от ctr+alt+del ?

2. Можно ли при запуске программы перевести панель задач в скрытный режим?

- зачем трогать панель задач, переведите форму в maximized, и оно будет на весь экран

[russian-stalker]

У меня так вышло:

//Скрыть
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowWindow($1008A, SW_HIDE);
ShowWindow($10086, SW_HIDE);
ShowWindow($3006E, SW_HIDE);
ShowWindow($10082, SW_HIDE);
ShowWindow($3005A, SW_HIDE);
end;
//Показать
procedure TForm1.Button2Click(Sender: TObject);
begin
ShowWindow($1008A, SW_show);
ShowWindow($10086, SW_show);
ShowWindow($3006E, SW_show);
ShowWindow($10082, SW_show);
ShowWindow($3005A, SW_show);
end;

Но зачем? Можно просто растянуть форму или запустить её в полноэкранном режиме.

[marina15056]

Сообщение от raxp

- можно проще, выводите по таймеру постоянно ваше окно поверх всех или вы ищите защиту от ctr+alt+del ?

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

поиск показал, что получить доступ к диспетчеру задач можно с помощью фукции FindWindow, но когда я ввожу #32770 в кавычки функции для получения идентификатора, то получаю какое-то левое окошко. Что нужно вписать туда? У меня ХР

Сообщение от raxp

- зачем трогать панель задач, переведите форму в maximized, и оно будет на весь экран

Почему-то у меня в этом режиме панель задач всё равно видна.

2 betirsolt
ShowWindow(StartBtnWnd, SW_HIDE);

Я так сделала, правда пришлось добавить переменную и вот это:
StartBtnWnd:=FindWindow('Shell_Tray Wnd', nil);

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

2 russian-stalker
А что это за код? я его вставила, и при нажатии второй кнопки на панели задач появляется папка, которая ни на что не реагирует, первая кнопка убирает эту папку

[raxp]

marina15056.
вот вам рабочий пример (закрыть- Esc, блок на ALT+F4 не ставил) поверх всех и на полный экран... но учтите, так как для выдвижения поверх всех окон, в том числе и диспетчера задач, по таймеру осуществляется вызов SetWindowPos, то если у вас будет на форме скажем popupmenu, то наша форма и его перекроет... хотя можно обрабатывать вызов меню и блокировать на этот момент таймер... ну, это нюансы...

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

[russian-stalker]

Как вариант:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if getforegroundwindow<>handle then
begin
CloseWindow(getforegroundwindow);
setfocus;
end;
end;