Následujícím jednoduchým a krátkým kódem dosáhneme požadovaného efektu:
procedure TForm1.Button1Click(Sender: TObject);
begin
WinExec(Pchar('rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl'),SW_NORMAL);
end;
Chci jen upozornit, že zdánlivě chybějící mezera (z typografického hlediska) za čárkou mezi "shell32.dll" a "Control_RunDLL" chybí zcela úmyslně, neboť je to součást parametrů pro "rundll32.exe". Při vložení mezery vám příklad nebude fungovat a systém se ohlásí chybovou hláškou.