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

Previous  Top  Next

    
 

 

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;

 

©Drkb::01223