15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как запустить любой апплет панели управления.

Компилятор: Delphi

Апплеты в панели управления можно запускать при помощи функции WinExec, запуская control.exe и передав ей в качестве параметра имя апплета. Файлы апплетов (.cpl) обычно находятся в системной директории Windows.

Некоторые из апплетов могут располагаться за пределами системной директории, поэтому их прийдётся запускать просто по имени.

Пример:

procedure TForm1.Button1Click(Sender: TObject);
begin
  WinExec('C:\WINDOWS\CONTROL.EXE TIMEDATE.CPL', 
       sw_ShowNormal);
  WinExec('C:\WINDOWS\CONTROL.EXE MOUSE', 
       sw_ShowNormal);
  WinExec('C:\WINDOWS\CONTROL.EXE PRINTERS', 
       sw_ShowNormal);
end;