Автор: http://www.swissdelphicenter.ch
WinExec('rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl, '2', SW_SHOWNORMAL);