Запретить открывать пуск

[Igolka6662]

Вечер добрый!!! Вопрос в следующем,написал программу типа баннера(не вирус!!!),из который можно запустить всего несколько программ,все работает все хорошо! Убираю панель задач снизу,но пуск можно открыть с помощью клавиши windows и cntrl+esc,вычитал функцию чтобы запретить эти комбинации:

SetWindowLong(FindWindowEx(
FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
GWL_ID,
-1);

Она работает,только мне необходимо её отключить в ходе выполнения программы,если кто знает,напишите, перепробовал много комбинаций,не получается.
Заранее спасибо!!!

[psycho-coder]

При запуске программы выключаете, при завершении программы включаете.
Или я что-то не понял?

[Igolka6662]

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

[psycho-coder]

покажите код снятия блокировки, чтоли))

[Igolka6662]

Код из процедура блокировки всего:

Form1.WindowState:=wsMaximized;
//диспетчер задач блокируем
SystemParametersInfo(SPI_SCREENSAVERRUNNING,1,0,0) ;
hDispZad := FindWindow('TaskMgr', Nil);
ShowWindow(hDispZad, SW_HIDE);
//убираем нижнюю панель задач
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_HIDE);
//убираем значки с раб. стола
ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);
{блокируем Ctrl-Alt-Del}
TDWH:=FindWindow(nil,'Диспетчер задач Windows');
  if TDWH=0 then ShellExecute(0,'open','taskmgr.exe',nil,nil,SW_HIDE)
            else ShowWindow(TDWH,SW_HIDE);
//cntrl+esc блокируем (т.е. открытия пуска этими клавишами)
SetWindowLong(FindWindowEx(
FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
GWL_ID,
-1);

Далее есть процедура для разблокировки:

//показываем нижнюю панель задач
hTaskbar := FindWindow('Shell_TrayWnd', Nil);
ShowWindow(hTaskBar, SW_NORMAL);
//показываем раб.стол
ShowWindow(FindWindow(nil,'Program Manager'),SW_NORMAL);
//включаем показ диспетчера задча
TDWH:=FindWindow(nil, 'Диспетчер задач Windows');
  ShowWindow(TDWH,SW_SHOWNORMAL);
//ЗДЕСЬ НУЖНО НАПИСАТЬ КОД,ЧТОБЫ ВКЛЮЧИТЬ ПУСК!!!

Вы просто сначала неправильно меня поняли,я пуск блокировать могу,а разблокировать нет!

[psycho-coder]

елки, а поэксперементировать? Хотяб на виртуалке, если что можно убить через диспетчер explorer.exe и запустить заново (разумеется диспетчер блочить не нужно на время тестов)

SetWindowLong(FindWindowEx(
FindWindow('Shell_TrayWnd', nil),
0,
'Button',
nil),
GWL_ID,
-1); // Например поставить 1 или 0

[mihali4]

То Igolka6662 :
http://programmersforum.ru/showthread.php?t=141903
4-й пост...

На первый раз прощаю.
Но обязательно прочитайте правила раздела.
В данном случае вы нарушили пункт 0.

[Igolka6662]

Спасибо,тема закрыта) разобрался)