[RESOLVED]Shell System Properties
Currently in the process of creating a shell tool.
and I'm trying to mimic the right click on 'My Computer'
I cannot find any reference to shelling 'System Properties'
any ideas?
I've been able to manage the first 3 main context's of the menu for those interested in them
VB Code:
Select Case PopMenu("Explore;Search;Manage;Properties", 0, 0)
Case 65535:
Dim sGuid2 As String
sGuid2 = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
ShellExecute Me.hwnd, vbNullString, sGuid2, vbNullString, vbNullString, SW_MAX
Case 65534:
Dim sGuid3 As String
sGuid3 = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
ShellExecute Me.hwnd, "find", sGuid3, vbNullString, vbNullString, SW_MAX
Case 65533:
Dim sGuid4 As String
Dim wPath As String, strSave As String
strSave = String(200, Chr$(0))
wPath = Left$(strSave, GetWindowsDirectory(strSave, Len(strSave)))
wPath = wPath & "\system32\compmgmt.msc "
ShellExecute Me.hwnd, vbNullString, wPath, vbNullString, vbNullString, SW_MAX
End Select
Re: Shell System Properties
Re: Shell System Properties
Quote:
Originally Posted by RobDog888
You mean like winmsd?
nah that would be system info 32
what I'm after is the system properties
Start-> Settings-> Control Panel--> System
Re: Shell System Properties
I remember there is a way to shell out control panel appletts using the rundll32.dll
with the appropriate .cpl file. Try a search for that and I know you will find it.
HTH
Re: [RESOLVED]Shell System Properties
for those interested
VB Code:
Dim wPath2 As String, strSave2 As String
strSave2 = String(200, Chr$(0))
wPath2 = Left$(strSave2, GetWindowsDirectory(strSave2, Len(strSave2)))
wPath2 = wPath2 & "\system32\rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0"
Shell wPath2
is how to shell system properties.
Thanx.