shell相对路径怎么表示

[zth1202]

比如我想打开IE
但是我不知道系统在那个盘符下面

[zllang]

系统环境中有系统路径，应该可以访问那个路径，但不知道具体代码，然后在SHELL中加上就是了。

[zth1202]

我就是要代码呀

[jacktown]

读注册表项出来就可以了！

[zth1202]

代码有没有呀

[xeonwei]

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

'打开Outlook
ShellExecute Me.hwnd, "open", "mailto:[e-mail]?subject=帮助", "", "", vbNormalFocus
'打开IE
ShellExecute Me.hwnd, "open", "www.google.com", "", "", vbNormalFocus

[zth1202]

求救

[jacktown]

Public Const HKEY_CLASSES_ROOT = &H80000000

Public Const HKEY_CURRENT_USER = &H80000001

Public Const HKEY_LOCAL_MACHINE = &H80000002

Public Const HKEY_USERS = &H80000003

Public Const HKEY_PERFORMANCE_DATA = &H80000004

Public Const HKEY_CURRENT_CONFIG = &H80000005

Public Const HKEY_DYN_DATA = &H80000006

Public Const REG_NONE = 0 ' No value type

Public Const REG_SZ = 1 ' Unicode nul terminated string

Public Const REG_EXPAND_SZ = 2 ' Unicode nul terminated string

Public Const REG_BINARY = 3 ' Free form binary

Public Const REG_DWORD = 4 ' 32-bit number

Public Const REG_DWORD_BIG_ENDIAN = 5 ' 32-bit number

Public Const REG_MULTI_SZ = 7 ' Multiple Unicode strings

Public Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Public Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Public Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Sub Main()
Dim hKey As Long
dim ie_path as string
ie_path = Space(255)
ret = RegOpenKey(HKEY_CLASSES_ROOT, "Applications\iexplore.exe\shell\open\command", hKey)
ret = RegQueryValueEx(hKey, "", 0, REG_SZ, ByVal ie_path, Len(ie_path))
RegCloseKey hKey
msgbox ie_path
End Sub

[蒋晟]

直接用ShellExecute执行about:blank

[WM_JAWIN]

VB内置的好, shell "cmd /C start URL" ,vbhide
把URL换成你的网址就行了