Диалоги

TOpenDialog, TSaveDialog, TOpenPictureDialog и TSavePictureDialog

2017-09-07T21:26:37+07:00

Перевод одноимённой статьи с сайта delphi.about.com )

Стандарные диалоговые окошки

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

В этой статье мы рассмотрим основные свойства и методы этих диалогов и, особенно, сфокусируем внимание на диалогах Open и Save.

Подробнее...

Диалог отключения сетевого диска

2017-09-08T15:19:55+07:00

Code:

function DisconnectNetworkDrive(Wnd: HWND = 0): DWORD;

begin

if Wnd = 0 then Wnd:=FindWindow('Shell_TrayWnd','');

Result:=WNetDisconnectDialog(Wnd, RESOURCETYPE_DISK);

end;

Пример использования:

Code:

DisconnectNetworkDrive(Application.Handle);

Диалог подключения сетевого диска

2017-09-08T15:18:33+07:00

Code:

procedure TStartForm.NetBtnClick(Sender: TObject);

var

OldDrives: TStringList;

i: Integer;

begin

OldDrives := TStringList.Create;

// Запоминаем список дисков

OldDrives.Assign(Drivebox.Items);

// Показываем диалог подключения

if WNetConnectionDialog(Handle, RESOURCETYPE_DISK) = NO_ERROR then

begin

// Обновляем список дисков

DriveBox.TextCase := tcLowerCase;

for i := 0 to DriveBox.Items.Count - 1 do

begin

// Ищем свободный логический диск

if Olddrives.IndexOf(Drivebox.Items[i]) = -1 then

begin

// Показываем первый найденный логический диск

DriveBox.ItemIndex := i;

// Каскадируем обновление на список подключенных каталогов и др.

DriveBox.Drive := DriveBox.Text[1];

end;

DriveBox.SetFocus;

end;

OldDrives.Free;

end;

Подробнее...

Добавляем компонент в стандартный Message dialog.

2017-09-07T21:28:33+07:00

Автор: Terrance Hui

Пример показывает стандартное диалоговое окно, которое обычно используется для подтверждения дальнейших действий в любой программе с галочкой "Don't show this message again."

Используем функцию CreateMessageDialog и добавляем любой компонент до того как будет вызвана ShowModal.

Подробнее...

Изменение вида сортировки объектов в диалогах

2017-09-08T15:23:59+07:00

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

SaveDialog1: TSaveDialog;

Button1: TButton;

procedure SaveDialog1Show(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

// Стили: $7029 - значки, $702B - список, $702C - таблица, $702D - эскизы, $702E - плитка

// ставим, например таблицу

function NewSaveDlgProc(wnd:HWND; uMsg:integer; wParam:integer; lParam:integer):integer; stdcall;

begin

if uMsg=WM_SHOWWINDOW then

begin

MoveWindow(wnd, 10, 30, 500, 300, True) ;

SendMessage(FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil), WM_COMMAND, $702C, 0);

end;

result:=CallWindowProc(Pointer(GetWindowLong(wnd,GWL_USERDATA)),wnd,uMsg,wParam,lParam)

end;

procedure TForm1.SaveDialog1Show(Sender: TObject);

begin

SetWindowLong(GetParent(SaveDialog1.Handle),GWL_USERDATA,

SetWindowLong(GetParent(SaveDialog1.Handle),DWL_DLGPROC,DWORD(@NewSaveDlgProc)));

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SaveDialog1.Execute

end;

end.

Автор: Krid

Использование InputBox и InputQuery

2017-09-08T15:20:58+07:00

Данная функция демонстрирует 3 очень мощных и полезных процедуры, интегрированных в Delphi.

Диалоговые окна InputBox и InputQuery позволяют пользователю вводить данные.

Функция InputBox используется в том случае, когда не имеет значения что пользователь выбирает для закрытия диалогового окна - кнопку OK или кнопку Cancel (или нажатие клавиши Esc). Если вам необходимо знать какую кнопку нажал пользователь (OK или Cancel (или нажал клавишу Esc)), используйте функцию InputQuery.

