如何实现使用程序启动机器里安装的PHOTOSHOP?
想在自己程序中加个功能,点击后自动启动PHOTOSHOP,最好是把某个PICTURE中的图片导入到PHOTOSHOP中

[解决办法]
先打开注册表，看看PhotoShop在注册表中启动文件信息存放位置。然后用程序访问注册表此位置内容，得到启动文件信息，再使用WinExec之类的API启动它。注意：PhotoShop各个版本不同，则注册表的内容也不同，有必要的话统统需要检查。例如我这里的CS版注册信息是：
[HKEY_LOCAL_MACHINE\SOFTWARE\Adobe\Photoshop\8.0]
"ApplicationPath "= "C:\\Program Files\\Adobe\\Photoshop CS\\ "
而启动文件是Photoshop.exe，这样就可以找到，并启动它了。
[解决办法]
' 以下代码在窗体中，请在窗体中加入一个 CommandButton （Command1）
Option Explicit

Private Declare Function RegOpenKeyEx Lib "advapi32.dll " Alias "RegOpenKeyExA " (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll " (ByVal hKey As Long) As Long
Private 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

Private Const KEY_ALL_ACCESS = &HF003F 'Permission for all types of access.
Private Const KEY_QUERY_VALUE = &H1 'Permission to query subkey data.
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1 'A string terminated by a null character.
Private Const REG_EXPAND_SZ = 2 'A null-terminated string which contains unexpanded environment variables.

' 启动 Photoshop 并打开传入的图像文件
Public Sub StartPhotoshop(Optional ByVal ImageFile As String)

Const RegKey_PS As String = "Software\Microsoft\Windows\CurrentVersion\App Paths\Photoshop.exe "

Dim sFile As String

If RegKeyExists(HKEY_LOCAL_MACHINE, RegKey_PS) Then

sFile = ReadRegString(HKEY_LOCAL_MACHINE, RegKey_PS, vbNullString)

If Len(sFile) > 0 Then

If Len(ImageFile) > 0 Then
ImageFile = " " " " & ImageFile & " " " "
End If

Shell sFile & " " & ImageFile, vbNormalFocus

End If

Else

MsgBox "没有安装 Photoshop ", vbInformation, App.Title

End If

End Sub

Private Function RegKeyExists(ByVal Key As Long, ByVal SubKey As String) As Boolean

Dim hKey As Long

If RegOpenKeyEx(Key, SubKey, 0, KEY_QUERY_VALUE, hKey) = 0 Then
RegKeyExists = True
RegCloseKey hKey
End If

End Function

Private Function ReadRegString(ByVal Key As Long, ByVal SubKey As String, ByVal ValueName As String, Optional ByVal Default As String) As String

Dim hKey As Long
Dim lLen As Long
Dim lType As Long
Dim sTmp As String

ReadRegString = Default

If RegOpenKeyEx(Key, SubKey, 0, KEY_ALL_ACCESS, hKey) = 0 Then

If RegQueryValueEx(hKey, ValueName, 0, lType, ByVal 0&, lLen) = 0 Then

If lType = REG_SZ Or lType = REG_EXPAND_SZ Then

sTmp = Space(lLen)

If RegQueryValueEx(hKey, ValueName, 0, lType, ByVal sTmp, lLen) = 0 Then
ReadRegString = Left(sTmp, lLen - 1)
End If

End If

End If

RegCloseKey hKey

End If

End Function

' 测试
Private Sub Command1_Click()

StartPhotoshop "C:\WINDOWS\Web\Wallpaper\peace.jpg "

End Sub