Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

блокировка панелей, выпадающих меню, стола W95/98 [D5, Win95/98]

vladish © (2002-05-27 15:22:00)
Привет мастерам и всякому сюда приходящему!

W98 D5
Возникла необходимость закрывать доступ к компу, но так чтоб
видна была работа програм (на столе, в панели задач). Вроде
скринсевера который ничего не рисует. Подходящего не нашел.
От полупрозрачных и дырявых окон отказался .
Есть такая идея. Форма, 2 кнопки и программа...
.........
var
Form1: TForm1;
iDummy: Integer;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
///////// это работает железно

//включить блок по комбинациям пальцев
SystemParametersInfo(SPI_SCREENSAVERRUNNING, INTEGERTRUE), @iDummy, 0);
// вдруг Quick Launch вынесен
EnableWindow(FindWindow("BaseBar","Quick Launch"), False);
//панель задач со ее начинкой
EnableWindow(FindWindow("Shell_TrayWnd",""), False);
.......
//////////////// А ТУТ ВОПРОСНУЖНО ЕЩЕ ВЫПАДАЮЩИЕ ПО
ПРАВОМУ КЛИКУ МЕНЮ НА СТОЛЕ ЛИБО ЕЩЕ ЛУЧШЕ ВЕСЬ РАБОЧИЙ СТОЛ
ПО ПРИВЕДЕННОМУ ВЫШЕ ПРИЦИПУ
??????????????????????

С помощью Spy++ и winspect.exe получался вроде какой то
tooltips_class32

Подскажите пожалуйста может кто знает,
замучили эти защиты от дураков 8-(

Song (2002-05-27 16:24:00) [1]
WinSight запустите и увидите все классы.

vladish (2002-05-27 16:19:00) [2]

Да ув Song понимаю только просил явноуказать
как же их имя класса и окна ?

Успехов!

Song (2002-05-27 15:29:00) [3]
Рабочий стол тоже окно поэтому к нему применимы любые ф-ии по работе с окнами.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »