Процедуры для открытия диалогового окна "Свойства Экрана"
Code:
{ **** UBPFD *********** by kladovka.net.ru ****
>> Процедуры для открытия диалогового окна "Свойства Экрана"
Зависимости: ShellApi
Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright: Gua
Дата: 18 июля 2002 г.
********************************************** }
// Открытие диалогового окна "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;
В статье представлены процедуры на языке Pascal для открытия диалогового окна "Свойства Экрана" в операционной системе Windows, а также возможности перехода к определенным закладкам.
