VB 版 (精华区)

发信人: nN (以后再说吧), 信区: VB
标  题: 介绍一个函数吧,对你可能有用
发信站: 哈工大紫丁香 (2000年07月16日12:00:57 星期天), 转信

FindExecutable
VB声明
Declare Function FindExecutable Lib "shell32.dll" Alias "FindExecutableA" (B
yVal lpFile As String, ByVal lpDirectory As String, ByVal lpResult As String
) As Long
说明
  查找与一个指定文件关联在一起的程序的文件名
返回值
Long，大于32表示成功；31表示不存在文件类型的关联；0表示系统内存或资源不足；E
RROR_FILE_NOT_FOUND表示指定的文件不存在；ERROR_PATH_NOT_FOUND表示指定的路径不
存在；ERROR_BAD_FORMAT表示执行格式无效
参数表
参数 类型及说明
lpDirectory String，要使用的默认目录的完整路径
lpResult String，指定一个字串缓冲区，用于装载可执行文件或程序的名字。注意这个
字串预先至少都要初始化成MAX_PATH个字符的长度
lpFile String，指定要为其查找相关程序的一个文件名或程序名

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.97.206.203]