Советы по Delphi


Как открыть 'Панель управления' и ее компоненты?


Олег Кулабухов приводит следующий код:

Начнем.

Запуск самой контрольной панели:

    WinExec('rundll32 shell32.dll,Control_RunDLL',SW_SHOW);

Свойства дисплея - Фон:



    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,0',SW_SHOW);

Свойства дисплея - Хранитель экрана:

    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,1',SW_SHOW);

Свойства экрана - Оформление:

    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,2',SW_SHOW);

Свойства экрана - Настройки:

    WinExec('rundll32 shell32.dll,Control_RunDLL desk.cpl,,3',SW_SHOW);

Установка времени:

    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);

[001863]



Содержание раздела