Подробнее...

Использование Shell API функции SHBrowseForFolder

2017-09-07T21:41:27+07:00

Code:

uses ShellAPI, ShlObj;

procedure TForm1.Button1Click(Sender: TObject);

var

TitleName : string;

lpItemID : PItemIDList;

BrowseInfo : TBrowseInfo;

DisplayName : array[0..MAX_PATH] of char;

TempPath : array[0..MAX_PATH] of char;

begin

FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);

BrowseInfo.hwndOwner := Form1.Handle;

BrowseInfo.pszDisplayName := @DisplayName;

TitleName := 'Please specify a directory';

BrowseInfo.lpszTitle := PChar(TitleName);

BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;

lpItemID := SHBrowseForFolder(BrowseInfo);

if lpItemId nil then begin

SHGetPathFromIDList(lpItemID, TempPath);

ShowMessage(TempPath);

GlobalFreePtr(lpItemID);

end;

Как вывести диалог Обзор папок

2017-09-07T21:43:28+07:00

Для вывода диалога "Обзор папок" существует функция SHBrowseForFolder. Для выбора того, какие папки будут выведены в диалоге, используется функция SHGetSpecialFolderLocation. В этой программе выводится рабочий стол со всеми подпапками (папки рабочего стола, Мой компьютер, Корзина). Для выбора папки в меню пуск используется CSIDL_STARTMENU вместо CSIDL_DESKTOP.

Подробнее...

Как вывести окно свойств компьютеpа?

2017-09-07T21:29:11+07:00

Code:

ShellExecute(Application.Handle, 'open', 'sysdm.cpl', nil, nil,sw_ShowNormal);

Как вызвать Shutdown Windows dialog?

2017-09-07T21:49:49+07:00

Code:

uses ComObj;

{....}

procedure TForm1.Button1Click(Sender: TObject);

var

shell: Variant;

begin

shell := CreateOleObject('Shell.Application');

shell.ShutdownWindows;

end;

Подробнее...

Как вызвать диалог 'Найти файлы и паки' проводника?

2017-09-08T15:21:38+07:00

Приведенный пример показывает использование DDE для вызова диалога 'Найти файлы и паки' Explorerа. Диалог открывается на каталоге "C:\Download".

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

with TDDEClientConv.Create(Self) do begin

ConnectMode := ddeManual;

ServiceApplication := 'explorer.exe';

SetLink( 'Folders', 'AppProperties');

OpenLink;

ExecuteMacro('[FindFolder(, C:\DOWNLOAD)]', False);

CloseLink;

Free;

end;

Как добавить в диалог TOpenDialog свой CheckBox

2017-09-08T15:28:43+07:00

Вообще, винда предоставляет возможность расширения некоторых стандартных диалогов с помощью шаблонов и hook-процедуры. Например, для OpenFileDialog'а пишется к примеру, такой rc-скрипт с шаблоном

myres.rc

Code:

OFT DIALOG -1, 1, 304, 62

STYLE DS_3DLOOK | DS_CONTROL | WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS

CAPTION ""

FONT 8, "MS Sans Serif"

{

CONTROL "Select Options", 100, "button", BS_GROUPBOX | WS_CHILD | WS_VISIBLE | WS_GROUP, 69, 4, 224, 52

CONTROL "CheckBox1", 101, "button", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 84, 19, 60, 12

CONTROL "CheckBox2", 102, "button", BS_AUTOCHECKBOX | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 84, 38, 60, 12

}

потом он компилится

brcc32.exe myres.rc

Подробнее...

Как открыть диалог Add printer?

2017-09-07T21:38:18+07:00

добавьте ShellAPI в USES

Code:

ShellExecute(handle, nil,

'rundll32.exe',

'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter', '', SW_SHOWNORMAL);

Как открыть диалог свойств аудио?

