|
|
![]() |
![]() |
![]() |
Как
вывести окно свойств компьютеpа?
ShellExecute(Application.Handle, 'open', 'sysdm.cpl', nil,
nil,sw_ShowNormal);
Комментарий от "Marina Orlova"
(mary77@atrus.ru)
По 'open' может и не открыться - код ошибки 31
SE_ERR_NOASSOC There is no application associated with the given
filename extension.
чтобы работало на любой машине открываю файлы
*.cpl примерно так:
ShellExecute(h,nil, 'Control.exe' ,'sysdm.cpl',
nil,sw_ShowNormal);
Комментарий от (N_A@softhome.net)
Вообще-то,
правильная строка запуска апплетов в системе выглядит вот
так:
'rundll32.exe shell32.dll,Control_RunDLL'
Эту строку можно
поместить вместо Control.exe из предыдущего комментария. Получится
так:
ShellExecute(h,nil, 'rundll32.exe
shell32.dll,Control_RunDLL',
'sysdm.cpl', nil,sw_ShowNormal);
|
| Copyright ©
"Мастера DELPHI" E-mail:
delphi@mastak.com
http://www.delphimaster.ru |
| Источник получения информации: http://www.delphimaster.ru
|
|
