Панель администрирования Windows в Делфи

[sadovod1972]

Здравствуйте.
Подскажите код для написания программы, где по нажатию кнопки, будет открываться панель администрирования windows

Код ниже не подходит, так как открывает проводник.

procedure TForm1.Button1Click(Sender: TObject);

begin
ShellExecute(handle,
               'open',
               'explorer.exe',
               pchar('::{D20EA4E1-3957-11d2-A40B-0C5020524153}'), 
               nil,
               SW_SHOWNORMAL);

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

[xxbesoxx]

sadovod1972 Что такой 'explorer.exe' ? что вы прописали то открывается. Покажите пожалуйста скриншот что вы хотите именно открыт

[sadovod1972]

Мне нужно, чтобы, к примеру вот это окно запускалось с кнопки.

[DIONISKA]

может так?

 ShellExecute(handle,
               'open',
               'explorer.exe',
               pchar('shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}'),
               nil,
               SW_SHOWNORMAL);

[Vapaamies]

Люблю такие штуки, заинтересовался. Чуток гугления, и нашел на Хабре, что нужно shell: перед путем к объекту оболочки писать:

explorer shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}

Эта командная строка сработала у меня даже из-под XP.

[Человек_Борща]

И зачем такие страсти? Есть же API.

IShellControlPanel.Open('Microsoft.AdministrativeTools',nil,nil);

[sadovod1972]

Сообщение от DIONISKA

может так?

 ShellExecute(handle,
               'open',
               'explorer.exe',
               pchar('shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}'),
               nil,
               SW_SHOWNORMAL);

Этот код работает, спасибо!

Сообщение от Человек_Борща

И зачем такие страсти? Есть же API.

IShellControlPanel.Open('Microsoft.AdministrativeTools',nil,nil);

С этим не разобрался, выдает ошибку, мне бы подробней написать код.

Сообщение от Vapaamies

Люблю такие штуки, заинтересовался. Чуток гугления, и нашел на Хабре, что нужно shell: перед путем к объекту оболочки писать:

explorer shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}

Эта командная строка сработала у меня даже из-под XP.

поподробней, если можно, а то также не работает, чего то не так делаю.

[ZuBy]

Сообщение от sadovod1972

поподробней, если можно, а то также не работает, чего то не так делаю.

зайди в командную строку (Win+R, набери cmd нажми Enter) и вставь

explorer shell:::{D20EA4E1-3957-11d2-A40B-0C5020524153}

нажми Enter