1   
2   void __fastcall TForm1::Button1Click(TObject *Sender)
3   {
4   //display control panel
5   WinExec("rundll32 shell32.dll, Control_RunDLL", SW_SHOW);
6   }
7   //---------------------------------------------------------------------------
8   void __fastcall TForm1::Button2Click(TObject *Sender)
9   {
10  //Launch display properties
11  WinExec("rundll32 shell32.dll, Control_RunDLL desk.cpl, , 0", SW_SHOW);
12  }
13  //---------------------------------------------------------------------------
14