![]() |
|
Модераторы: Poseidon, Snowy, bems, MetalFan |
![]()
|
|
| Guest_Александр |
|
|||
|
Unregistered |
Доброго времени суток.
Щелкая правой кнопкой мыши по .CPL файлу, в контекстном меню появляеться пунт "Открыть с помощью Панели управления". Как сделать так, чтобы мой апплет (.CPL файл) тоже мог открыватся с помощью данного пункта контекстного меню? |
|||
|
||||
| Guest_cully |
|
|||
|
Unregistered |
дык, этот пункт для всех файлов есть с расширением *.cpl в чем проблема? Если из проги надо то:
ShellExecute(0, 'cplopen', 'inetcpl.cpl', nil, nil, SW_SHOWNORMAL); |
|||
|
||||
| Medved |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
TAppletApplication.ControlPanelHandle
-------------------- |
|||
|
||||
| Medved |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 7209 Регистрация: 15.9.2002 Где: Kazakhstan, Astan a Репутация: 14 Всего: 154 |
Вы можете разместить в своей программе кнопку настройки принтеров, мыши или еще чего-нибудь, при нажатии на которую будет выводиться соответствующее окно настроек из панели управления (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; -------------------- |
|||
|
||||
![]()
|
| Правила форума "Delphi: Общие вопросы" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |