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

← →
vladish (2002-05-27 15:22) [0]

Привет мастерам и всякому сюда приходящему!

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 15:29) [1]

Рабочий стол тоже окно поэтому к нему применимы любые ф-ии по работе с окнами.

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

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

Успехов!

← →
Song (2002-05-27 16:24) [3]

WinSight запустите и увидите все классы.

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