7453
社区成员
- 主页
做一按钮，点击后，连接到（相对路径）一个可执行文件上（setup.exe）!!该怎么做！谢谢！
做一按钮，点击后，连接到（相对路径）一个可执行文件上（setup.exe）!!该怎么做！
...全文
请发表友善的回复…
发表回复
luckyjeery 2003-01-14
做一按钮，点击后，连接到（相对路径）一个可执行文件上（setup.exe,WORD文档或是网页呢？？？）!!！如果是打开文件的目录呢？？给个例子？谢谢！
zmcpu 2003-01-14
---- 在安装软件等一些操作中，需要用户指定安装路径，现在软件的安装界面都是非常友好的，一般来说给出一个缺省路径，用户如不满意可以在文件夹列表中选择其他的路径。 在WIN9X下，一般不再采用原来的先在驱动器列表框中选择驱动器再在相应的驱动器中选择相应文件夹的界面，而是采用的类似资源管理器中“所有文件夹”界面：最上层是“桌面”，然后是“我的电脑”、驱动器A、C、D...等，在一个列表框中用户可实现浏览所有驱动器及文件夹的操作。这种特色的文件列表没有现成的控件可供使用，但利用API函数可方便地实现。
---- 实现方法：API函数SHBrowseForFolder可以提供这样的文件列表，它需要用到一个BROWSEINFO类型，此类型包括了列表框使用的参数，此类型的声明见下面的程序，其中这里用到的几个参数简单说明一下：
---- hwndOwner—当前窗口的句柄。
---- pidlRoot—从何根路径开始展开文件夹，缺省情况下从“桌面”开始展开。
---- lpszTitle—目录树上方的标题，用来给用户一些提示信息。
---- ulFlags—显示标志控制项：比如若赋值为BIF_BROWSEFORCOMPUTER，则只有当用户选择“我的电脑”时“确定”按钮才有效，这里我们需要的是
---- BIF_RETURNONLYFSDIRS，只有用户选择的是文件夹时“确定”按钮才有效。
---- 此函数返回值是指向项目（ITEM）的一个指针，有了这个数值，再用API函数SHGetPathFromIDList可以获得具体的路径，如果用户按的是“取消”按钮，则返回值为NULL。
---- 下面是一个例子，在窗体中放置一个命令按钮command1、一个文本框Text1，在窗体的声明部分API声明函数和类型及常量如下：
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = &H1
Private pidl As Long
Private Declare Function
SHGetPathFromIDList _
Lib "shell32.dll" Alias
"SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal
pszPath As String) As Long
Private Declare Function
SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
---- 双击命令按钮，写如下代码：
Private Sub command1_Click()
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer
'句柄
bi.hOwner = Me.hWnd
'展开根目录
bi.pidlRoot = 0&
'列表框标题
bi.lpszTitle = "请选择软件安装路径："
'规定只能选择文件夹，其他无效
bi.ulFlags = BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl = SHBrowseForFolder(bi)
'利用API函数获取返回的路径
path = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
Text1 = Left(path, pos - 1)
Else: Text1 = ""
End If
End Sub
---- 运行此程序，单击命令按钮，就可以看到和资源管理器中一样的“所有文件夹”列表了。
---- 实现方法：API函数SHBrowseForFolder可以提供这样的文件列表，它需要用到一个BROWSEINFO类型，此类型包括了列表框使用的参数，此类型的声明见下面的程序，其中这里用到的几个参数简单说明一下：
---- hwndOwner—当前窗口的句柄。
---- pidlRoot—从何根路径开始展开文件夹，缺省情况下从“桌面”开始展开。
---- lpszTitle—目录树上方的标题，用来给用户一些提示信息。
---- ulFlags—显示标志控制项：比如若赋值为BIF_BROWSEFORCOMPUTER，则只有当用户选择“我的电脑”时“确定”按钮才有效，这里我们需要的是
---- BIF_RETURNONLYFSDIRS，只有用户选择的是文件夹时“确定”按钮才有效。
---- 此函数返回值是指向项目（ITEM）的一个指针，有了这个数值，再用API函数SHGetPathFromIDList可以获得具体的路径，如果用户按的是“取消”按钮，则返回值为NULL。
---- 下面是一个例子，在窗体中放置一个命令按钮command1、一个文本框Text1，在窗体的声明部分API声明函数和类型及常量如下：
Option Explicit
Private Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type
Const BIF_RETURNONLYFSDIRS = &H1
Private pidl As Long
Private Declare Function
SHGetPathFromIDList _
Lib "shell32.dll" Alias
"SHGetPathFromIDListA" _
(ByVal pidl As Long, ByVal
pszPath As String) As Long
Private Declare Function
SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" _
(lpBrowseInfo As BROWSEINFO) As Long
---- 双击命令按钮，写如下代码：
Private Sub command1_Click()
Dim bi As BROWSEINFO
Dim r As Long
Dim pidl As Long
Dim path As String
Dim pos As Integer
'句柄
bi.hOwner = Me.hWnd
'展开根目录
bi.pidlRoot = 0&
'列表框标题
bi.lpszTitle = "请选择软件安装路径："
'规定只能选择文件夹，其他无效
bi.ulFlags = BIF_RETURNONLYFSDIRS
'调用API函数显示列表框
pidl = SHBrowseForFolder(bi)
'利用API函数获取返回的路径
path = Space$(512)
r = SHGetPathFromIDList(ByVal pidl&, ByVal path)
If r Then
pos = InStr(path, Chr$(0))
Text1 = Left(path, pos - 1)
Else: Text1 = ""
End If
End Sub
---- 运行此程序，单击命令按钮，就可以看到和资源管理器中一样的“所有文件夹”列表了。
luckyjeery 2003-01-14
如果是打开文件的目录呢？？给个例子？谢谢！
rushing 2003-01-14
ShellEx()也行。功能更强。
twinking 2003-01-14
相对路径用
APP.PATH
表示
比如
shell(app.path &"\setup.exe",1)
APP.PATH
表示
比如
shell(app.path &"\setup.exe",1)
luckyjeery 2003-01-14
如果是打开文件的目录呢？？
suntt 2003-01-14
Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。
' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。
本示例使用 Shell 函数来完成一个用户指定的应用程序。
' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。
suntt 2003-01-14
shell
Shell 函数
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数：
部分 描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
Shell 函数
执行一个可执行文件，返回一个 Variant (Double)，如果成功的话，代表这个程序的任务 ID，若不成功，则会返回 0。
语法
Shell(pathname[,windowstyle])
Shell 函数的语法含有下面这些命名参数：
部分 描述
pathname 必要参数。Variant (String)，要执行的程序名，以及任何必需的参数或命令行变量，可能还包括目录或文件夹，以及驱动器。
Windowstyle 可选参数。Variant (Integer)，表示在程序运行时窗口的样式。如果 windowstyle 省略，则程序是以具有焦点的最小化窗口来执行的。
windowstyle 命名参数有以下这些值：
常量 值 描述
vbHide 0 窗口被隐藏，且焦点会移到隐式窗口。
VbNormalFocus 1 窗口具有焦点，且会还原到它原来的大小和位置。
VbMinimizedFocus 2 窗口会以一个具有焦点的图标来显示。
VbMaximizedFocus 3 窗口是一个具有焦点的最大化窗口。
VbNormalNoFocus 4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。
VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。
说明
如果 Shell 函数成功地执行了所要执行的文件，则它会返回程序的任务 ID。任务 ID 是一个唯一的数值，用来指明正在运行的程序。如果 Shell 函数不能打开命名的程序，则会产生错误。
注意 缺省情况下，Shell 函数是以异步方式来执行其它程序的。也就是说，用 Shell 启动的程序可能还没有完成执行过程，就已经执行到 Shell 函数之后的语句。
leehq 2003-01-14
Shell( "setup.exe" )
happybeyond 2003-01-14
shell()
luckyjeery 2003-01-14
结帖！
谢谢大家！给分喽！
谢谢大家！给分喽！
zmcpu 2003-01-14
This function returns a path of any loaded executable
'Declares for GetLoadedFilePath
Declare Function GetModuleHandle Lib "Kernel" (ByVal FileName$) As Integer
Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule%, ByVal FileName$, ByVal nsize%) As Integer
Function GetLoadedFilePath (FileName As String) As String
Dim hmod As Integer, Path As String, PathLen As Integer
hmod = GetModuleHandle%(FileName)
Path = Space(255)
PathLen = GetModuleFileName%(hmod, Path, Len(Path))
GetLoadedFilePath = Left(Path, PathLen)
End Function
'Declares for GetLoadedFilePath
Declare Function GetModuleHandle Lib "Kernel" (ByVal FileName$) As Integer
Declare Function GetModuleFileName Lib "Kernel" (ByVal hModule%, ByVal FileName$, ByVal nsize%) As Integer
Function GetLoadedFilePath (FileName As String) As String
Dim hmod As Integer, Path As String, PathLen As Integer
hmod = GetModuleHandle%(FileName)
Path = Space(255)
PathLen = GetModuleFileName%(hmod, Path, Len(Path))
GetLoadedFilePath = Left(Path, PathLen)
End Function
lxcc 2003-01-14
Private 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
ShellExecute
ShellExecute
luckyjeery 2003-01-14
就是打开一个文件所在目录的WINDOWS窗口！没有zmcpu(CPU)那么复杂！（不过谢谢他）！！
急！再线等！！
急！再线等！！