Главная | Регистрация | Вход
Среда, 06.08.2025, 15:05
Приветствую Вас Гость | RSS
Навигация:
Категории:
Базы данных [9]
Графика и Игры [0]
Интернет и Сети [0]
Компоненты и Классы [0]
Мультимедиа [0]
ОС и Железо [0]
Программа и Интерфейс [0]
Технологии [0]
Файловая система [0]
Программирование на Delphi [23]
Обучающие статьи [26]
Небольшие уроки по Delphi
Синтаксис [0]
Рабочий стол [0]
qwerty [0]
Чат сайта:
Главная » Статьи » Программирование на Delphi

Открыть Control Panel
Вы можете разместить в своей программе кнопку настройки принтеров, мыши или еще чего-нибудь, при нажатии на которую будет выводиться соответствующее окно настроек из панели управления (Control Panel). Можно показать и окно с самой папкой.

Code
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 | Добавил: NekitoS (19.04.2009)
Просмотров: 647 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Контакты
ICQ:306182
Статистика
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Copyright "Delphi Project Ltd" © 2025