2017-09-07T21:39:21+07:00

Code:

WinExec('rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2',SW_SHOWNORMAL);

Как открыть диалог смены системного времени?

2017-09-07T21:39:59+07:00

Code:

uses

Shellapi;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShellExecute(Handle, 'open', 'control', 'date/time', nil, SW_SHOW);

end;

Как открыть диалог создания ярлыка?

2017-09-07T21:37:24+07:00

Code:

uses

registry, shellapi;

function Launch_CreateShortCut_Dialog(Directory: string): Boolean;

var

reg: TRegistry;

cmd: string;

begin

Result := False;

reg := TRegistry.Create;

try

reg.Rootkey := HKEY_CLASSES_ROOT;

if reg.OpenKeyReadOnly('.LNK\ShellNew') then

begin

cmd := reg.ReadString('Command');

cmd := StringReplace(cmd, '%1', Directory, []);

Result := True;

WinExec(PChar(cmd), SW_SHOWNORMAL);

end

finally

reg.Free;

end;

{Example}

procedure TForm1.Button1Click(Sender: TObject);

begin

Launch_CreateShortCut_Dialog('c:\temp');

end;

Как показать Choose Computer диалог?

2017-09-07T21:36:38+07:00

"Выбрать компьютер" - это диалог, предоставляемый сетевыми службами (NTLANMAN.DLL) для Windows для отображения серверов и компьютеров.

Подробнее...

Как показать File Properties dialog?

2017-09-07T21:34:14+07:00

Этот код показывает диалоговое окно стандартных свойств файла, как в проводнике Windows

Code:

{ This code shows the standard file properties dialog like in Windows Explorer }

uses

shellapi;

// Thanks to Peter Below (TeamB) for this code

procedure PropertiesDialog(FileName: string);

var

sei: TShellExecuteInfo;

begin

FillChar(sei, SizeOf(sei), 0);

sei.cbSize := SizeOf(sei);

sei.lpFile := PChar(FileName);

sei.lpVerb := 'properties';

sei.fMask := SEE_MASK_INVOKEIDLIST;

ShellExecuteEx(@sei);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if Opendialog1.Execute then

PropertiesDialog(Opendialog1.FileName);

end;

Как показать Open With диалог?

2017-09-07T21:32:52+07:00

Этот код отображает приложение/файл "открыть с помощью" диалоговое окно Ввод полного пути и имени файла в качестве параметра приведет к открытию

диалогового окна с отображением строки "выберите программу, которую вы хотите использовать, чтобы открыть файл "Имя файла"".

Подробнее...

Как получить картинки из MessageDlg?

2017-09-07T21:42:05+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

Ic: TIcon;

begin

Ic := TIcon.Create;

Ic.Handle := LoadIcon(0, IDI_APPLICATION);

Form1.Canvas.Draw(1, 1, Ic);

Ic.Handle := LoadIcon(0, IDI_ASTERISK);

Form1.Canvas.Draw(32, 1, Ic);

Ic.Handle := LoadIcon(0, IDI_EXCLAMATION);

Form1.Canvas.Draw(64, 1, Ic);

Ic.Handle := LoadIcon(0, IDI_QUESTION);

Form1.Canvas.Draw(1, 32, Ic);

Ic.Handle := LoadIcon(0, IDI_HAND);

Form1.Canvas.Draw(32, 32, Ic);

Ic.Handle := LoadIcon(0, IDI_WINLOGO);

Form1.Canvas.Draw(64, 32, Ic);

Ic.Destroy;

end;

Как работать с FileOpenDialog и FileSaveDialоg?

2017-09-07T21:24:13+07:00

Как именно с ними работать чтобы на с: открыть файл?

Похоже я понял что тебя смущает: OpenFileDialog и SaveFileDialog - ничего сами по себе не открывают и не сохраняют. Они нужны только для выбора имени файла. Ставишь их на форму. Там куча свойств и опций - типа исходны каталог, показыать скрытые файлы или нет и т.п. Впрочем по началу можно их вообще не указывать. Тебе надо знать только 1 метод - execute - открыть диалог:

