[RESOLVED]Shell System Properties

[TokersBall_CDXX]

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

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

[RobDog888]

You mean like winmsd?

[TokersBall_CDXX]

You mean like winmsd?

nah that would be system info 32

what I'm after is the system properties


Start-> Settings-> Control Panel--> System

[RobDog888]

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

[TokersBall_CDXX]

for those interested

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.