Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Как запустить файл из system32 расширения .msc

Автор: Serhik_z 11.12.2004, 04:29

Как открыть файлы из папки system32 с расширениями . msc .cpl; не прописывая пути.
К примеру

Код

begin
  WinExec(PChar('calc.exe'), SW_ShowNormal); 
end;

Так работает.

Код

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Application.MainForm.Handle, PChar('open'),
  PChar('c:\windows\system32\devmgmt.msc'), Nil, PChar('c:'), SW_ShowNormal);
end;

Автор: Alex 11.12.2004, 10:11

Код


ShellExecute(Handle,'open', 'devmgmt.msc', nil, nil, SW_ShowNormal);

Автор: Serhik_z 11.12.2004, 11:20

Спасибо, это работает.
ShellExecute(Handle,'open', 'devmgmt.msc', nil, nil, SW_ShowNormal);

А вот расширение .cpl - не запускается подскажите.

ShellExecute(Handle,'open', 'desk.cpl', nil, nil, SW_ShowNormal); - Свойство экрана.

Так не запускается.

Автор: Medved 11.12.2004, 15:24

М	2Serhik_z Соблюдайте правила форума. Один топик, один вопрос. Тема закрыта.

Правила форума: http://forum.vingrad.ru/index.php?s=&act=SR&f=27