Так как же ето сделать,можа функция есть какая, учтите именно чистый Вин а не МФЦ!!!

Здравствуйте xaka, Вы писали:

X>Так как же ето сделать,можа функция есть какая, учтите именно чистый Вин а не МФЦ!!!

Вариант:
1. ф-я BlockInput

2. Выдрано из форума Delphi.Mastak.Ru

Малоизвестные команды Windows 9xx для запуска из командной строки (03.01.01)
Можно использовать из приложения Дельфи с помощью следующей конструкции:
ShellExecute(Application.Handle,
Pchar('Open'),Pchar('C:\Windows\Rundll32.exe'),
Pchar(команда),
Pchar('C:\Windows'),SW_SHOWNORMAL);
где: команда — одна из перечисленных ниже

Например, выход из Windows без любых сообщений/вопросов:


ShellExecute(Application.Handle, Pchar('Open'),Pchar('C:\Windows\Rundll32.exe'),
Pchar('krnl386.exe,exitkernel'), Pchar('C:\Windows'),SW_SHOWNORMAL);


"rundll32 shell32,Control_RunDLL" — Выводит "Панель управления"
"rundll32 shell32,OpenAs_RunDLL" — Выводит окошко — "Открыть с помощью.."
"rundll32 shell32,ShellAboutA Info-Box" — Покозать окно "About Windows"
"rundll32 shell32,Control_RunDLL desk.cpl" — Открыть "Свойства Экрана"
"rundll32 user,cascadechildwindows" — Сортировка окон "Каскадом" (Как в Win 3.x)
"rundll32 user,tilechildwindows" — Сместить Окна в низ
"rundll32 user,repaintscreen" — Обновить рабочий стол
"rundll32 shell,shellexecute Explorer" — Запустить проводник Windows.
"rundll32 keyboard,disable" — Вырубить Клавиатуру! (Вот Это я понимаю Заподло!)
"rundll32 mouse,disable" — Вырубить Мышь! (У Шефа Будет припадок
"rundll32 user,swapmousebutton" — Поменять Местами клавиши Мыша! (Во мля! и этого Дядя Билли не
забыл!)
"rundll32 user,setcursorpos" — Сместить курсор крысы в левый верхний угол
"rundll32 user,wnetconnectdialog" — Вызвать окно "Подключение сетевого диска"
"rundll32 user,wnetdisconnectdialog" — Вызвать окно "Отключение сетевого диска"
"rundll32 user,disableoemlayer" — Спровоцировать сбой!!! (Знаю, сам сразу не поверил, но это
FUсKт...)
"rundll32 diskcopy,DiskCopyRunDll" — Показать окно "Copy Disk"
"rundll32 rnaui.dll,RnaWizard" — Вывод окна "Установка Связи", с ключем "/1" — без окна
"rundll32 shell32,SHFormatDrive" — Окно "Форматирование: Диск3,5(А)" вызвать
"rundll32 shell32,SHExitWindowsEx -1" — Перегрузить Explorer
"rundll32 shell32,SHExitWindowsEx 1" — Выключение Компутера.
"rundll32 shell32,SHExitWindowsEx 0" — Завершить Работу Текущего Пользователя
"rundll32 shell32,SHExitWindowsEx 2" Windows-98-PC boot
"rundll32 krnl386.exe,exitkernel" — выход из Windows без любых сообщений/вопросов
"rundll rnaui.dll,RnaDial "MyConnect" — Вызвать окошко "Установка связи" с соединением "MyConnect"
"rundll32 msprint2.dll,RUNDLL_PrintTestPage" — выбрать в появившемся меню принтер и послать, а него
тест
"rundll32 user,setcaretblinktime" — установить новую частоту мигания курсора
"rundll32 user,setdoubleclicktime" — установить новую скорость двойного нажатия
"rundll32 sysdm.cpl,InstallDevice_Rundll" — установить non-Plug&Play оборудование

Автор: InSAn