Подробнее...

Манипулирование кнопками OpenDialog

2017-09-07T21:46:25+07:00

Code:

uses

CommCtrl;

// Example: Hide the "Create New Folder" Button.

procedure TForm1.OpenPictureDialog1Show(Sender: TObject);

const

TB_BTN_NEWFOLDER = 40962;

var

hWndToolbar, wnd: HWND;

tbInfo: TTBButtonInfoA;

begin

tbInfo.cbSize := SizeOf(TTBButtonInfo);

tbInfo.dwMask := TBIF_STATE;

tbinfo.fsState := TBSTATE_HIDDEN or TBSTATE_INDETERMINATE;

hWndToolbar := FindWindowEx(GetParent((Sender as TOpenPictureDialog).Handle), 0,

'ToolbarWindow32', nil);

SendMessage(hWndToolbar, TB_SETBUTTONINFO, TB_BTN_NEWFOLDER ,LParam(@tbinfo));

end;

Открытие сокращённого или полного диалога выбора цвета

2017-09-08T15:30:35+07:00

Открытие сокращённого или полного диалога выбора цвета. Вид диалога зависит от того, можно ли показать начальный цвет (C : TColor)

в сокращённом диалоге или нужно раскрывать его полностью. Возвращает выбранный пользователем цвет.

Подробнее...

Позиционирование TSaveDialog

2017-09-08T15:23:06+07:00

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, CommDlg;

type

TMySaveDialog = class(TSaveDialog)

protected

procedure WndProc(var Message: TMessage); override;

end;

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TMySaveDialog.WndProc(var Message: TMessage);

const

X = 10;

Y = 30;

begin

with Message do

begin

if ((Msg = WM_NOTIFY) and (POFNotify(LParam)^.hdr.code = CDN_INITDONE)) or

((Msg = WM_UPDATEUISTATE) and (WParamLo = UIS_SET)) then

begin

if Owner is TForm then

SetWindowPos(GetParent(Handle), HWND_TOP, X, Y, 0, 0, SWP_NOSIZE);

end

else

inherited;

end

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

TMySaveDialog.Create(Self).Execute;

end;

end.

Автор: Александр (Rouse_) Багель

Подробнее...

Показать Choose Domain диалог?

2017-09-07T21:47:54+07:00

Code:

{

If you are developing network software for Windows NT,

you usually need to ask the user to select a computer or domain

he wants to connect/login.

}

const

FOCUSDLG_DOMAINS_ONLY = 1;

FOCUSDLG_SERVERS_ONLY = 2;

FOCUSDLG_SERVERS_DOMAINS = 3;

FOCUSDLG_BROWSE_LOGON_DOMAIN = $00010000;

FOCUSDLG_BROWSE_WKSTA_DOMAIN = $00020000;

FOCUSDLG_BROWSE_OTHER_DOMAINS = $00040000;

FOCUSDLG_BROWSE_TRUSTING_DOMAINS = $00080000;

FOCUSDLG_BROWSE_WORKGROUP_DOMAINS = $00100000;

FOCUSDLG_BROWSE_ALL_DOMAINS = FOCUSDLG_BROWSE_LOGON_DOMAIN or

FOCUSDLG_BROWSE_WKSTA_DOMAIN or FOCUSDLG_BROWSE_OTHER_DOMAINS or

FOCUSDLG_BROWSE_TRUSTING_DOMAINS or FOCUSDLG_BROWSE_WORKGROUP_DOMAINS;

function SystemFocusDialog(hwndOwner: HWND; dwSelectionFlag: UINT;

wszName: PWideChar; dwBufSize: DWORD; var bOKPressed: Boolean;

wszHelpFile: PWideChar; dwContextHelpId: DWORD): DWORD; stdcall;

