Code:

{

>> Процедуры для открытия диалогового окна "Свойства Экрана"

 

Зависимости: ShellApi

Автор:       Gua, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., ICQ:141585495, Simferopol

Copyright:   Gua

 

********************************************** }

 

// Открытие диалогового окна "Display Properties"

procedure DisplayPropertiesWindow;

begin

ShellExecute(0,'open',Pchar('rundll32.exe'),'shell32.dll,Control_RunDLL Desk.cpl', nil, SW_normal);

end;

 

// Открытие диалогового окна "Display Properties" с закладкой Desktop

procedure DisplayPropertiesWindow_Desktop;

begin

ShellExecute(0,'open',Pchar('rundll32.exe'),'shell32.dll,Control_RunDLL Desk.cpl @0,0', nil, SW_normal);

end;

 

// Открытие диалогового окна "Display Properties" с закладкой Screen Saver

procedure DisplayPropertiesWindow_ScreenSaver;

begin

ShellExecute(0,'open',Pchar('rundll32.exe'),'shell32.dll,Control_RunDLL Desk.cpl @0,1', nil, SW_normal);

end;

 

// Открытие диалогового окна "Display Properties" с закладкой Settings

procedure DisplayPropertiesWindow_Settings;

begin

ShellExecute(0,'open',Pchar('rundll32.exe'),'shell32.dll,Control_RunDLL Desk.cpl @0,3', nil, SW_normal);

end;

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить