Раскладка клавиатуры в DELPHI

C_O_D_E · 03 май 2008, 23:04

Попросили сделать так, чтобы преподавательница информатики и программного обеспечения (правда училась она на физрука) не смогла пройти полный курс и выйти из программы.
И лично вам, большое мерси за тестирующую программу.

MOTOCoder · 03 май 2008, 23:08

&quot писал(а):Попросили сделать так, чтобы преподавательница информатики и программного обеспечения (правда училась она на физрука) не смогла пройти полный курс и выйти из программы.

Что-то не совсем понятно...

&quot писал(а):И лично вам, большое мерси за тестирующую программу.

Не за что, всегда рад помочь.

C_O_D_E · 03 май 2008, 23:13

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

MOTOCoder · 03 май 2008, 23:17

Понятно...
Тогда, скорее всего, точно придется ДЗ блокировать.

C_O_D_E · 03 май 2008, 23:19

И еще хорошо бы клавиши местами поменять. Дополнительная клавиатура уже работает ТОЛЬКО в режиме циферок

MOTOCoder · 03 май 2008, 23:24

А клавиши то зачем менять?
Как я понимаю, если в обработчике onClose стоит блокровка, то закрыть приложение можно только сняв процесс. А без ДЗ этого не сделать(разве что через коммандную строку, но ей "не оригинальные" пользователи в нужной мере не владеют, к тому же, FormStyle:=fsStayOnTop даже её открыть не даст).

C_O_D_E · 03 май 2008, 23:27

Клавиши -- это уже для себя. чтобы душу отвести, кгода кто-нибуть из преподов полезет проверять качество моей работы...

MOTOCoder · 03 май 2008, 23:33

Отключить Alt+Tab можно примерно так:
[syntax='Delphi']
var
i:integer;
begin
i:=0;
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @i, 0);
end;
[/syntax]

Правда это по-моему работает только в Win9x.

C_O_D_E · 03 май 2008, 23:38

Само обидное, что этот метод не работвет.
В вашем вариатне идет передача переменной I Значение 0 либо 1. В другом варианте I:boolean, и передается True или False, ни один из вариантов не блокирует Alt-Tab и CTRL+ALT+Del.
(просьба оставить при себе язвительные замечания про кривизну рук, отвратительную ОС, и плохую версию дельфей. не работает не только у меня и не только на моем ПК и ОС)

MOTOCoder · 03 май 2008, 23:53

Не работает под Win2000/XP или под Win98/95?
Там, где я читал об этом методе, было ясно написано, что код под Windows9x, и соответственно, ни в XP, ни, тем более, в Висте не сработает.