external 'ntlanman.dll' Name 'I_SystemFocusDialog';

function ComputerBrowser(hWndParent: HWND; wCompName: PWideChar;

dwBufLen: DWORD): Boolean;

var

dwError: DWORD;

begin

Result := False;

dwError := SystemFocusDialog(hWndParent, FOCUSDLG_SERVERS_DOMAINS or

FOCUSDLG_BROWSE_ALL_DOMAINS,

wCompName, dwBufLen, Result, nil, 0);

if dwError <> NO_ERROR then Exit;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

wCompName: array [0..MAX_COMPUTERNAME_LENGTH + 1] of WideChar;

begin

if ComputerBrowser(0, wCompName, MAX_COMPUTERNAME_LENGTH + 1) then

ShowMessage(wCompName)

else

ShowMessage('no computer selected');

end;

{***************************}

// Show the ServerBrowseDialogA0 Dialog

type

TServerBrowseDialogA0 = function(hwnd: HWND; pchBuffer: Pointer;

cchBufSize: DWORD): bool;

stdcall;

function ShowServerDialog(AHandle: THandle): string;

var

ServerBrowseDialogA0: TServerBrowseDialogA0;

LANMAN_DLL: DWORD;

buffer: array[0..1024] of char;

bLoadLib: Boolean;

begin

LANMAN_DLL := GetModuleHandle('NTLANMAN.DLL');

if LANMAN_DLL = 0 then

begin

LANMAN_DLL := LoadLibrary('NTLANMAN.DLL');

bLoadLib := True;

end;

if LANMAN_DLL <> 0 then

begin @ServerBrowseDialogA0 := GetProcAddress(LANMAN_DLL, 'ServerBrowseDialogA0');

DialogBox(HInstance, MAKEINTRESOURCE(101), AHandle, nil);

ServerBrowseDialogA0(AHandle, @buffer, 1024);

if buffer[0] = '\' then

begin

Result := buffer;

end;

if bLoadLib then

FreeLibrary(LANMAN_DLL);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

label1.Caption := ShowServerDialog(Form1.Handle);

end;

Показать Run диалог

2017-09-07T21:47:14+07:00

Code:

uses

ComObj;

procedure TForm1.FormCreate(Sender: TObject);

var

ShellApplication: Variant;

begin

ShellApplication := CreateOleObject('Shell.Application');

ShellApplication.FileRun;

end;

{*****************************}

{2.}

{ This code uses the undocumented RunFileDlg function to show the "run" dialog }

// For Win NT

procedure RunFileDlgW(OwnerWnd: HWND; Icon: HICON; lpstrDirectory: PWideChar;

lpstrTitle: PWideChar; lpstrDescription: PWideChar; Flags: Longint); stdcall;

external 'Shell32.dll' Index 61;

// For Win 9x (Win NT to show standard captions )

procedure RunFileDlg(OwnerWnd: HWND; Icon: HICON; lpstrDirectory: PChar;

lpstrTitle: PChar; lpstrDescription: PChar; Flags: Longint); stdcall;

external 'Shell32.dll' Index 61;

const

RFF_NOBROWSE = 1; //Removes the browse button.

RFF_NODEFAULT = 2; // No default item selected.

RFF_CALCDIRECTORY = 4; // Calculates the working directory from the file name.

RFF_NOLABEL = 8; // Removes the edit box label.

RFF_NOSEPARATEMEM = 14; // Removes the Separate Memory Space check box (Windows NT only).

function ShowRunFileDialg(OwnerWnd: HWND; InitialDir, Title, Description: PChar;

flags: Integer; StandardCaptions: Boolean): Boolean;

var

HideBrowseButton: Boolean;

TitleWideChar, InitialDirWideChar, DescriptionWideChar: PWideChar;

Size: Integer;

begin

if (Win32Platform = VER_PLATFORM_WIN32_NT) and not StandardCaptions then

begin

Size := SizeOf(WideChar) * MAX_PATH;

