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;


Взято с Исходников.ru



Начало  Назад  Вперед