Команды Windows для выполнения различных операций можно использовать из приложения Дельфи с помощью следующей конструкции:
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" - спровоцировать сбой!!! (Знаю, сам сразу не поверил, но это работает!..) "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 оборудование |