InitialDirWideChar := nil;

TitleWideChar := nil;

DescriptionWideChar := nil;

GetMem(InitialDirWideChar, Size);

GetMem(TitleWideChar, Size);

GetMem(DescriptionWideChar, Size);

StringToWideChar(InitialDir, InitialDirWideChar, MAX_PATH);

StringToWideChar(Title, TitleWideChar, MAX_PATH);

StringToWideChar(Description, DescriptionWideChar, MAX_PATH);

try

RunFileDlgW(OwnerWnd, 0, InitialDirWideChar, TitleWideChar, DescriptionWideChar, Flags);

finally

FreeMem(InitialDirWideChar);

FreeMem(TitleWideChar);

FreeMem(DescriptionWideChar);

end;

end else

RunFileDlg(OwnerWnd, 0, PChar(InitialDir), PChar(Title), PChar(Description), Flags);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

ShowRunFileDialg(FindWindow('Shell_TrayWnd', nil), nil, nil, nil, RFF_NOBROWSE, True);

end;

Правильные диалоги от Борланда

2017-09-08T15:35:13+07:00

Если покопаться в фирменных "Дельфовых" примерах, можно найти ГОРАЗДО более удачную конструкцию (которую, кстати, я уже давно использую).

Еще раз подчеркну - это не моя придумка, а ребят из Борланда.

Эта конструкция позволяет:

·	Возвращать ЛЮБЫЕ значения;

·	ДИНАМИЧЕСКИ создавать форму;

·	Еще куча всяких "бонусов", просто лень описывать :-)

Итак, смотрим исходники...

Подробнее...

Просмотр списка файлов в File Dialogs

2017-09-07T21:45:44+07:00

Code:

// If an application asks user to select an icon, it's

// more convenient for the user to see list of files as

// large icons instead of small icons. Also, for selecting

// an image file, user will be happier to choose an image

// by seeing the thumbnails.

// The standard file dialog initialy shows the files in

// the LIST (small icon) style, and there is no documented

// way to change this behavior. So, if user wants to see

// the file list in another style, she/he should change

// it manually by selecting the desired view style form

// the provided popup menu.

// Here is a workaround for this limitation to select the

// reasonable view style for a file dialog.

type

TFileViewStyle = (fvsIcons, fvsList, fvsDetails, fvsThumbnails, fvsTiles);

function SetFileDialogViewStyle(Handle: THandle; ViewStyle: TFileViewStyle): Boolean;

const

CommandIDs: array[TFileViewStyle] of Word = ($7029, $702B, $702C, $702D, $702E);

var

NotifyWnd: THandle;

begin

Result := False;

NotifyWnd := FindWindowEx(GetParent(Handle), 0, 'SHELLDLL_DefView', nil);

if NotifyWnd <> 0 then

begin

SendMessage(NotifyWnd, WM_COMMAND, CommandIDs[ViewStyle], 0);

Result := True;

end;

// Each time the file dialog opens, the above function should

// be called to set the desired view style. The OnShow event

// of the file dialogs seems to be the right place for this

// purpose, however at that time the list is not created yet

// and the function fails.

// When the file list is created, the dialog raises two events:

// OnFolderChange and OnSelectionChange events. We can use one

// of these events for our purpose. However, we have to consider

// that the function should be called just once for each show.

// Here is a sample usage of the introduced function:

procedure TForm1.Button1Click(Sender: TObject);

begin

OpenDialog1.Tag := 0;

OpenDialog1.Execute;

end;

procedure TForm1.OpenDialog1FolderChange(Sender: TObject);

begin

if OpenDialog1.Tag = 0 then

begin

SetFileDialogViewStyle(OpenDialog1.Handle, fvsIcons)

OpenDialog1.Tag := 1;

end;

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

2017-09-08T15:31:40+07:00

Code:

{

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

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

Автор: Gua, gua@ukr.net, ICQ:141585495, Simferopol

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

// Открытие диалогового окна "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;