| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Общие вопросы > Открытие апплета панели управления |
| Автор: Guest_Александр 24.1.2003, 20:04 |
| Доброго времени суток. Щелкая правой кнопкой мыши по .CPL файлу, в контекстном меню появляеться пунт "Открыть с помощью Панели управления". Как сделать так, чтобы мой апплет (.CPL файл) тоже мог открыватся с помощью данного пункта контекстного меню? |
| Автор: Guest_cully 26.1.2003, 19:52 |
| дык, этот пункт для всех файлов есть с расширением *.cpl в чем проблема? Если из проги надо то: ShellExecute(0, 'cplopen', 'inetcpl.cpl', nil, nil, SW_SHOWNORMAL); |
| Автор: Medved 27.1.2003, 02:46 |
| TAppletApplication.ControlPanelHandle |
| Автор: Medved 27.1.2003, 06:33 |
| Вы можете разместить в своей программе кнопку настройки принтеров, мыши или еще чего-нибудь, при нажатии на которую будет выводиться соответствующее окно настроек из панели управления (Control Panel). Можно показать и окно с самой папкой. procedure TForm1.Button1Click(Sender: TObject); var buffer: array [0..1023] of char; begin GetWindowsDirectory(buffer, 1024); WinExec(PChar(buffer + '\Control'), sw_ShowNormal); WinExec(PChar(buffer + '\Control PRINTERS'), sw_ShowNormal); WinExec(PChar(buffer + '\Control TIMEDATE.CPL'), sw_ShowNormal ); WinExec(PChar(buffer + '\Control MOUSE'), sw_ShowNormal); end; |