• Home
 · 
• Windows System Services
 · 
• Opens Control Panel File (Debugged,Updated)

Opens Control Panel File (Debugged,Updated)

Opens Control Panel File (Debugged,Updated)

Rate Opens Control Panel File (Debugged,Updated)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Desktop Properties @ Customize Desktop:
'OpenCPLFile "desk.cpl", ",@web"
'Time-Date Properties
'OpenCPLFile "timedate.cpl"

On Error Goto errOCF

	Dim sFullCommand As String

	'The command was incomplete in my previous code, sorry for that...

	sFullCommand = "Rundll32.exe Shell32.dll,Control_RunDLL " & sCPL
	'Commas ',' before arguments may not work with every cpl files
	if Not (sArgs = "") Then _
		sFullCommand = sFullCommand & "," & sArgs


	Shell sFullCommand

	Exit Sub
errOCF:
	MsgBox Err.Description, vbCritical, "Error " & Err
	Err.Clear
End Sub
'Comments are welcomed...