Запрет на открытие Пуска - Общие вопросы Delphi

Lauri · 06.04.2010, 17:43

Запрет на открытие Пуска. Можно ли это как то реализовать?
Это не помогает(

Код:

begin 
{Запретить кнопку “Пуск”} 
EnableWindow(FindWindowEx(FindWindow(’Shell_TrayWnd’, nil), 0, ‘Button’, nil), false); 
end; 

procedure TForm1.Button4Click(Sender: TObject); 
begin 
{Разрешить кнопку “Пуск”} 
EnableWindow(FindWindowEx(FindWindow(’Shell_TrayWnd’, nil), 0, ‘Button’, nil), true); 
end

Proof · 06.04.2010, 20:43

У меня код отрабатывает нормально.

Lauri · 06.04.2010, 23:15

Цитата:

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

У меня код отрабатывает нормально.

У меня на Shell_TrayWind ругаеться

W0LF · 06.04.2010, 23:20

Как может ругаться на "Shell_TrayWind" - если это просто текст, имя класса... ? Впервые такое слышу...

spamer · 06.04.2010, 23:52

Дык...может я и не в теме тут, но все же попробуйте заменить кавычки свои на нормальные:

Код:

EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false);

и т.д.

Hacker19_90 · 07.04.2010, 00:01

А попробуй убрать кнопку вообще!!!

Код:

 ShowWindow (StartBtnWnd, SW_HIDE);

Proof · 07.04.2010, 00:13

Цитата:

У меня на Shell_TrayWind ругаеться

А что за ошибку выдает?

Вот, что у меня получилось
http://www.sharemania.ru/0144445

W0LF · 07.04.2010, 15:31

Полностью согласен с spamer...
В данном коде действительно используються другие "кавычки")
Ведать ТС тупо скопировал код с сайта некоторого, где неграмотные дяди его так оформили... Замени на нормальные - и будет тебе счастье)

Lauri · 07.04.2010, 18:19

Цитата:

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

Полностью согласен с spamer...
В данном коде действительно используються другие "кавычки")
Ведать ТС тупо скопировал код с сайта некоторого, где неграмотные дяди его так оформили... Замени на нормальные - и будет тебе счастье)

Скопировал я его то тупо! Тут не спорю) но я ставил норм скобки не ругалось, но пуск по прежнему функционировал стабильно нормально

spamer · 07.04.2010, 18:29

Странно, у всех работает, а у вас нет...

06.04.2010, 17:43	#1
Lauri Форумчанин Регистрация: 01.04.2010 Сообщений: 171	Запрет на открытие Пуска Запрет на открытие Пуска. Можно ли это как то реализовать? Это не помогает( Код: `begin {Запретить кнопку “Пуск”} EnableWindow(FindWindowEx(FindWindow(’Shell_TrayWnd’, nil), 0, ‘Button’, nil), false); end; procedure TForm1.Button4Click(Sender: TObject); begin {Разрешить кнопку “Пуск”} EnableWindow(FindWindowEx(FindWindow(’Shell_TrayWnd’, nil), 0, ‘Button’, nil), true); end` Последний раз редактировалось Lauri; 06.04.2010 в 18:00.

06.04.2010, 23:52	#5
spamer Software Developer Старожил Регистрация: 19.12.2008 Сообщений: 2,070	Дык...может я и не в теме тут, но все же попробуйте заменить кавычки свои на нормальные: Код: `EnableWindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil), false);` и т.д. Будь проще и люди к тебе потянутся

07.04.2010, 00:01	#6
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	А попробуй убрать кнопку вообще!!! Код: `ShowWindow (StartBtnWnd, SW_HIDE);` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

07.04.2010, 18:29	#10
spamer Software Developer Старожил Регистрация: 19.12.2008 Сообщений: 2,070	Странно, у всех работает, а у вас нет... Будь проще и люди к тебе потянутся

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
CppWEbBrowser. Запрет на открытие нового окна, и открытие его в том же окне	Askar_g	Общие вопросы C/C++	4	25.06.2011 20:00
Запрет на открытие редактора VBA	valerij	Microsoft Office Excel	4	20.11.2008 18:28
Пуска нет и ярлыков никаких! Папка Мои документы и всё!	anton14	Свободное общение	8	26.04.2008 13:31
как перехватить открытие чужого приложенияпытаюсь перехватить открытие любого приложе	rpy3uH	Win Api	2	02.12.2006 12:12

06.04.2010, 20:43	#2
Proof Пользователь Регистрация: 20.02.2008 Сообщений: 63	У меня код отрабатывает нормально.

06.04.2010, 23:20	#4
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Как может ругаться на "Shell_TrayWind" - если это просто текст, имя класса... ? Впервые такое слышу...

07.04.2010, 15:31	#8
W0LF Форумчанин Регистрация: 28.03.2008 Сообщений: 940	Полностью согласен с spamer... В данном коде действительно используються другие "кавычки") Ведать ТС тупо скопировал код с сайта некоторого, где неграмотные дяди его так оформили... Замени на нормальные - и будет тебе счастье)